Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|		          Confirm Password			 		 |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
Response.Expires = 0
12
%>
13
<!--#include file="common/conf.asp"-->
14
<!--#include file="common/globals.asp"-->
15
<!--#include file="common/qstr.asp"-->
16
<!--#include file="common/common_subs.asp"-->
17
<%
18
'------------ VARIABLE DEFINITION -------------
19
'------------ CONSTANTS DECLARATION -----------
20
'------------ VARIABLE INIT -------------------
21
objAccessControl.objOraSession = OraSession	' Create database link for orasession
22
objAccessControl.objOraDatabase = OraDatabase	' Create database link for oradatabase
23
'------------ CONDITIONS ----------------------
24
'----------------------------------------------
25
%>
26
<%
27
'----------------------------------------------------------------------------------------------------------------------------------------------
28
Sub Logon ()
29
	'On Error Resume Next
30
 
31
	objEH.Try()
32
 
33
	Call objAccessControl.LogonUser ( Request("user_name"), Session(enumUSER_TEMP_VARIABLE) )
34
 
35
	objEH.Catch()
36
 
37
End Sub
38
'----------------------------------------------------------------------------------------------------------------------------------------------
39
Sub UpdatePassword ()
40
 
41
	On Error Resume Next
42
 
43
	objEH.Try()
44
 
45
	Call objAccessControl.SetPassword ( Request("user_name"), Session(enumUSER_TEMP_VARIABLE), Request("cpassword") )
46
 
47
	objEH.Catch()
48
 
49
End Sub
50
'----------------------------------------------------------------------------------------------------------------------------------------------
51
%>
52
<%
53
'------------ RUN BEFORE PAGE RENDER ----------
54
objPMod.PersistInQryString ( aPersistList )
55
 
56
' --- RUN onPostBack ---
57
If CBool(Request("action")) Then
58
	Call UpdatePassword ()
59
 
60
	Call Logon ()
61
 
62
	If objEH.Finally Then
63
		' Clean Temp Session Variable
64
		Session.Contents.Remove(enumUSER_TEMP_VARIABLE)
65
 
66
		If Request("rfile") <> "" Then
67
			Call OpenInWindow ( Request("rfile") &"?LOGIN=ok"& objPMod.ComposeURLWithout("rfile") )
68
		Else
69
			Call OpenInWindow ( "index.asp" )
70
		End If
71
 
72
	End If
73
End If
74
 
75
'----------------------------------------------
76
%>
77
<html>
78
<head>
79
<title>Release Manager</title>
80
<link rel="shortcut icon" href="<%=FavIcon%>"/>
81
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
82
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
83
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
84
<link rel="stylesheet" href="images/navigation.css" type="text/css">
85
<script language="JavaScript" src="images/common.js"></script>
86
 
87
</head>
88
<body leftmargin="0" topmargin="0" onLoad="FormName.cpassword.focus();">
89
<!-- HEADER ++++++++++++++++ -->
90
<!--#include file="_header.asp"-->
91
<!-- +++++++++++++++++++++++ -->
92
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
93
<form name="FormName" method="post" action="<%=ScriptName%>" >
94
  <tr>
95
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
96
  </tr>
97
  <tr>
98
    <td align="center" valign="middle" bgcolor="#FFFFFF">
99
	<!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
100
    <table width="570" border="0" cellspacing="0" cellpadding="0">
101
      <tr>
102
        <td align="right"><a href="<%=ACCESS_MANAGER_URL%>" title="Access Manager Home"><img src="icons/img_auth_by_access_manager.gif" width="103" height="26" hspace="2" vspace="3" border="0"></a></td>
103
      </tr>
104
    </table>
105
      <table width="570" border="0" cellspacing="0" cellpadding="1">
106
        <tr>
107
          <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
108
            <tr>
109
              <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
110
                <tr>
111
                  <td class="body_txt"><span class="body_h1"><img src="icons/i_user_lrg.gif" width="13" height="17" align="absmiddle">&nbsp;Update Password </span> <br>
112
      Please confirm your password. <br>
113
      <hr width="100%" size="1" noshade color="#ACA899">      </td>
114
                </tr>
115
                <tr>
116
                  <td align="center" valign="top">
117
				  <table width="100"  border="0" cellspacing="2" cellpadding="0">
118
                      <tr>
119
                        <td width="10%" nowrap class="form_iname">Confirm Password</td>
120
                        <td width="1%"><input name="cpassword" type="password" class="form_ivalue" size="20"></td>
121
                      </tr>
122
                      <tr>
123
                        <td nowrap class="form_iname" valign="top">&nbsp;</td>
124
                        <td valign="top">&nbsp;</td>
125
                      </tr>
126
                  </table></td>
127
                </tr>
128
                <tr>
129
                  <td background="images/bg_login.gif">
130
				  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
131
                      <tr>
132
                        <td><%=ProgressBar()%></td>
133
                        <td align="right"><input name="btn" type="submit" class="form_btn" value="Update"></td>
134
                      </tr>
135
                  </table></td>
136
                </tr>
137
              </table>
138
			  </td>
139
            </tr>
140
          </table></td>
141
        </tr>
142
      </table>
143
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
144
	  </td>
145
  </tr>
146
  <tr>
147
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
148
  </tr>
149
<%=objPMod.ComposeHiddenTags()%>
150
<input type="hidden" name="user_name" value="<%=Request("user_name")%>">
151
<input type="hidden" name="action" value="true">
152
</form>  
153
</table>
154
<!-- FOOTER ++++++++++++++++++++++ -->
155
<!--#include file="_footer.asp"-->
156
<!-- +++++++++++++++++++++++++++++ -->
157
</body>
158
</html>
159
<%
160
'------------ RUN AFTER PAGE RENDER -----------
161
Set objPMod = Nothing
162
'----------------------------------------------
163
%>
164
<!--#include file="common/destructor.asp"-->