<% Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open ConString if request.Form("cmd")="NewUser" then updatequery="select * from 247limo where Email='" & Request.Form("email") & "'" set rs = MyConn.Execute(updatequery) if rs.EOF=false or rs.BOF=false then response.write "User Information with this Email id is exist in our database." else query ="insert into 247limo values ('" & Request.Form("FirstName") & "','" & request.Form("LastName") & "','" & request.Form("Address1") & "','" & request.Form("Address2") & "','" & request.Form("City") & "','" & request.Form("State") & "',' " & request.Form("Zip") & "','" & request.Form("Phone") & "','" & request.Form("Fax") & "',' " & request.Form("Cell") & "','" & request.Form("email") & "','" & request.Form("password") & "')" Set rs = MyConn.Execute(query) Session("FirstName")=request.Form("FirstName") Session("LastName")=request.Form("LastName") Session("Address1")=request.Form("Address1") Session("Address2")=request.Form("Address2") Session("City")=request.Form("City") Session("State")=request.Form("State") Session("Zip")=request.Form("Zip") Session("Phone")=request.Form("Phone") Session("Fax")=request.Form("Fax") Session("Cell")=request.Form("Cell") Session("email")=request.Form("email") response.redirect("reservation.asp") end if end if %>

Profile : 

* Name : 
First "> *Last ">
* Address 1 :  ">
  Address 2 :  ">
* City : 
"> * State :  ">
* Zip : 
"> * Phone : ">
  Fax : 
"> Cell :  ">
* Email :  ">
* Password :