ASP through JMail implementation of universal Send function _ Application techniques

<%
'******************************
' Function: SendMail (mailtoaddress,mailtoname,subject,mailbody,fromname,mailfrom,priority)
' Parameters: Mailtoaddress, receiving mail address, Mailtoname, recipient name, Ubject, subject, ailbody, mail content, Fomname, main name, Ailfrom, main mail address, riority, message level
' Author: Arisisi
' Date: 2007/7/13
' Description: JMail Universal Send function
' Example: <%=sendmail (mailtoaddress,mailtoname,subject,mailbody,fromname,mailfrom,priority)%>
'******************************
function SendMail (mailtoaddress,mailtoname,subject,mailbody,fromname,mailfrom,priority)
On Error Resume Next
Dim JMail
Set jmail=server.createobject ("Jmail.message")
If Err Then
Sendmail= "<br><li> not installed JMail components </li>"
Err.Clear
Exit function
End If
jmail.charset= "gb2312"
Jmail.silent=true
Jmail.contenttype = "Text/html"
Jmail.mailserverusername = Mailserverusername
Jmail.mailserverpassword = Mailserverpassword
Jmail.maildomain = MailDomain
Jmail.addrecipient Mailtoaddress,mailtoname
Jmail.subject=subject
Jmail.hmtlbody=mailbody
Jmail.body=mailbody
Jmail.fromname=fromname
Jmail.from = Mailfrom
Jmail.priority=priority
Jmail.send (MailServer)
SendMail =jmail.errormessage
Jmail.close
Set jmail=nothing
End function%>