<!--#include file="../inc/conn.asp"-->
<!--#include file="checkpwd.asp"-->
<!--#include file="../inc/title.inc"-->
<%
nam=request.Form("nam")'姓名
sex=request.Form("sex")'性別
'response.Write sex
eage=request.Form("eage")'年齡
cn=request.Form("cn")'身份證明
zhengjianh=request.Form("zhengjianh")'證件號
guoji=request.Form("guoji")'國籍
danwei=request.Form("danwei")'單位
radiobutton=request.Form("radiobutton")'房間確定與否
response.Write radiobutton
if radiobutton then 
chk=true
else
chk=false
end if
yea=request.Form("yea")'
mont=request.Form("mont")'
dat=request.Form("dat")'
renshu=request.Form("renshu")'人數
num=request.Form("hiddenField")'訂單號
response.Write num
roomid=request.Form("roomid")'房間類型
tel=request.Form("tel")'電話號
roomid=request.Form("roomid")'
roomnum=request.Form("roomnum")'房間數
'fangjianhao=request.Form("fangjianhao")'
dtime=now()
ltime=yea&"-"&mont&"-"& dat
'response.Write("世界")
'response.Write ltime
textarea=request.Form("textarea")'其他要求
fangjianhao=request.Form("fangjianhao")'房間號
sql1="insert into [book] (nam ,sex  ,eage  ,cn , zhengjianh  ,guoji , danwei  , renshu ,num  ,tel , roomid  ,roomnum,dtime,ltime,other,chk,fangjh) values('"&nam&"','"&sex&"','"&eage&"','"&cn&"','"&zhengjianh&"','"&guoji&"','"&danwei&"','"&renshu&"','"&num&"','"&tel&"','"&roomid&"','"&roomnum&"','"&dtime&"','"&ltime&"','"&textarea&"',"&chk&",'"&fangjianhao&"')"
'response.Write(sql1)
conn.execute(sql1)
'conn.close
sql2="update [fj] set ztai=true where roomname='"&fangjianhao&"'"
'response.Write(sql2)
conn.execute(sql2)
sql3="select * from [room] where roomnam='"&roomid&"'"
set rs3=conn.execute(sql3)
lnum1=rs3("lnum")-1
'response.Write(lnum1)
sql4="update [room] set lnum='"&lnum1&"' where roomnam='"&roomid&"'"
'response.Write(sql4)
conn.execute(sql4)
conn.close
response.Redirect("room.asp")
%>