<% dim username, coname , memo, e_mail, addr, phone, fax, zip, fax0 , catalog , foamers username=Trim(request("username")) coname=Trim(request("coname")) memo=Trim(request("memo")) e_mail=Trim(request("e_mail")) addr=Trim(request("addr")) phone=Trim(request("phone")) fax=Trim(request("fax")) fax0=Trim(request("fax0")) catalog=Trim(request("catalog")) foamers=Trim(request("foamers")) Call Send_Jmail '開啟JMAIL Call Add_Contact'新增至資料庫 %> <% Sub Add_Contact Set conn=Server.CreateObject("ADODB.Connection") param = "driver={Microsoft Access Driver (*.mdb)}" conn.Open param & ";dbq=" & Server.MapPath("Contact.mdb") Set rs=Server.CreateObject("ADODB.Recordset") sqlstr="SELECT * From Contact" rs.open sqlstr,conn,3,2 rs.AddNew rs("coname")=coname rs("username")=username rs("e_mail")=e_mail rs("addr")=addr rs("phone")=phone rs("fax")=fax rs("fax0")=fax0 rs("catalog")=catalog rs("foamers")=foamers rs("memo")=memo rs("DATE")=date() rs.Update rs.close End Sub %> <% 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="smtp.antari.com.tw" '請設定您伺服器使用的Mail Server JMail.Sender = "Antari英文網站" '寄件人名稱 JMail.Subject = "Antari英文網站客戶詢問" '主旨 JMail.AddRecipient "tammytai@antari.com.tw" '請修改為您的E-Mail JMail.AddRecipient "sam-tsai@antari.com.tw" JMail.AddRecipient Request("e_mail") '客戶的E-Mail address加入此項，客戶也會收到同樣的EMAIL Body= "連 絡 人：" & username & "
公司名稱：" & coname & "
連絡電話：" & phone & "
連絡傳真：" & fax & "
地址：" & addr & "
電子郵件：" & e_mail & "
國家:"& fax0 & "
一般訊息詢問："& catalog & "
特殊訊息詢問："& foamers & "
特殊產品詢問：" & memo '郵件主要內容 JMail.Body = Body JMail.Priority = 3 JMail.Execute Set JMail = Nothing End Sub %> <% session.abandon response.write "" Response.End %>