<% strHost = "mail.sinojet.com" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost mail.username="igoals@sinojet.com" mail.password="967334" Mail.From = "igoals@sinojet.com" Mail.FromName = "ygc" Mail.AddAddress "igoals@sinojet.com" Mail.Subject = "test" Mail.Body = "only test" Mail.Send ' send message %>

<%
Set JMail=Server.CreateObject("JMail.Message")
jmail.from="igoals@sinojet.com"
jmail.silent = true
jmail.Logging = true
jmail.FromName ="igoals"
jmail.mailserverusername="igoals@sinojet.com"
jmail.mailserverpassword="967334"
jmail.AddRecipient "igoals@sinojet.com"
jmail.body="test"
if not jmail.Send ("mail.sinojet.com" ) then
Response.write "<pre>" & jmail.log & "</pre>"
else
Response.write "<pre>" & jmail.log & "</pre>"
end if
%>