<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Buffer = "True" User = Session("UserName") FirstName = trim(Request("txtFname")) LastName = trim(Request("txtLname")) Gender = trim(Request("Gender")) Age = trim(Request("txtAge")) Org = trim(Request("txtOrg")) Nation = trim(Request("txtNation")) Lang = trim(Request("txtLang")) Mob = trim(Request("txtMob")) Email = trim(Request("txtEmail")) BNameFrom = trim(Request("BNameFrom")) BNameTo = trim(Request("BNameTo")) LocationFrom = trim(Request("LocationFrom")) LocationTo = trim(Request("LocationTo")) LmarkFrom = trim(Request("LmarkFrom")) LmarkTo = trim(Request("LmarkTo")) EmirateFrom = trim(Request("EmirateFrom")) EmirateTo = trim(Request("EmirateTo")) OffTimeFrom = trim(Request("OffTimeFrom")) OffTimeTo = trim(Request("OffTimeTo")) Comments = trim(Request("txtComments")) OwnCar = trim(Request("OwnCar")) Set Con = Server.CreateObject("ADODB.Connection") Con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Association.mdb") Con.Execute "Insert into RegDetails values ('" & User & "', '" & FirstName & "', '" & LastName& "', '" & Gender & "', '" & Age & "', '" & Org & "', '" & Nation & "', '" & Lang & "', '" & Mob & "', '" & Email & "', '" & BNameFrom & "', '" & BNameTo & "', '" & LocationFrom & "', '" & LocationTo & "', '" & LmarkFrom & "', '" & LmarkTo & "', '" & EmirateFrom & "', '" & EmirateTo & "', '" & OffTimeFrom & "', '" & OffTimeTo & "', '" & Comments & "', '" & OwnCar & "')" Con.close Set Con = Nothing Response.Redirect "http://www.accountantsassociation.org/RegistrationSuccess.htm" %>