<% 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 "Please fill in every item!back" 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="Message sent! Thank you." else msg = "Message not sent! Please check the email address!" end if 'jmail.Close 'set jmail = nothing objMail.Subject = topic objMail.Body = mailbody objMail.Send Set objMail = Nothing end if end if %> HUANAN Group : Home > Inquiry and Cooperation Michel Jeanjean (Sic), Download (Sic) movie, Jacques Fraenkel (Sic). Yelba Osorio Carlito's Way, Carlito's Way, Mel Gorham Carlito's Way. Frederick S. Armitage Babies Playing on a Hot Day, movie 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%>HomePage <%else%>

Please provide the following information about you so that we can contact you in time.

Items marked with an asterisk* are required
Your Name： *          Mobile：    
E-mail： *          Tel：          
Company：             Fax：         
Address：              Website：
subject： *
Contents for Inquiry or Talk： *
 
<%end if%>
© 2007 HUANAN Group All Rights Reserved