I'm using a user mgr. program and would like to add a link at the bottom of the Registration Page, after the last field, where the registrar would have to check a mandatory checkbox that he has read the Terms and Conditions of the web site. Basically a checkbox and the words: I have read the Terms and Conditions. Where Terms and Conditions are a link to the T & C page. Also, how can someone link to the T&C page, read it and come back to the Registration Page, and not have all their filled-in fields blanked-out, so that they don't have to start again with the registration process? Thanks. <%'========================================= '=========================================%> <script language="JAVASCRIPT"> var errfound = false; function ValidLength(item, len) { return (item.length >= len); } function ValidEmail(item) { if (!ValidLength(item, 5)) return false; if (item.indexOf ('@', 0) == -1) return false; if (item.indexOf ('.', 0) == -1) return false; return true; } function error(elem, text) { if (errfound) return; window.alert(text); elem.select(); elem.focus(); elem.style.backgroundColor=errorcolor; errfound = true; } function Validate() { errfound = false; d=document.register <%if checkfirstname then%>if (!ValidLength(d.members_firstname.value,1)) error(d.members_firstname,"First Name should not be blank.");<%end if%> <%if checklastname then%>if (!ValidLength(d.members_lastname.value,1)) error(d.members_lastname,"Last Name should not be blank.");<%end if%> if (!ValidLength(d.members_username.value,6))error(d.members_username,"User Name should contain atleast 6 characters."); if (!ValidLength(d.members_password.value,6))error(d.members_password,"Password should contain atleast 6 characters."); if (!ValidLength(d.confirmpassword.value,6))error(d.confirmpassword,"Confirm Password should contain atleast 6 characters."); <%if checkaddress then%>if (!ValidLength(d.members_address.value,1))error(d.members_address,"Address should not be blank.");<%end if%> <%if checkcity then%>if (!ValidLength(d.members_city.value,1))error(d.members_city,"City should not be blank.");<%end if%> <%if checkstate then%>if (!ValidLength(d.members_state.value,1))error(d.members_state,"State should not be blank.");<%end if%> <%if checkcountry then%>if (!ValidLength(d.members_country.value,1))error(d.members_country,"Country should not be blank.");<%end if%> <%if CheckEmail then%>if (!ValidLength(d.members_email.value,1))error(d.members_email,"Email should not be blank.");<%end if%> <%if Application("smumvalidateemail") and CheckEmail then%>if (!ValidEmail(d.members_email.value))error(d.members_email,"Invalid email address.");<%end if%> <%if checkphone then%>if (!ValidLength(d.members_phone.value,1))error(d.members_phone,"Phone should not be blank.");<%end if%> <%if checkzip then%>if (!ValidLength(d.members_zip.value,1))error(d.members_zip,"Zip should not be blank.");<%end if%> <%if checknotes then%>if (!ValidLength(d.members_notes.value,1))error(d.members_notes,"Notes should not be blank.");<%end if%> <%if checkfield1 then%>if (!ValidLength(d.members_field1.value,1))error(d.members_field1,"<%=smumgetfieldname(1)%> should not be blank.");<%end if%> <%if checkfield2 then%>if (!ValidLength(d.members_field2.value,1))error(d.members_field2,"<%=smumgetfieldname(2)%> should not be blank.");<%end if%> <%if checkfield3 then%>if (!ValidLength(d.members_field3.value,1))error(d.members_field3,"<%=smumgetfieldname(3)%> should not be blank.");<%end if%> <%if checkfield4 then%>if (!ValidLength(d.members_field4.value,1))error(d.members_field4,"<%=smumgetfieldname(4)%> should not be blank.");<%end if%> <%if checkfield5 then%>if (!ValidLength(d.members_field5.value,1))error(d.members_field5,"<%=smumgetfieldname(5)%> should not be blank.");<%end if%> <%if checkfield6 then%>if (!ValidLength(d.members_field6.value,1))error(d.members_field6,"<%=smumgetfieldname(6)%> should not be blank.");<%end if%> <%if checkfield7 then%>if (!ValidLength(d.members_field7.value,1))error(d.members_field7,"<%=smumgetfieldname(7)%> should not be blank.");<%end if%> <%if checkfield8 then%>if (!ValidLength(d.members_field8.value,1))error(d.members_field8,"<%=smumgetfieldname(8)%> should not be blank.");<%end if%> <%if checkfield9 then%>if (!ValidLength(d.members_field9.value,1))error(d.members_field9,"<%=smumgetfieldname(9)%> should not be blank.");<%end if%> <%if checkfield10 then%>if (!ValidLength(d.members_field10.value,1))error(d.members_field10,"<%=smumgetfieldname(10)%> should not be blank.");<%end if%> return !errfound; } </script> <%Sub Register() dim action,emailactivaetion,rid,todo,members_username,members_password,confirmpassword,chkerror,i,adderror,smum_groupstbl,members_id,messagebody,subject,result,tempid,orderid,smumquery,smumregredirect,smumgroups,email,firstname if not Application("smumdebugmode") then on error resume next action = request("action") todo = Request("todo") members_username = smFixer(smChecknull("Username", request("members_username"), chkerror)) members_password = smFixer(smChecknull("Password", request("members_password"), chkerror)) confirmpassword = smFixer(smChecknull("Confirm Password", request("confirmpassword"), chkerror)) smumdisplayform checkfirstname,"members_firstname","First Name" smumdisplayform checklastname,"members_lastname","Last Name" smumdisplayform checkaddress,"members_address","Address" smumdisplayform checkcity,"members_city","City" smumdisplayform checkstate,"members_state","State" smumdisplayform checkcountry,"members_country","Country" smumdisplayform CheckEmail,"members_email","Email" smumdisplayform checkphone,"members_phone","Phone" smumdisplayform checkzip,"members_zip","Zip" smumdisplayform checknotes,"members_notes","Notes" smumdisplayform checkfield1,"members_field1",smumgetfieldname(1) smumdisplayform checkfield2,"members_field2",smumgetfieldname(2) smumdisplayform checkfield3,"members_field3",smumgetfieldname(3) smumdisplayform checkfield4,"members_field4",smumgetfieldname(4) smumdisplayform checkfield5,"members_field5",smumgetfieldname(5) smumdisplayform checkfield6,"members_field6",smumgetfieldname(6) smumdisplayform checkfield7,"members_field7",smumgetfieldname(7) smumdisplayform checkfield8,"members_field8",smumgetfieldname(8) smumdisplayform checkfield9,"members_field9",smumgetfieldname(9) smumdisplayform checkfield10,"members_field10",smumgetfieldname(10) if todo = "" then smumFormAction "<form action="""&smumpage&"?action=register"" method=post name=register language=""JAVASCRIPT"" onsubmit=""return Validate();"">" smumFormHiddenField "todo","register" smumFormOpenTable smumFormHeader "Registration Form <img src=/smusermanager/images/clear.gif width=220 height=1 border=0> <font class=textsize8><img src=/smusermanager/images/redicon.gif border=0> <b>Mandatory <img src=/smusermanager/images/greenicon.gif border=0> <b>Optional" if showfirstname then smumFormFields "First Name"&members_firstnametext,"<input class=fieldbox type=text size=35 name=members_firstname>" if showlastname then smumFormFields "Last Name"&members_lastnametext,"<input class=fieldbox type=text size=35 name=members_lastname>" smumFormFields "User Name <img src=/smusermanager/images/redicon.gif border=0>","<input class=fieldbox type=text size=35 name=members_username>" smumFormFields "Password <img src=/smusermanager/images/redicon.gif border=0>","<input class=fieldbox type=password size=35 name=members_password>" smumFormFields "Confirm Password <img src=/smusermanager/images/redicon.gif border=0>","<input class=fieldbox type=password size=35 name=confirmpassword>" if showaddress then smumFormFields "Address"&members_addresstext,"<input class=fieldbox type=text size=35 name=members_address>" if showcity then smumFormFields "City"&members_citytext,"<input class=fieldbox type=text size=35 name=members_city>" if showstate then smumFormFields "State"&members_statetext,"<input class=fieldbox type=text size=35 name=members_state>" if showcountry then smumFormFields "Country"&members_countrytext,"<input class=fieldbox type=text size=35 name=members_country>" if showemail then smumFormFields "Email"&members_emailtext,"<input class=fieldbox type=text size=35 name=members_email>" if showphone then smumFormFields "Phone"&members_phonetext,"<input class=fieldbox type=text size=35 name=members_phone>" if showzip then smumFormFields "Zip"&members_ziptext,"<input class=fieldbox type=text size=35 name=members_zip>" if shownotes then smumFormFields "Notes or Remarks"&members_notestext,"<textarea class=fieldbox rows=5 cols=35 name=members_notes></textarea>" if showfield1 then smumFormFields smumgetfieldname(1) &members_field1text,"<input class=fieldbox type=text size=35 name=members_field1>" if showfield2 then smumFormFields smumgetfieldname(2) &members_field2text,"<input class=fieldbox type=text size=35 name=members_field2>" if showfield3 then smumFormFields smumgetfieldname(3) &members_field3text,"<input class=fieldbox type=text size=35 name=members_field3>" if showfield4 then smumFormFields smumgetfieldname(4) &members_field4text,"<input class=fieldbox type=text size=35 name=members_field4>" if showfield5 then smumFormFields smumgetfieldname(5) &members_field5text,"<input class=fieldbox type=text size=35 name=members_field5>" if showfield6 then smumFormFields smumgetfieldname(6) &members_field6text,"<input class=fieldbox type=text size=35 name=members_field6>" if showfield7 then smumFormFields smumgetfieldname(7) &members_field7text,"<input class=fieldbox type=text size=35 name=members_field7>" if showfield8 then smumFormFields smumgetfieldname(8) &members_field8text,"<input class=fieldbox type=text size=35 name=members_field8>" if showfield9 then smumFormFields smumgetfieldname(9) &members_field9text,"<input class=fieldbox type=text size=35 name=members_field9>" if showfield10 then smumFormFields smumgetfieldname(10) &members_field10text,"<input class=fieldbox type=text size=35 name=members_field10>" smumFormButtons "<input class=fieldbox type=submit value=""Register"" name=submit>" smumFormCloseTable smumFormClose elseif todo = "register" then smumquery = "select members_username from smum_memberstbl where members_username = '" & members_username & "'" smumOpenrs smumquery,"smumrs",action if smumrs.eof then else adderror = "error occured" smJSalert("The User Name - "& members_username &" is being used by an existing members. Please choose another username.") end if smumClosers(smumrs) if members_password = "" or confirmpassword = "" then else if members_password <> confirmpassword then adderror = "error occured" smJSalert("Password and Confirm Password should match. Please check them.") end if end if if members_email <> "" then if Application("smumcheckduplicateemailids") then smumquery = "select members_email from smum_memberstbl where members_email = '" & members_email & "'" smumOpenrs smumquery,"smumrs",action if smumrs.eof and smumrs.bof then else adderror = "error occured" smJSalert("A Member with "& members_email &" is already registered with us. Please enter another email id.") end if smumClosers(smumrs) end if if Application("smumcheckblockedemailids")then smumquery = "select bei_email from smum_blockedemailidstbl where bei_email = '" & members_email & "'" smumOpenrs smumquery,"smumrs",action if smumrs.eof and smumrs.bof then else adderror = "error occured" smJSalert(members_email &" has been blocked from registering with us.") end if smumClosers(smumrs) end if end if if adderror = "" then if useractive = "" then useractive = smumfalse else if useractive then useractive = smumtrue else useractive = smumfalse end if end if if emailactivation then useractive = smumfalse if useradmin = "" then useradmin = smumfalse else if useradmin then useradmin = smumtrue else useradmin = smumfalse end if end if if useraccesslevel = "" then useraccesslevel = 1 if userexpirydate <> "" then userexpirydate = smumdatechar&userexpirydate&smumdatechar else userexpirydate = smumdatechar&"1/1/9000"&smumdatechar end if smumquery = "insert into smum_memberstbl (members_firstname, members_lastname, members_username, members_password, members_notes, members_address, members_city, members_state, members_country, members_email, members_phone, members_zip, members_expirydate, members_accesslevel, members_active, members_admin, members_field1, members_field2, members_field3, members_field4, members_field5, members_field6, members_field7, members_field8, members_field9, members_field10) values ('"&members_firstname&"','"&members_lastname&"','"&members_username&"','"&members_password&"','"&members_notes&"','"&members_address&"','"&members_city&"','"&members_state&"','"&members_country&"','"&members_email&"','"&members_phone&"','"&members_zip&"',"&userexpirydate&","&useraccesslevel&","&useractive&","&useradmin&",'"&members_field1&"','"&members_field2&"','"&members_field3&"','"&members_field4&"','"&members_field5&"','"&members_field6&"','"&members_field7&"','"&members_field8&"','"&members_field9&"','"&members_field10&"')" smumexecutequery smumquery,action smumquery = "select * from smum_memberstbl where members_username ='"& members_username &"'" smumOpenrs smumquery,"smumrs1",action if not smumrs1.eof then if smumgroups <> "" then call smumregroup(smumgroups,members_username) members_id = smumrs1("members_id") members_email = smumrs1("members_email") members_firstname = smumrs1("members_firstname") messagebody = convertmes(Application("smummesregistermailcontent"), members_id) subject = Application("smumregistermailsubject") if emailactivation then rid = (members_id * 224)/2 messagebody = replace(messagebody,"#$link$#","http://"&application("smumwebsite")& smumpage & "?action=activate&rid="&rid) end if result = sendmail(Application("smumadminemail"), members_email, Application("smumadminname"), members_firstname, Application("smummailserver"), subject, messagebody, Application("smummailcomponent")) if application("smumregisternotification") then messagebody = convertmes(Application("smummesadminmailcontent"), members_id) subject = Application("smummesadminmailsubject") result = sendmail("newmember@mysite.com", Application("smumadminemail"), "New Member Signup", Application("smumadminname"), Application("smummailserver"), subject, messagebody, Application("smummailcomponent")) end if end if smumClosers(smumrs1) if smumregredirect <> "" then Response.Redirect smumregredirect if smumregmessage = "" then smumregmessage = "You have been registered with us." smumFormOpenTable smumFormHeader "Registration" smumFormResponse smumregmessage smumFormCloseTable end if end if End Sub%> Code (markup):
you would normally have the T&Cs open in a popup window or a div infront of the form which then when closed leaves the form in place. If you do actually want to navigate them away from the page and then have a "go back to the form" button on the T&Cs page then the link "to the T&Cs" would need to be a false link that actually submits the form allowing you to temporarily store their answers somewhere (eg cookie, session, temp db table) and then response.redirect to the T&Cs. When they hit the button on the page to go back to the form it will need to recover the data from where you stored it temporarily and populate the form. Personal the open it infront of the form is much easier
Thanks for your reply. I'd prefer to open it in front of the form too, but I don't know how to do that. Can you help me with that? Thanks.