Registration Form

 
Name
Educational Qualification
D.O.B.
Sex Male  Female
   
Personal Details
   
Father's Name
Mother's Name
Address


 
City
State
Country
Pin
Phone
eMail
Annual Income
No.of family members
Your Expectation
 
   
 
   
<% if not isempty(Request.Form("cmdSub")) then dim vrName,vrQuali,vrDob,vrSex,vrFname,vrMname,vrAdd,vrCity,vrState,vrCountry,vrPh dim vrMail,vrAnnc,vrFmem,vrPin,vrEXP,vrOthers dim con,rs vrName=Request.Form("txtName") vrQuali=Request.Form("txtQual") vrDob=Request.Form("txtDob") vrSex=Request.Form("R1") vrFname=Request.Form("txtfathernm") vrMname=Request.Form("txtmothernm") vrAdd=Request.Form("txtAdd") vrCity=Request.Form("txtCity") vrState=Request.Form("txtState") vrCountry=Request.Form("cmbcon") vrPin=Request.Form("txtPin") vrPh=Request.Form("txtPh") vrMail=Request.Form("txtmail") vrAnnc=Request.Form("txtanninc") vrFmem=Request.Form("txtno") vrEXP=Request.Form("cmbexp") vrOthers=Request.Form("txtother") set con=server.CreateObject("ADODB.CONNECTION") set rs=server.CreateObject("adodb.recordset") dim self self=Request.ServerVariables ("APPL_PHYSICAL_PATH") dim my my="data\dbthattiar.mdb;" dim myself myself=self & my con.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myself &"Persist Security Info=False" con.open dim vrRegID vrRegID=0 rs.Open "Select Max(RegID) as fldRegID from tblReg",con,1,3 if rs("fldRegID")>0 then vrRegID=rs("fldRegID")+1 else vrRegID=1 end if rs.Close rs.Open "tblreg",con,3,3 rs.AddNew rs("RegID")=vrRegID rs("RegNm")=vrName rs("RegQual")=vrQuali if isdate(vrDob) then rs("regdob")=cdate(vrDob) end if rs("regsex")=vrSex rs("regfathernm")=vrFname rs("regmothernm")=vrMname rs("regAdd")=vrAdd rs("regCity")=vrCity rs("regState")=vrState rs("regCountry")=vrCountry rs("regPin")=vrPin rs("regPhone")=vrPh rs("regmail")=vrMail if IsNumeric(vrAnnc) then rs("reganninc")=vrAnnc end if if IsNumeric(vrFmem) then rs("regfammem")=vrFmem end if rs("regexp")= vrEXP rs("regother")=vrOthers rs.Update rs.Close con.Close set rs=nothing set con=nothing %> <%end if%>