<% sUsername = request("txtUsername") sPassword = request("txtPassword") sName = trim(request("txtName")) sDay = request("cmbdobday") sMonth = request("cmbdobmonth") sYear = request("cmbdobyear") sDOB= sMonth&"/"&sDay&"/"&sYear sGender = request("rdoSex") sFlat = request("txtFlat") sFlatName = request("txtFlatName") sStreet1 = request("txtstreet1") sStreet2 = request("txtStreet2") sArea = request("txtArea") sRcity = request("txtRcity") sPinCode = request("txtPinCode") sResPhoneNo = request("txtResPhoneNo") sOffice = request("txtOffice") sBuildingName = request("txtBuildingName") sOffstreet1 = request("txtOffstreet1") sOffstreet2 = request("txtOffstreet2") sOffArea = request("txtOffArea") sOcity = request("txtOcity") sOffPinCode = request("txtOffPinCode") sCompanyPhone = request("txtCompanyPhone") sExtn = request("txtExtn") sMobileNo = request("txtMobileNo") sEmail = request("txtEmail") sContactAt = request("cmbContactAt") sTraveller = request("cmbTraveller") sPreferredTime = request("txtPreferredTime") dim k if request("Action")="Submit" then set rs=Server.CreateObject("ADODB.Recordset") rs.open "SELECT MAX(userid) FROM users",connobj,2,3,1 if IsNull(rs(0)) then k=1 else k=clng(rs(0))+1 end if rs.close Set objRS = Server.CreateObject("ADODB.Recordset") sQuery = "select * from Users where Username ='"& sUsername &"'" set objRs = connobj.execute(sQuery) if not objRs.eof then sMessage = "User Name Already Exist! Please Select Another User Name..." else Set objRS = Server.CreateObject("ADODB.Recordset") objRS.open "SELECT * FROM Users",connObj,2,3,1 objRS.AddNew objRs("userid")=k objRS("usercode")=k objRS("UserName") = sUsername objRS("Password") = sPassword objRS("Name") = sName objRS("DOB") = sDOB objRS("Sex") = sGender objRS("Flat") = sFlat objRS("FlatName") = sFlatName objRS("Street1") = sStreet1 objRS("Street2") = sStreet2 objRS("Area") = sArea objRS("CityCode") = sRcity objRS("Pincode") = sPinCode objRS("ResPhone") = sResPhoneNo objRS("OffName") = sOffice objRS("BuildingName") = sBuildingName objRS("OffStreet1") = sOffstreet1 objRS("OffStreet2") = sOffstreet2 objRS("OffArea") = sOffArea objRS("OffCitycode") = sOcity objRS("OffPincode") = sOffPinCode objRS("OffPhone") = sCompanyPhone objRS("Extn") = sExtn objRS("Mobile") = sMobileNo objRS("EMail") = sEmail objRS("ContactPreferred") = sContactAt objRS("Travellertype") = sTraveller objRS("PreferredTime") = sPreferredTime objRS("CreatedTime") = date() objRS("IpAddress") = Request.ServerVariables("REMOTE_ADDR") objRS.update objRS.close Response.Redirect("confirm_message_signup.html?stitle=mebmer_registration") end if end if Rem ################################################### %> Your Travel Gateway!
<% Dim f Dim m if sSex = "F" then f="Checked" m=" " else m="Checked" f=" " end if %> <% Dim yes Dim no If sCopy="Yes" Then yes="Checked" no="" Else no="Checked" yes="" End If %> <% Dim Off Dim Mob Dim Res Dim Email If sContactAt="Office" Then Off="Selected" ElseIf sContactAt="Mobile" Then Mob="Selected" ElseIf sContactAt="Residency" Then Res="Selected" ElseIf sContactAt="E-Mail" Then Email="Selected" Else Off="Selected" End If %>
User Registration
User Name *
(minimum 5 chars)
Password * (minimum 5 chars)
Confirm Password *
Name *
Sex * > Male    > Female 
DOB *
    
RESIDENCE ADDRESS
Apartment No. *
Apartment *
Street1 *
Street2
Area *
City *
ZIP Code *
Residence Phone No
OFFICE ADDRESS
Office Name
Building Name
Street1
Street2
Area
City
ZIP Code
Office Phone No.
Extn. (if any)
Mobile No.
E-Mail *
Contact At *
  Traveller Type *
Preferred Time *
 
 

        <% if session("username")<>"" then%> <%else%> <%end if%>Flight Ticket Domestic | <% if session("username")<>"" then%><%else%><%end if%>Flight Ticket International | <% if session("username")<>"" then%><%else%><%end if%>Train Ticket | <% if session("username")<>"" then%> <%else%> <%end if%> Overseas RailPass | <% if session("username")<>"" then%> <%else%> <%end if%> Package Tours | <% if session("username")<>"" then%> <%else%> <%end if%> Cruise| <% if session("username")<>"" then%> <%else%> <%end if%> Passport | <% if session("username")<>"" then%> <%else%> <%end if%> Visa | <% if session("username")<>"" then%><%else%> <%end if%>Insurance | <% if session("username")<>"" then%> <%else%> <%end if%> Hotel | <% if session("username")<>"" then%><%else%><%end if%>Foreign Exchange | <% if session("username")<>"" then%><%else%><%end if%> Educational Loan