Subversion Repositories DevTools

Rev

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

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