Sub SendMail(Recipient,Subject,Body)
Set Jmail=Server.CreateObject("Jmail.SMTPMail")
Jmail.ServerAddress="localhost"
Jmail.AddRecipient Recipient
Jmail.Subject=Subject
Jmail.Body=Body
Jmail.ContentType="text/html"
Jmail.Sender="web@maiaddress.com"
Jmail.Priority=2
Jmail.Execute
Set Jmail=nothing
End Sub
<%
DIM mymail
set mymail = server.createobject("CDONTS.NewMail")
mymail.from = "jhal@21CN.NET"
mymail.To = "cutebox@21cn.com"
mymail.subject = "text"
mymail.body = "hello!this is a test mail"
mymail.send
set mymail = NOTHING
%>