Subversion Repositories DevTools

Rev

Rev 3947 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3947 Rev 4217
Line 62... Line 62...
62 
'--- Process submition ---
 62 
'--- Process submition ---
63 
If CBool(QStrPar("action")) Then
 63 
If CBool(QStrPar("action")) Then
64 
	' All mandatory parameters FOUND
 64 
	' All mandatory parameters FOUND
65 
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
 65 
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
66
66
67 
	If objAccessControl.Domain <> parDomainAuth Then
 67 
	If NOT objAccessControl.Domain <> "" Then
68 
		If parDomainAuth = "N" Then
 68 
		If parDomainAuth = "N" Then
69 
			Response.Redirect("members_new_password.asp")
 69 
			Response.Redirect("members_new_password.asp")
70 
		End If
 70 
		End If
71 
	End If
 71 
	End If
72
72