Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
17 rsolanki 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|				    	Change Password			     |
6
'|                                      			 |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0	' always load the page, dont store
13
%>
14
<!--#include file="common/config.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/qstr.asp"-->
18
<!--#include file="common/common_subs.asp"-->
19
<!--#include file="sec/Crypt.asp"-->
20
<%
21
'------------ ACCESS CONTROL ------------------
22
%>
23
 
24
<!--#include file="_access_control_general.asp"-->
25
<%
26
'------------ Variable Definition -------------
27
'------------ Constants Declaration -----------
28
'------------ Variable Init -------------------
29
'----------------------------------------------
30
%>
31
<%
32
Sub Change_Password ( NNuser_id, SSoldpassword, SSpassword )
33
	Dim rsTemp, Query_String
34
	Query_String = _
35
	"SELECT * FROM users WHERE user_id= "& NNuser_id
36
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
37
 
3947 dpurdie 38
	If rsTemp.Fields("domain") <> "" Then
17 rsolanki 39
		' No need for password
3947 dpurdie 40
		Session("AdditionalParams") = "$USERNAME$,"& objAccessControl.UserName
17 rsolanki 41
		Response.Redirect("message.asp?msg=202-15")
42
 
3947 dpurdie 43
	Else
17 rsolanki 44
		If EnCrypt( SSoldpassword ) <> rsTemp.Fields("user_password") Then
45
			' Old Password Mismatch
46
			Response.Redirect("message.asp?msg=401-8")
47
		End If
48
 
49
	End If
50
 
51
	' All conditions mat. Change password
52
	'update fields
53
	rsTemp.Edit
54
	rsTemp.Fields("user_password").Value = EnCrypt( SSpassword )
55
	rsTemp.Update
56
 
57
	rsTemp.Close
58
	Set rsTemp = nothing
59
End Sub
60
%>
61
<%
62
'--- Process submition ---
63
If CBool(QStrPar("action")) Then
3947 dpurdie 64
	' All mandatory parameters FOUND
65
	Call Change_Password ( objAccessControl.UserId, Request("FRoldpassword"), Request("FRpassword") )
17 rsolanki 66
 
67
 
68
	Response.Redirect("message.asp?msg=200-7")
69
End If
70
%>
71
<html>
72
<head>
73
<title>Release Manager</title>
74
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
75
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
29 jtweddle 76
<link rel="stylesheet" href="scripts/deployment_manager.css" type="text/css">
17 rsolanki 77
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
78
<link rel="stylesheet" href="images/navigation.css" type="text/css">
29 jtweddle 79
<script language="JavaScript" src="scripts/common.js"></script>
17 rsolanki 80
<!-- TIPS -->
81
<script language="JavaScript" src="images/tipster.js"></script>
82
<script language="JavaScript" src="images/_help_tips.js"></script>
83
</head>
84
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
85
<!-- TIPS LAYERS -------------------------------------->
86
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
87
<!----------------------------------------------------->
3947 dpurdie 88
<!-- HEADER ++++++++++++++++ -->
89
<!--#include file="_header.asp"-->
90
<!-- +++++++++++++++++++++++ -->
17 rsolanki 91
<!-- BODY ---->
92
<table width="100%" border="0" cellspacing="0" cellpadding="0">
93
  <tr> 
94
    <td width="1%" background="images/bg_member_dark.gif" valign="top"> 
95
      <!-- MEMBERS MENU ---------------------------------------------->
96
	  <!--#include file="members_menu_def.asp"-->
97
	  <%Call Member_Menu( "my details" )%>
98
      <!--  MEMBERS MENU END ------------------------------------------>
99
    </td>
100
    <td width="1%" valign="top" background="images/bg_member_light.gif"><a href="index.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td>
101
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap> 
102
      <!------------------------------------------->
103
      <br>
104
      <span class="mmb_ttl">Change Password</span><br>
105
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
106
        <form name="chpass" method="post" action="members_change_password.asp">
107
          <tr> 
108
            <td width="1%">&nbsp;</td>
109
            <td><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
110
            <td width="1%">&nbsp;</td>
111
          </tr>
112
          <tr> 
113
            <td align="left" valign="top" width="1%" background="images/bg_member_dark.gif"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
114
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
115
            <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
116
          </tr>
117
          <tr> 
118
            <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
119
            <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
120
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
121
                <tr> 
122
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
123
                  <td width="1%" nowrap class="form_group" valign="bottom">&nbsp;</td>
124
                  <td nowrap width="100%" align="right" class="form_step"><img src="images/h_trsp_dot.gif" width="350" height="10"></td>
125
                </tr>
126
                <tr> 
127
                  <td width="1%">&nbsp;</td>
3947 dpurdie 128
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">OLD Password</td>
17 rsolanki 129
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
130
                    <input type="password" name="FRoldpassword" class="form_item">
131
                  </td>
132
                </tr>
133
                <tr> 
134
                  <td width="1%">&nbsp;</td>
135
                  <td width="1%" nowrap class="form_field">&nbsp;</td>
136
                  <td nowrap width="100%">&nbsp;</td>
137
                </tr>
138
                <tr> 
139
                  <td width="1%">&nbsp;</td>
3947 dpurdie 140
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">NEW Password</td>
17 rsolanki 141
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
142
                    <input type="password" name="FRpassword" class="form_item">
143
                  </td>
144
                </tr>
145
                <tr> 
146
                  <td width="1%">&nbsp;</td>
3947 dpurdie 147
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">NEW Password Confirm </td>
17 rsolanki 148
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
149
                    <input type="password" name="FRpasswordc" class="form_item">
150
                  </td>
151
                </tr>
3947 dpurdie 152
 
153
                <%If (objAccessControl.Domain <> "") Then %>
154
                  <td width="1%">&nbsp;</td>
155
                  <td width="1%" nowrap class="form_field err_alert" colspan=2>
156
                  The User Password cannot be managed from Release Manager<br>as the User is configured to use Domain Authentication</td>
157
                </tr>
158
                <% End If %>
159
 
17 rsolanki 160
                <tr> 
161
                  <td width="1%">&nbsp;</td>
162
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
163
                  <td nowrap width="100%"> 
164
                    <input type="hidden" name="action" value="true">
3947 dpurdie 165
                    <%If (objAccessControl.Domain <> "") Then %>
166
                        <input disabled type="submit" name="btn" value="Change" class="form_btn_disabled" >
167
                    <% Else %>
168
                        <input type="submit" name="btn" value="Change" class="form_btn" onClick="MM_validateForm('FRoldpassword','OLD Password','RisCleanStr','FRpassword','NEW Password','RisCleanStrisChangePasswordinLength6:');return document.MM_returnValue">
169
                    <% End If %>
17 rsolanki 170
                    <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="history.back();">
171
                    <br>
172
                    <br>
173
                  </td>
174
                </tr>
175
              </table>
176
              <br>
177
              <br>
178
            </td>
179
            <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
180
          </tr>
181
          <tr> 
182
            <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
183
            <td background="images/bg_member_dark.gif"></td>
184
            <td width="1%" background="images/bg_member_dark.gif" valign="bottom" align="right"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
185
          </tr>
186
        </form>
187
      </table>
188
      <!-------------------------------------------------------->
189
      <br>
190
    </td>
191
    <td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"><img src="images/bg_img_member.gif" width="160" height="230" vspace="10" hspace="10"></td>
192
  </tr>
193
  <tr> 
194
    <td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td>
195
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
196
  </tr>
197
</table>
198
<!-- FOOTER -->
199
<!--#include file="_footer.asp"-->
200
</body>
201
</html>
202
<%
203
Call Destroy_All_Objects
204
%>