1. Advertising
    y u no do it?

    Advertising (learn more)

    Advertise virtually anything here, with CPM banner ads, CPM email ads and CPC contextual links. You can target relevant areas of the site and show ads based on geographical location of the user if you wish.

    Starts at just $1 per CPM or $0.10 per CPC.

How/where to add a link to registration page

Discussion in 'C#' started by chrisj, Nov 6, 2007.

  1. #1
    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.
    SEMrush
    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&nbsp;<img src=/smusermanager/images/redicon.gif border=0>","<input class=fieldbox type=text size=35 name=members_username>"
    		smumFormFields "Password&nbsp;<img src=/smusermanager/images/redicon.gif border=0>","<input class=fieldbox type=password size=35 name=members_password>"
    		smumFormFields "Confirm Password&nbsp;<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):
     
    chrisj, Nov 6, 2007 IP
    SEMrush
  2. AstarothSolutions

    AstarothSolutions Peon

    Messages:
    2,681
    Likes Received:
    77
    Best Answers:
    0
    Trophy Points:
    0
    #2
    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
     
    AstarothSolutions, Nov 7, 2007 IP
  3. chrisj

    chrisj Well-Known Member

    Messages:
    606
    Likes Received:
    0
    Best Answers:
    0
    Trophy Points:
    101
    #3
    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.
     
    chrisj, Nov 7, 2007 IP