Subversion Repositories DevTools

Rev

Rev 1281 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1281 Rev 1337
Line 54... Line 54...
54 
End Sub
 54 
End Sub
55 
%>
 55 
%>
56 
<%
 56 
<%
57 
'--- Process submition ---
 57 
'--- Process submition ---
58 
If CBool(QStrPar("action")) Then
 58 
If CBool(QStrPar("action")) Then
59 
   ' All mendatory parameters FOUND
 59 
   ' All mandatory parameters FOUND
60 
   Call Sign_Up_User ( Request("FRfullname"), Request("FRemail"), Request("FRusername"), Request("FRpassword"), Request("FRdomainauth"),  Request("FRdomain_name") )
 60 
   Call Sign_Up_User ( Request("FRfullname"), Request("FRemail"), Request("FRusername"), Request("FRpassword"), Request("FRdomainauth"),  Request("FRdomain_name") )
61 
   Call Send_Email ( Request("FRfullname"), Request("FRemail"), adminEmail, "Release Manager - New Member Signed Up", "Please enable this account for use.", NULL )
 61 
   Call Send_Email ( Request("FRfullname"), Request("FRemail"), adminEmail, "Release Manager - New Member Signed Up", "Please enable this account for use.", NULL )
62 
 
 62 
 
63 
   Response.Redirect("message.asp?msg=200-6")
 63 
   Response.Redirect("message.asp?msg=200-6")
64 
End If
 64 
End If