Common Email Component Send function

Mail Components | function <%
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
%>