<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| SIGN UP | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Sub Sign_Up_User ( SSfullname, SSemail, SSusername, SSpassword, SSdomainauth, SSdomain_name ) Dim SEQ_user_id If User_Name_Exists ( SSusername ) Then ' Username exists Session("AdditionalParams") = "$USERNAME$,"& SSusername Response.Redirect("message.asp?msg=202-14") End If SEQ_user_id = Get_From_DUAL("SEQ_USER_ID.nextval") If SSdomainauth = "" Then SSdomainauth = "N" SSpassword = EnCrypt( SSpassword ) End If SSfullname = Replace( SSfullname, "'", "''") SSemail = Replace( SSemail, "'", "''") objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL " INSERT INTO users (user_id, full_name, user_name, user_password, user_email, domain_auth, domain_name, disabled)"&_ " VALUES ( "& SEQ_user_id &", '"& SSfullname &"', '"& SSusername &"', '"& SSpassword &"', '"& SSemail &"', '"& SSdomainauth &"', '"& SSdomain_name &"', 'Y' )" objEH.CatchORA ( OraSession ) End Sub %> <% '--- Process submition --- If CBool(QStrPar("action")) Then ' All mandatory parameters FOUND Call Sign_Up_User ( Request("FRfullname"), Request("FRemail"), Request("FRusername"), Request("FRpassword"), Request("FRdomainauth"), Request("FRdomain_name") ) Call Send_Email ( Request("FRfullname"), Request("FRemail"), adminEmail, "Release Manager - New Member Signed Up", "Please enable this account for use.", NULL ) Response.Redirect("message.asp?msg=200-6") End If %> Release Manager
Exit
Sign Up
   
   

PERSONAL DETAILS
  Name and Surname
  Email

LOGIN DETAILS		  
  Username Domain User<%=Quick_Help ( "domain_user" )%>
  Domain Name
  Password
  Password Confirm
 



 

<% Call Destroy_All_Objects %>