Subversion Repositories DevTools

Rev

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

Rev 5642 Rev 5958
Line 36... Line 36...
36 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 36 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
37
37
38 
	If rsTemp.Fields("domain") <> "" Then
 38 
	If rsTemp.Fields("domain") <> "" Then
39 
		' No need for password
 39 
		' No need for password
40 
		Session("AdditionalParams") = "$USERNAME$,"& objAccessControl.UserName
 40 
		Session("AdditionalParams") = "$USERNAME$,"& objAccessControl.UserName
- 
 
 41 
        Call Destroy_All_Objects
41 
		Response.Redirect("message.asp?msg=202-15")
 42 
		Response.Redirect("message.asp?msg=202-15")
42
43
43 
	Else
 44 
	Else
44 
		If EnCrypt( SSoldpassword ) <> rsTemp.Fields("user_password") Then
 45 
		If EnCrypt( SSoldpassword ) <> rsTemp.Fields("user_password") Then
45 
			' Old Password Mismatch
 46 
			' Old Password Mismatch
- 
 
 47 
            Call Destroy_All_Objects
46 
			Response.Redirect("message.asp?msg=401-8")
 48 
			Response.Redirect("message.asp?msg=401-8")
47 
		End If
 49 
		End If
48
50
49 
	End If
 51 
	End If
50
52
Line 61... Line 63...
61 
<%
 63 
<%
62 
'--- Process submition ---
 64 
'--- Process submition ---
63 
If CBool(QStrPar("action")) Then
 65 
If CBool(QStrPar("action")) Then
64 
	' All mandatory parameters FOUND
 66 
	' All mandatory parameters FOUND
65 
	Call Change_Password ( objAccessControl.UserId, Request("FRoldpassword"), Request("FRpassword") )
 67 
	Call Change_Password ( objAccessControl.UserId, Request("FRoldpassword"), Request("FRpassword") )
66
- 
 
67
- 
 
- 
 
 68 
    Call Destroy_All_Objects
68 
	Response.Redirect("message.asp?msg=200-7")
 69 
	Response.Redirect("message.asp?msg=200-7")
69 
End If
 70 
End If
70 
%>
 71 
%>
71 
<html>
 72 
<html>
72 
<head>
 73 
<head>
Line 198... Line 199...
198 
</table>
 199 
</table>
199 
<!-- FOOTER -->
 200 
<!-- FOOTER -->
200 
<!--#include file="_footer.asp"-->
 201 
<!--#include file="_footer.asp"-->
201 
</body>
 202 
</body>
202 
</html>
 203 
</html>
203 
<%
 - 
 
204 
Call Destroy_All_Objects
 - 
 
205 
%>
 - 
 
206 

            204