Sana'a International Hotel

<%@ 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


				YEMTOUR Yemen Tour & Travel


*YOUR GATE TO ...* - INCENTIVE & CONFERENCE TOUR ORGANIZING . - INBOUND TOURS . - OUTBOUND TOURS . - BUSINESSMEN TRAVEL PACKAGES . - WORLD WIDE AIR-TICKETS & HOTELS . - SPECIAL TAILOR PACKAGES . - MEDICAL PACKAGES . - STUDY LEISURE PROGRAMS . - HAJ UMRAH & PILGRIMAGE TRIPS . - DIVINE FISHING PACKAGES . - DESERT SAFARIES ( CAMEL RIDES) . - ORGANIZE A DAILY EXCURSIONS ON (DHOWS & BOATS) . - ADVENTURE TRIPS . - SPECIAL TAILOR- MADE EXPEDITION . - MEET AND GREET SERVICE . (Your wish is our command)