%@LANGUAGE="VBSCRIPT"%>
<%
if Request.Form("isSubmitted") = "yes" then
Dim custName, company, email, telNum, details
Dim objCDO
custName = Request.Form("name")
company = Request.Form("company")
email = Request.Form("email")
telNum = Request.Form("telNum")
details = Request.Form("details")
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = email
objCDO.To = "sales@cunoasia.com"
objCDO.Cc = "fyang@cunoasia.com"
objCDO.Bcc = ""
objCDO.Subject = "Web Inquiry"
dim msgBody
myBody="Name: " & custname
myBody= myBody & vbCrLf & vbCrLf
myBody= myBody & "Company: " & company
myBody= myBody & vbCrLf & vbCrLf
myBody= myBody & "Email: " & email
myBody= myBody & vbCrLf & vbCrLf
myBody= myBody & "Telephone Number: " & telNum
myBody= myBody & vbCrLf & vbCrLf
myBody= myBody & "Feedbacks: " & details
objCDO.Body = myBody
objCDO.Send
Set objCDO = Nothing
end if
%>
Cuno Filtration Asia
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
| |
我们非常注重我们顾客的要求,提供优质服务及全力支持.在坤诺,我们承诺.
|
|
<% if Request.Form("isSubmitted") = "yes" then %>
谢谢您的宝贵意见 / 订购
<% else %>
<%end if%>
|
电话: (021) 5768-1226 /
(021) 5768-0293 /
(021) 5768-1250 |
电邮: [sales@cunoasia.com] |
|
传真: (021) 5768-0019 |
地址:
[上海市松江区新桥镇新润路485号]
|
|
|
|
随时欢迎您通过此表格与我们联系. 告诉我们您的要求及购物定单等等,
我们友善的销售人员将尽快与您联系!
|
|
|
| |
|
|
|
|