Subversion Repositories DevTools

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|				    	My Details				     |
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/conf.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
<%
20
'------------ ACCESS CONTROL ------------------
21
%>
22
<!--#include file="_access_control_login.asp"-->
23
<!--#include file="_access_control_general.asp"-->
24
<%
25
'------------ Variable Definition -------------
26
Dim parDomainAuth
27
'------------ Constants Declaration -----------
28
'------------ Variable Init -------------------
29
parDomainAuth = QStrPar("FRdomainauth")
30
If parDomainAuth = "" Then parDomainAuth = "N"
31
'----------------------------------------------
32
%>
33
<%
34
Sub Update_Personal_Details ( NNuser_id, SSfullname, SSemail, SSDomainAuth, SSdomain_name )
35
	Dim rsTemp, Query_String
36
	Query_String = _
37
	"SELECT * FROM users WHERE user_id= "& NNuser_id
38
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
39
 
40
	'update fields
41
	rsTemp.Edit
42
	rsTemp.Fields("full_name").Value = SSfullname
43
	rsTemp.Fields("user_email").Value = SSemail
44
	If SSDomainAuth = "N"  AND objAccessControl.Domain <> "" Then
45
		If SSDomainAuth = "Y" Then
46
			rsTemp.Fields("user_password").Value = NULL
47
			rsTemp.Fields("domain").Value = SSdomain_name
48
		Else
49
			rsTemp.Fields("domain").Value = NULL
50
		End If
51
	End If
52
	rsTemp.Update
53
 
54
	rsTemp.Close
55
	Set rsTemp = nothing
56
End Sub
57
%>
58
<%
59
'--- Process submition ---
60
If CBool(QStrPar("action")) Then
61
	' All mendatory parameters FOUND
62
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
63
 
64
	If objAccessControl.Domain <> parDomainAuth Then
65
		If parDomainAuth = "N" Then
66
			Response.Redirect("members_new_password.asp")
67
		End If
68
	End If
69
 
70
	Session.Abandon
71
	Response.Redirect("message.asp?msg=200-9")
72
End If
73
%>
74
<html>
75
<head>
76
<title>Release Manager</title>
77
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
78
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
79
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
80
<link rel="stylesheet" href="images/navigation.css" type="text/css">
81
<script language="JavaScript" src="images/common.js"></script>
82
<!-- TIPS -->
83
<script language="JavaScript" src="images/tipster.js"></script>
84
<script language="JavaScript" src="images/_help_tips.js"></script>
85
<script language="JavaScript">
86
<!--
87
function DisableDomain() {
88
	if (MM_findObj("FRdomainauth").checked) {
89
		MM_findObj("FRdomain_name").disabled=false;
90
		MM_findObj("FRstatus3").value='';
91
	} else {
92
		MM_findObj("FRdomain_name").disabled=true;
93
		MM_findObj("FRstatus3").value='Not Required!';
94
	}
95
}
96
 
97
//-->
98
</script>
99
</head>
100
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
101
<!-- TIPS LAYERS -------------------------------------->
102
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
103
<!----------------------------------------------------->
104
<!-- HEADER -->
105
<%If objAccessControl.UserLogedIn Then%>
106
<div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:1"><a href="#"><img src="images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%> disabled" title="Logout from <%=objAccessControl.UserName%> disabled"></a></div>
107
<%End If%>
108
<table width="100%" border="0" cellspacing="0" cellpadding="0">
109
  <tr> 
110
    <td><a href="index.asp"><img src="images/b_release_manager.jpg" width="467" height="50" border="0"></a></td>
111
    <td valign="bottom" align="right">&nbsp;</td>
112
  </tr>
113
  <tr> 
114
    <td align=left noWrap valign=center width=150 background="images/h_dot.gif" height="1"></td>
115
    <td background="images/h_dot.gif" height="1"></td>
116
  </tr>
117
</table>
118
<!-- BODY ---->
119
<table width="100%" border="0" cellspacing="0" cellpadding="0">
120
  <tr> 
121
    <td width="1%" background="images/bg_member_dark.gif" valign="top"> 
122
      <!-- MEMBERS MENU ---------------------------------------------->
123
	  <!--#include file="members_menu_def.asp"-->
124
	  <%Call Member_Menu( "my details" )%>
125
      <!--  MEMBERS MENU END ------------------------------------------>
126
    </td>
127
    <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>
128
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap> 
129
      <!------------------------------------------->
130
      <br>
131
      <span class="mmb_ttl">Account Details</span><br>
132
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
133
        <form name="chdetails" method="post" action="members_my_details.asp" onSubmit="MM_validateForm('FRfullname','Name and Surname','R','FRemail','Email','RisEmail','FRdomain_name','Domain Name','isDomainName');return document.MM_returnValue">
134
          <tr> 
135
            <td width="1%">&nbsp;</td>
136
            <td><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
137
            <td width="1%">&nbsp;</td>
138
          </tr>
139
          <tr> 
140
            <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>
141
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
142
            <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
143
          </tr>
144
          <tr> 
145
            <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
146
            <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
147
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
148
                <tr> 
149
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
150
                  <td width="1%" nowrap class="form_group" valign="bottom">PERSONAL 
151
                    DETAILS</td>
152
                  <td nowrap width="100%" align="right" class="form_step"><img src="images/h_trsp_dot.gif" width="350" height="10"></td>
153
                </tr>
154
                <tr> 
155
                  <td width="1%">&nbsp;</td>
156
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Name 
157
                    and Surname</td>
158
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
159
                    <input type="text" name="FRfullname" class="form_item" value="<%=objAccessControl.FullName%>">
160
                  </td>
161
                </tr>
162
                <tr> 
163
                  <td width="1%">&nbsp;</td>
164
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Email</td>
165
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
166
                    <input type="text" name="FRemail" class="form_item" value="<%=objAccessControl.UserEmail%>">
167
                  </td>
168
                </tr>
169
 
170
                <tr> 
171
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
172
                  <td width="1%" nowrap class="form_group" valign="bottom"><br>
173
                    LOGIN DETAILS</td>
174
                  <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
175
                </tr>
176
				<tr> 
177
                  <td width="1%">&nbsp;</td>
178
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Username</td>
179
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
180
                    <input type="text" name="FRusername" class="form_item" value="<%=objAccessControl.UserName%>" disabled>
181
                    <input type="checkbox" name="FRdomainauth" value="Y" onClick="DisableDomain();"   <%If objAccessControl.Domain <> "" Then Response.write "checked"%>>
182
                    <span class="form_txt">Domain User</span><%=Quick_Help ( "domain_user" )%></td>
183
                </tr>
184
				<tr> 
185
                  <td width="1%">&nbsp;</td>
186
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Domain Name</td>
187
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
188
                    <input type="text" name="FRdomain_name" class="form_item" <%If objAccessControl.Domain = "" Then Response.write "disabled"%> value="<%=objAccessControl.Domain%>"><input type="text" name="FRstatus3" class="form_status" disabled <%If objAccessControl.Domain = "" Then%>value="Not Required!"<%Else%>value=""<%End If%>>
189
                  </td>
190
                </tr>
191
 
192
 
193
 
194
                <tr> 
195
                  <td width="1%">&nbsp;</td>
196
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
197
                  <td nowrap width="100%"> 
198
                    <input type="hidden" name="action" value="true">
199
                    <input type="submit" name="btn" value=" Apply " class="form_btn">
200
                    <input type="reset" name="btn" value="Reset" class="form_btn">
201
                    <br>
202
                    <br>
203
                  </td>
204
                </tr>
205
              </table>
206
              <br>
207
              <br>
208
            </td>
209
            <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
210
          </tr>
211
          <tr> 
212
            <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
213
            <td background="images/bg_member_dark.gif"></td>
214
            <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>
215
          </tr>
216
        </form>
217
      </table>
218
      <!-------------------------------------------------------->
219
      <br>
220
    </td>
221
    <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>
222
  </tr>
223
  <tr> 
224
    <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>
225
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
226
  </tr>
227
</table>
228
<!-- FOOTER -->
229
<!--#include file="_footer.asp"-->
230
</body>
231
</html>
232
<%
233
Call Destroy_All_Objects
234
%>