<%@ Language = VBScript CodePage="1256"%>
<%
Dim ADO
dim x
dim y
dim z
dim a
dim b
dim c
dim e
dim f
dim g
Set ADO = Server.CreateObject("ADODB.Connection")
filePath = Server.MapPath("../res.mdb")
ADO.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+filepath)
set x= request.form("T1")
set y= request.form("T2")
set z= request.form("T4")
set a= request.form("T5")
set b= request.form("T6")
set c= request.form("T7")
set e= request.form("D1")
set f= request.form("T8")
set g= request.form("T3")
if x<>"" then
ADO.execute "insert into reservation(name,nation,tel,id,arrdate,leavedate,room,email,country) values('"&x&"','"&y&"','"&z&"','"&a&"','"&b&"','"&c&"','"&e&"','"&f&"','"&g&"')"
response.redirect("thanks.asp")
end if
'Set rs = ADO.Execute("SELECT * From reservation")
%>
Sana'a International Hotel - Reservation
Rooms
-:Rates
Single Room
$40
Twin Room
$70
Suite
$90
أسعار الغرف :-
الغرفة
المفردة
40$
الغرفة المزدوجة
70$
جناح رجال الاعمال
90$
