ASP various send mail function code

Sub CDONTS (Email,topic,mailbody)
On Error Resume Next
Dim Objcdomail
Set Objcdomail = Server.CreateObject ("CDONTS. NewMail ")
Objcdomail.from = Newasp.mailfrom ' e-mail address
objcdomail.to = Email
Objcdomail.subject = Topic
Objcdomail.bodyformat = 0
Objcdomail.mailformat = 0
Objcdomail.body = Mailbody
If Err <> 0 Then
Sendmail= "False"
Else
Objcdomail.send
If Err <> 0 Then
Sendmail= "False"
Else
Sendmail= "OK"
End If
End If
Set Objcdomail = Nothing
End Sub
Sub AspEmail (Email,topic,mailbody)
On Error Resume Next
Dim Mailer
Set mailer=server.createobject ("Persits.mailsender")
Mailer.charset = "gb2312"
mailer.ishtml = True
Mailer.username = Newasp.mailusername ' Valid user name on the server
Mailer.password = Newasp.mailpassword ' valid password on the server
mailer.priority = 1
Mailer.host = newasp.setting (9)
Mailer.port = 25 ' This option is optional. port 25 is the default value
Mailer.from = Newasp.mailfrom ' e-mail address
Mailer.fromname = Newasp.sitename ' This optional
Mailer.addaddress Email,email
Mailer.subject = Topic
Mailer.body = Mailbody
If Err <> 0 Then
Sendmail= "False"
Else
Mailer.send
If Err <> 0 Then
Sendmail= "False"
Else
Sendmail= "OK"
End If
End If
Set Mailer = Nothing
End Sub
Sub CDOMessage (Email,topic,mailbody)
On Error Resume Next
If not IsObject (cdoconfig) Then
Call Creatcdoconfig ()
End If
Dim OBJ
Set OBJ = Server.CreateObject ("CDO.") Message ")
With OBJ
Set. Configuration = Cdoconfig
'. From = Newasp.mailfrom
. to = Email
. Subject = Topic
. TextBody = Mailbody
. Send
End With
Set OBJ = Nothing
Set Cdoconfig = Nothing
If err<>0 Then
Sendmail= "False"
Else
Sendmail= "OK"
End If
End Sub
Sub Creatcdoconfig ()
On Error Resume Next
Dim Sch
Sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoconfig = Server.CreateObject ("CDO.") Configuration ")
With Cdoconfig.fields
. Item (Sch & "smtpserver") = Newasp.mailserver '--SMTP server
'. Item (Sch & "Smtpserverport") = 25
. Item (Sch & "sendusing") = 2
. Item (Sch & "smtpaccountname") = Newasp.sitename
. Item (Sch & "sendemailaddress") = Newasp.mailfrom
. Item (Sch & "smtpuserreplyemailaddress") = 25
'. Item (Sch & "smtpauthenticate") = Cdobasic
. Item (Sch & "sendusername") = Newasp.mailusername
. Item (Sch & "Sendpassword") = Newasp.mailpassword
. Update
End With
If err<>0 Then
Sendmail= "False"
End If
End Sub