<% Function gettypename(typeid) Select Case typeid Case 1 strtype= "Toilet" Case 2 strtype= "Bidet" Case 3 strtype= "Lavatory" Case 4 strtype= "Sink" Case 5 strtype= "Dou" Case 6 strtype= "Whirlpools" Case 7 strtype= "Bathtub" Case 8 strtype= "Bathroom" Case 9 strtype= "Faucet" Case 10 strtype= "Accessories" End Select gettypename=strtype End Function feedbackid="1" set rsprovince=conn.execute("select distinct province from retail order by province") If request.Querystring("productid")<>"" Then productid=request.Querystring("productid") producttypid=request.Querystring("producttypeid") set rspro=conn.Execute("select name,modelnumber from "&gettypename(producttypid)&" where productid="&productid) strcontent="产品名称："&rspro("name")&chr(13)&"型号："&rspro("modelnumber") End IF If request.Querystring("step")="add" then set rsmail=conn.execute("select feedbackmail from setmail") strsql="insert into feedback (FEEDBACKID,SUBMITDATE,company,name,tel,zip,address,fax,email,content) values (1,Date,'"_ &request.form("company")&"','"&request.form("name")&"','"&request.form("tel")&"','"_ &request.form("zip")&"','"&request.form("address")&"','"&request.form("fax")&"','"_ &request.form("email")&"','"&request.form("content")&"')" ' conn.execute(strsql) ' Set objJMail = Server.CreateObject("JMail.SMTPMail") ' objJmail.Logging = True ' objJmail.Silent = True ' objJMail.ServerAddress = mailserver ' objJMail.Sender = "feedback@americanstandard.com.cn" ' objJMail.Subject = Request.Form("name")&"给您发来的客户反馈" ' objJmail.Charset = "gb2312" ' objJmail.AddRecipient ("feedback@americanstandard.com.cn") 'objJmail.AddRecipientBCC ("hexh@hotsales.net") 'objJmail.AddRecipientBCC (rsmail("feedbackmail")) ' objJmail.ContentType = "text/html" ' mailbody="" ' mailbody=mailbody&"公司名称：　"&request.form("company")&"
" ' mailbody=mailbody&"公司地址：　"&request.form("address")&"
" ' mailbody=mailbody&"邮编：　"&request.form("zip")&"
" ' mailbody=mailbody&"姓名：　"&request.form("name")&"
" ' mailbody=mailbody&"电话：　"&request.form("tel")&"
" ' mailbody=mailbody&"传真：　"&request.form("fax")&"
" ' mailbody=mailbody&"信箱：　"&request.form("email")&"
" ' mailbody=mailbody&"内容：
"&request.form("content") ' objJmail.body= MailBody ' objJmail.Priority = 1 ' objJmail.Execute stralert="　　尊敬的"&Request.Form("name")&"，我们已经收到您的留言。谢谢您的意见和建议，我们会尽快与您联系。" strcontent="" End IF %> 天普适达--家用/商用单元式中央空调

 
 
留言反馈
 
<% if stralert<>"" then response.write "" Else %> <%end if%>
"&stralert&"
反馈类别 ：
省份：
您是： 家庭消费者 企业用户
姓名：
电话：
电邮：
地址：
邮编：
您是如何知道天普空调的？
   报纸电视广告 亲友推荐 供应商推荐 网络链接
内容：
　
© 芝普空调 2002 | 版权信息 | 网站导航 |
公司电话：(021)62990000 | 售后服务：8008202028 | Email: tempstar@tempstar.com.cn