<% Dim Subj Dim Nme Dim Add Dim Cty Dim Cntry Dim Phne Dim Eml Dim Comm Dim Dte Nme = request.form("name") Cty = request.form("city") Cntry = request.form("country") Phne = request.form("phone") pmob = request.form("mob") Eml = request.form("email") visit = request.form("VisitDate") Comm = request.form("TXTcomments") Dte = request.form("TXTDte") 'response.write Subj Dim AdoCon Dim RsEnq Dim SQLEN set AdoCon = server.createobject("ADODB.CONNECTION") set RsEnq = server.createobject("ADODB.RECORDSET") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/orient.mdb") 'AdoCon.Open "dd" SQLEN ="INSERT INTO orientbooking(SendDate,CLName,CLCity,CLCountry,CLPhone,CLEmail,CLMobile,CLComments,CLVisitdate)VALUES('" & Dte &_ "','" & Nme &_ "','" & Cty&_ "','" & Cntry &_ "','" & Phne &_ "','" & pmob &_ "','" & Eml &_ "','" & Comm &_ "','" & visit & "')" 'response.write SQLEN RsEnq.Open SQLEN, AdoCon response.redirect "index.asp" %> Enquiry Sent
Your Booking has been done. waiting to redirect. If your browser doesn't redirect you please click here
<% AdoCon.Close %>