Subversion Repositories DevTools

Rev

Rev 1283 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1283 Rev 3938
Line 38... Line 38...
38
38
39 
	'update fields
 39 
	'update fields
40 
	rsTemp.Edit
 40 
	rsTemp.Edit
41 
	rsTemp.Fields("full_name").Value = SSfullname
 41 
	rsTemp.Fields("full_name").Value = SSfullname
42 
	rsTemp.Fields("user_email").Value = SSemail
 42 
	rsTemp.Fields("user_email").Value = SSemail
- 
 
 43 
 
- 
 
 44 
    ' Removed ability for user to configure domain name
- 
 
 45 
    ' This is done via access manager
- 
 
 46 
    ' Note: Code is suspect anyway. Can clear domain login - but can't set it
43 
	If SSDomainAuth = "N"  AND objAccessControl.Domain <> "" Then
 47 
	'If SSDomainAuth = "N"  AND objAccessControl.Domain <> "" Then
44 
		If SSDomainAuth = "Y" Then
 48 
	'	If SSDomainAuth = "Y" Then
45 
			rsTemp.Fields("user_password").Value = NULL
 49 
	'		rsTemp.Fields("user_password").Value = NULL
46 
			rsTemp.Fields("domain").Value = SSdomain_name
 50 
	'		rsTemp.Fields("domain").Value = SSdomain_name
47 
		Else
 51 
	'	Else
48 
			rsTemp.Fields("domain").Value = NULL
 52 
	'		rsTemp.Fields("domain").Value = NULL
49 
		End If
 53 
	'	End If
50 
	End If
 54 
	'End If
51 
	rsTemp.Update
 55 
	rsTemp.Update
52
56
53 
	rsTemp.Close
 57 
	rsTemp.Close
54 
	Set rsTemp = nothing
 58 
	Set rsTemp = nothing
55 
End Sub
 59 
End Sub
56 
%>
 60 
%>
57 
<%
 61 
<%
58 
'--- Process submition ---
 62 
'--- Process submition ---
59 
If CBool(QStrPar("action")) Then
 63 
If CBool(QStrPar("action")) Then
60 
	' All mendatory parameters FOUND
 64 
	' All mandatory parameters FOUND
61 
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
 65 
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
62
66
63 
	If objAccessControl.Domain <> parDomainAuth Then
 67 
	If objAccessControl.Domain <> parDomainAuth Then
64 
		If parDomainAuth = "N" Then
 68 
		If parDomainAuth = "N" Then
65 
			Response.Redirect("members_new_password.asp")
 69 
			Response.Redirect("members_new_password.asp")
Line 99... Line 103...
99 
</head>
 103 
</head>
100 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 104 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
101 
<!-- TIPS LAYERS -------------------------------------->
 105 
<!-- TIPS LAYERS -------------------------------------->
102 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 106 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
103 
<!----------------------------------------------------->
 107 
<!----------------------------------------------------->
104 
<!-- HEADER -->
 108 
<!-- 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>
 109 
<!--#include file="_header.asp"-->
107 
<%End If%>
 - 
 
108 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
109 
  <tr>
 - 
 
110 
    <td width="1%" background="images/bg_lite_blue.gif"><img src="images/p_header.gif" width="552" height="45"></td>
 - 
 
111 
    <td width="100%" background="images/bg_lite_blue.gif">&nbsp;</td>
 - 
 
112 
    <td width="1%" rowspan="2" valign="bottom" background="images/bg_lite_blue.gif"><a href="Default.asp"><img src="images/dm_logo.gif" alt="Home" title="Home" width="241" height="69" border="0"></a></td>
 - 
 
113 
  </tr>
 - 
 
114 
  <tr>
 - 
 
115 
    <td background="images/p_header_bottom.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
116 
		<%If objAccessControl.UserLogedIn Then%>
 - 
 
117 
        <tr>
 - 
 
118 
          <div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:1"><a href="_Logout.asp"><img src="images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%>" title="Logout from <%=objAccessControl.UserName%>"></a></div>
 110 
<!-- +++++++++++++++++++++++ -->
119 
		  <!--
 - 
 
120 
          <td width="1%"><a href="CommingSoon.asp"><img src="icons/ni_new_product.gif" title="New product has arrived." width="18" height="18" hspace="2" border="0"></a></td>
 - 
 
121 
          <td width="1"><a href="CommingSoon.asp"><img src="icons/ni_notifier.gif" title="Email notification." width="18" height="18" hspace="2" border="0"></a></td>
 - 
 
122 
		  -->
 - 
 
123
- 
 
124 
          <td width="1" align="right"><img src="icons/ni_bar.gif" width="16" height="24"></td>
 - 
 
125 
          <td width="100%" bgcolor="#FFFFFF">&nbsp;</td>
 - 
 
126 
        </tr>
 - 
 
127 
		<%Else%>
 - 
 
128 
		<tr>
 - 
 
129 
          <td width="1" align="right"><img src="icons/ni_bar.gif" width="16" height="24"></td>
 - 
 
130 
          <td width="100%" bgcolor="#FFFFFF">&nbsp;</td>
 - 
 
131 
        </tr>
 - 
 
132 
		<%End If%>
 - 
 
133 
    </table></td>
 - 
 
134 
    <td align="right" bgcolor="#FFFFFF"><%=ProgressBar()%></td>
 - 
 
135 
  </tr>
 - 
 
136 
</table>
 - 
 
137 
<!-- BODY ---->
 111 
<!-- BODY ---->
138 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 112 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
139 
  <tr>
113 
  <tr>
140 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
114 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
141 
      <!-- MEMBERS MENU ---------------------------------------------->
 115 
      <!-- MEMBERS MENU ---------------------------------------------->
Line 190... Line 164...
190 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 164 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
191 
                  <td width="1%" nowrap class="form_group" valign="bottom"><br>
 165 
                  <td width="1%" nowrap class="form_group" valign="bottom"><br>
192 
                    LOGIN DETAILS</td>
 166 
                    LOGIN DETAILS</td>
193 
                  <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
 167 
                  <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
194 
                </tr>
 168 
                </tr>
- 
 
 169 
 
- 
 
 170 
                <!-- User can no longer enter data for these fields. Fields are disabled or hidden -->
195 
				<tr>
171 
				<tr>
196 
                  <td width="1%">&nbsp;</td>
 172 
                  <td width="1%">&nbsp;</td>
197 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Username</td>
 173 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Username</td>
198 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
174 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
199 
                    <input type="text" name="FRusername" class="form_item" value="<%=objAccessControl.UserName%>" disabled>
 175 
                    <input disabled type="text" name="FRusername" class="form_item" value="<%=objAccessControl.UserName%>" disabled>
200 
                    <input type="checkbox" name="FRdomainauth" value="Y" onClick="DisableDomain();"   <%If objAccessControl.Domain <> "" Then Response.write "checked"%>>
 176 
                    <input disabled type="checkbox" name="FRdomainauth" value="Y" onClick="DisableDomain();"   <%If objAccessControl.Domain <> "" Then Response.write "checked"%>>
201 
                    <span class="form_txt">Domain User</span></td>
 177 
                    <span class="form_txt">Domain User</span><%=Quick_Help ( "domain_user" )%></td>
202 
                </tr>
 178 
                </tr>
203 
				<tr>
179 
				<tr>
204 
                  <td width="1%">&nbsp;</td>
 180 
                  <td width="1%">&nbsp;</td>
205 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Domain Name</td>
 181 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Domain Name</td>
206 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
182 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
207 
                    <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%>>
 183 
                    <input disabled type="text" name="FRdomain_name" class="form_item" <%If objAccessControl.Domain = "" Then Response.write "disabled"%> value="<%=objAccessControl.Domain%>">
- 
 
 184 
                    <span hidden class="form_status">
- 
 
 185 
                        <%If objAccessControl.Domain = "" Then Response.Write "Not Required!"%>
- 
 
 186 
                    </span>
208 
                  </td>
 187 
                  </td>
209 
                </tr>
 188 
                </tr>
210
189
211
- 
 
212
- 
 
213 
                <tr>
190 
                <tr>
214 
                  <td width="1%">&nbsp;</td>
 191 
                  <td width="1%">&nbsp;</td>
215 
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 192 
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
216 
                  <td nowrap width="100%">
193 
                  <td nowrap width="100%">
217 
                    <input type="hidden" name="action" value="true">
 194 
                    <input type="hidden" name="action" value="true">
218 
                    <input type="submit" name="btn" value=" Apply " class="form_btn">
 195 
                    <input type="submit" name="btn" value=" Apply " class="form_btn">