<% eims = "Book" PageTitle = "Contact" Location = PageTitle goUrl="Book.asp" '跳转页面 %> <% =PageTitle %> - <% =WebName %>
 Send your enquiry and question to us now!
<% If Action = "Save" Then eName = CheckSql(Trim(Request.Form("Name"))) Country = Checksql(Trim(Request.form("Country"))) Mail = Checksql(Trim(Request.Form("Mail"))) ItemNote = CheckSql(Trim(Request.Form("ItemNote"))) If eName = "" Then WtMsg("The NAME can't be empty!!") If Country = "" Then WtMsg("The COUNTRY can't be empty!!") If Mail = "" Then WtMsg("The E-MAIL can't be empty!!") If ItemNote = "" Then WtMsg("The MESSAGE can't be empty!!") If Session("CheckCode") <> Trim(Request.Form("Code")) Then WtMsg("CODE input error!!") ItemNote = Replace(ItemNote,chr(10),"
") ItemNote = Replace(ItemNote,chr(10),"
") Set Rs=Server.CreateObject("Adodb.RecordSet") Rs.Open "Select * From [eims_Book]",Conn,1,3 Rs.AddNew Rs("Name") = eName Rs("Country") = CheckSql(Trim(Request.Form("Country"))) Rs("Tel") = CheckSql(Trim(Request.Form("Tel"))) Rs("Mail") = CheckSql(Trim(Request.Form("Mail"))) Rs("Company") = CheckSql(Trim(Request.Form("Company"))) Rs("Fax") = CheckSql(Trim(Request.Form("Fax"))) Rs("Add") = CheckSql(Trim(Request.Form("Add"))) Rs("Web") = CheckSql(Trim(Request.Form("Web"))) Rs("ItemNote") = ItemNote Rs("ItemAddDate") = Now() Rs("ItemRec") = 1 Rs.Update Rs.Close : Set Rs=Nothing CDO_Mail("询价来自 公司网站产品页-包括美国站,欧洲站,俄语站,南非站,中东站等-在线提交信息,请进入myflange网站后台 反馈管理 查看。") '邮件发送 Response.Write "" 'Response.Redirect "Book.asp" Rs.Close:Set Rs=Nothing End If iRs=NULL ors=NULL Set ors=NoThing %>
       
* Your Name :
* Country :
* Company :
* Address :
* Tel :
Fax :
* E-mail :
 
Website :
* What flanges do you need?
* Code :