<%
Sub Send_JMail()
Dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ISOEncodeHeaders = False
JMail.Charset = "BIG5"
JMail.ContentType = "text/html"
JMail.Logging = True
JMail.ServerAddress="[color="Red"]ms1.sparqnet.net[/color]"
JMail.Sender = "XXXXXXXX網站"
JMail.Subject = "XXXXXXXX網站-來訪者連絡事項"
JMail.AddRecipient "tea@ms82.url.com.tw"
JMail.AddRecipient Request("e_mail")
Body= "連 絡 人:" & username & " " & bg & "
公司名稱:" & coname & "
連絡電話:" & phone & "
連絡傳真:" & fax & "
行動電話:" & zip & " 地址:" & addr & "
電子郵件:" & e_mail & "
說明:" & memo '郵件主要內容
JMail.Body = Body
JMail.Priority = 3
JMail.Execute
Set JMail = Nothing
End Sub
%>