<%
On Error Resume Next
Set ObjCDO = Server.CreateObject("CDONTS.NewMail")
ObjCDO.From = mailfrom
ObjCDO.To = mailto
ObjCDO.Subject = mailsubject
ObjCDO.Body = mailbody
if mailtype = "html" then
ObjCDO.BodyFormat = 0
ObjCDO.MailFormat = 0
end if
ObjCDO.Importance = 2
result = ObjCDO.Send
Set ObjCDO = Nothing
If Ucase(result) = "FALSE" then
status = "ไม่สามารถส่งได้"
Else
status = "ทำการส่งเมลเรียบร้อยแล้ว"
End If
%>
Load balance : Server 04
