Subversion Repositories DevTools

Rev

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

Rev 1281 Rev 1337
Line 56... Line 56...
56 
End Sub
 56 
End Sub
57 
%>
 57 
%>
58 
<%
 58 
<%
59 
'--- Process submition ---
 59 
'--- Process submition ---
60 
If CBool(QStrPar("action")) Then
 60 
If CBool(QStrPar("action")) Then
61 
	' All mendatory parameters FOUND
 61 
	' All mandatory parameters FOUND
62 
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
 62 
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
63
63
64 
	If objAccessControl.Domain <> parDomainAuth Then
 64 
	If objAccessControl.Domain <> parDomainAuth Then
65 
		If parDomainAuth = "N" Then
 65 
		If parDomainAuth = "N" Then
66 
			Response.Redirect("members_new_password.asp")
 66 
			Response.Redirect("members_new_password.asp")