<% action=request("action") if action="ok" then '================================================== Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = " itcenter@huanangroup.com " objMail.To = " itcenter@huanangroup.com " '================================================== sendname = trim(Request("sendname")) corp = trim(Request("corp")) tel = trim(Request("tel")) mobile = trim(Request("mobile")) fax = trim(Request("fax")) website = trim(Request("website")) address = trim(Request("address")) email = trim(Request("email")) topic = trim(Request("topic")) abody = trim(Request("abody")) if sendname="" or email="" or topic="" then response.write "請正確填寫每一項!返回上一頁" response.end end if set jmail= server.CreateObject ("jmail.message") jmail.Silent = true jmail.Charset = "gb2312" JMail.ContentType = "text/html" mailbody=mailbody &"—————————————————————————————————————————" mailbody=mailbody & chr(13) mailbody=mailbody &"姓名:"&sendname&"" mailbody=mailbody & chr(13) mailbody=mailbody &"手機:"&mobile&"" mailbody=mailbody & chr(13) mailbody=mailbody &"Mail:"&email&"" mailbody=mailbody & chr(13) mailbody=mailbody &"公司:"&corp&"" mailbody=mailbody & chr(13) mailbody=mailbody &"電話:"&tel&"" mailbody=mailbody & chr(13) mailbody=mailbody &"傳真:"&fax&"" mailbody=mailbody & chr(13) mailbody=mailbody &"地址:"&address&"" mailbody=mailbody & chr(13) mailbody=mailbody &"網址:"&website&"" mailbody=mailbody & chr(13) mailbody=mailbody &"—————————————————————————————————————————" mailbody=mailbody & chr(13) mailbody=mailbody &"主題:"&topic&"" mailbody=mailbody & chr(13) mailbody=mailbody &"具體內容:"&abody&"" mailbody=mailbody & chr(13) mailbody=mailbody &"—————————————————————————————————————————" mailbody=mailbody & chr(13) mailbody=mailbody &"此郵件由華南集團網站線上諮詢系統發送，請勿直接回復此郵件！" mailbody=mailbody & chr(13) mailbody=mailbody &"該發件人郵箱為"&email&"" mailbody=mailbody & chr(13) mailbody=mailbody &"如果需要回復，請發郵件至"&email&"。" mailbody=mailbody & chr(13) mailbody=mailbody &"—————————————————————————————————————————" if sendname <> "" and email <> "" then jmail.From = smtpemail jmail.FromName = sendname jmail.ReplyTo = email jmail.Subject = topic jmail.AddRecipient myemail 'jmail.Body = mailbody jmail.MailServerUserName = smtpuser jmail.MailServerPassWord = smtppwd isgo = jmail.Send(smtpserver) if isgo then msg="郵件發送成功！謝謝你的支持。" else msg = "郵件發送失敗！請檢查您的郵件位址是否正確！" end if 'jmail.Close 'set jmail = nothing objMail.Subject = topic objMail.Body = mailbody objMail.Send Set objMail = Nothing end if end if %> HUANAN Group : 首頁 > 諮詢合作 Laura Scozzi (Sic), Download (Sic), Laurent Arnulf (Sic). Brian Tarantina Carlito's Way, Download Carlito's Way movie, Shea Rowan Carlito's Way. Frederick S. Armitage Babies Playing on a Hot Day, Download Babies Playing on a Hot Day, . ? Buy Time-Lapse VCRs Hour Time Lapse VCR Buy Online PBX Phones & Systems Crosley Order Hidden Spy Cameras Digital Alarm Clock-Radio, Hidden & Spy Cameras Digital Alarm Clock-Radio , Buy Online Hidden & Spy Cameras Digital Alarm Clock-Radio. <%if msg<>"" then%>
<%=msg%>返回首頁 <%else%>


希望您能完整填寫以下資訊以便我們及時與您聯繫。

帶*號為必填項目
您的姓名： *            您的手機：
您的E-mail： *            聯繫電話：
公司名稱：               公司傳真：
地址：               公司網址：
主題(subject)： *
諮詢或洽談內容： *
 
<%end if%>
© 2007 HUANAN Group All Rights Reserved