Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5957
Line 44... Line 44...
44 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 44 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
45 
		If IsNull(rsTemp.Fields("user_password")) Then
 45 
		If IsNull(rsTemp.Fields("user_password")) Then
46 
			PassRequireChange = TRUE
 46 
			PassRequireChange = TRUE
47 
		Else
 47 
		Else
48 
			'Password does not Require change
 48 
			'Password does not Require change
- 
 
 49 
            Call Destroy_All_Objects
49 
			Response.Redirect("message.asp?msg=400-1")
 50 
			Response.Redirect("message.asp?msg=400-1")
50 
		End If
 51 
		End If
51 
	End If
 52 
	End If
52 
End Function
 53 
End Function
53 
 
 54 
 
Line 75... Line 76...
75
76
76 
	'If EnCrypt( Request("FRpassc") ) <> parPassword Then
 77 
	'If EnCrypt( Request("FRpassc") ) <> parPassword Then
77
78
78 
	If Request("FRpassc") <> parPassword Then
 79 
	If Request("FRpassc") <> parPassword Then
79 
		' Password confirmation is incorrect
 80 
		' Password confirmation is incorrect
- 
 
 81 
        Call Destroy_All_Objects
80 
		Response.Redirect("message.asp?msg=401-7")
 82 
		Response.Redirect("message.asp?msg=401-7")
81 
	End If
 83 
	End If
82
84
83 
	If PassRequireChange ( parUsername ) Then
 85 
	If PassRequireChange ( parUsername ) Then
84 
		Call Change_Password ( parUsername, parPassword )
 86 
		Call Change_Password ( parUsername, parPassword )
85 
	End If
 87 
	End If
86
88
87 
	' Now Login
 89 
	' Now Login
- 
 
 90 
    Call Destroy_All_Objects
88 
	Response.Redirect( "login.asp?action=true&FRuser="& parUsername &"&rfile="& QStrPar("rfile")  )
 91 
	Response.Redirect( "login.asp?action=true&FRuser="& parUsername &"&rfile="& QStrPar("rfile")  )
89
92
90 
End If
 93 
End If
91 
%>
 94 
%>
92 
<html>
 95 
<html>
Line 194... Line 197...
194 
</table>
 197 
</table>
195 
<!-- FOOTER -->
 198 
<!-- FOOTER -->
196 
<!--#include file="_footer.asp"-->
 199 
<!--#include file="_footer.asp"-->
197 
</body>
 200 
</body>
198 
</html>
 201 
</html>
199 
<%
 - 
 
200 
Call Destroy_All_Objects
 - 
 
201 
%>
 - 
 
202 

            202