<% Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open StrConn If Request.QueryString("action")="add" Then If (Request.Form("txtuser")="" OR Request.Form("txtname")="" OR Request.Form("txtgender")="" OR Request.Form("txtemail")="" OR Request.Form("txtaddress")="" OR Request.Form("txtcity")="" OR Request.Form("txtstate")="" OR Request.Form("txtzip")="" OR Request.Form("txtcountry")="" OR Request.Form("txtstatus")="" OR Request.Form("txtoccupation")="") Then Response.Write("Form not completed fill,click a back button to check it out u'r form") ElseIf (Request.Form("txtpassword")<>Request.Form("txtpassword1")) Then Response.Write("Password not same,click a back button to fill your password form") Else Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open "select * from author", ObjConn, 3,3 ObjRs.AddNew ObjRs("a_user")=Request.Form("txtuser") ObjRs("a_password")=Request.Form("txtpassword") ObjRs("a_name")=Request.Form("txtname") ObjRs("a_gender")=Request.Form("txtgender") ObjRs("a_email")=Request.Form("txtemail") ObjRs("a_address")=Request.Form("txtaddress") ObjRs("a_city")=Request.Form("txtcity") ObjRs("a_state")=Request.Form("txtstate") ObjRs("a_zip")=Request.Form("txtzip") ObjRs("a_country")=Request.Form("txtcountry") ObjRs("a_status")=Request.Form("txtstatus") ObjRs("a_occupation")=Request.Form("txtoccupation") ObjRs("a_level")=2 ObjRs.Update objRs.Close ObjConn.Close Set ObjRs = Nothing Set ObjConn = Nothing Response.Write("

Register is successful.") Response.Write("") End If Else %>

 

<% If blnCAPTCHAcodeCorrect Then Response.Write("Correctly") Else Response.Redirect("register.asp") End If %>

Username :	" size=19>
Password :	" size=12>
Password :	" size=12>
Name :	" size=35>
Gender :	" size=35>
Email :	" size=32>
Address :	" size=41>
City :	" size=21>
State :	" size=16>
Zip :	" size=7>
Country :	" size=7>
Status :	" size=7>
Occupation :	" size=15>
	I agree to the above terms

<% End If %>