<%
SUB JMAIL (Email)
DIM JMAIL, Sendmail
Set jmail = server.createObject ("jmail.smtpmail")
Jmail.logging = true
Jmail.charset = "GB2312"
Jmail.contentType = "text / html"
Jmail.Serveraddress = SMTPSERVER
Jmail.Sender = systememail
Jmail.subject = Topic
Jmail.Body = mailbody
Jmail.addrecipient email
Jmail.priority = 3
Jmail.execute
Set jmail = Nothing
IF Err THEN
Sendmail = err.description
Err.clear
Else
Sendmail = "ok"
END IF
End Sub
Sub CDONTS (Email)
DIM Objcdomail
Set objcdomail = server.createObject ("cdonts.newmail")
Objcdomail.from = systememail
Objcdomail.to = email
Objcdomail.subject = Topic
Objcdomail.body = mailbody
Objcdomail.send
Set objcdomail = Nothing
IF Err THEN
Sendmail = err.description
Err.clear
Else
Sendmail = "ok"
END IF
End Sub
Sub aspemail (email)
Set mailer = server.createObject ("aspmail.aspmailctrl.1))
Recipient = email
Sender = systememail
Subject = Topic
Message = mailbody
MailServer = SMTPSERVER
Result = mailer.sendmail (MailServer, Recipient, Sender, Subject, Message)
IF Err THEN
Sendmail = err.description
Err.clear
Else
Sendmail = "ok"
END IF
End Sub
%>