<!--#include file="Conn.asp" -->
<%
Call OpenConn
'Conn.Execute("create table PE_Orders(ID int identity(1,1) Primary Key,truename varchar(20),sex varchar(4),age varchar(4),address varchar(50),tel varchar(20),mobile varchar(20),keshi varchar(20),zhuanjia varchar(20),ordertime varchar(20),email varchar(30),zhusu varchar(6),info varchar(200))")
Dim OSql,ORs
Set ORs = Server.CreateObject("ADODB.RecordSet")
OSql = "SELECT * FROM SQ_Orders WHERE ID is null"
ORs.Open OSql,Conn,1,3
ORs.AddNew
   ORs("truename") = Trim(Request.Form("truename"))
   ORs("sex") = Trim(Request.Form("sex"))
   ORs("age") = Clng(Request.Form("age"))
   ORs("address") = Trim(Request.Form("address"))
   ORs("tel") = Trim(Request.Form("tel"))
   ORs("mobile") = Trim(Request.Form("mobile"))
   ORs("keshi") = Trim(Request.Form("keshi"))
   ORs("zhuanjia") = Trim(Request.Form("zhuanjia"))
   ORs("ordertime") = Trim(Request.Form("ordertime"))
   ORs("email") = Trim(Request.Form("email"))
   ORs("zhusu") = Trim(Request.Form("zhusu"))
   ORs("info") = Trim(Request.Form("info"))
ORs.Update
ORs.Close
Set ORs = Nothing
Response.Write "<script>alert('您的预约已成功提交，我们会尽快与您联系');window.location.href='/'</script>"
Response.End()
%>