| Line 22... |
Line 22... |
| 22 |
'------------ VARIABLE DEFINITION -------------
|
22 |
'------------ VARIABLE DEFINITION -------------
|
| 23 |
Dim rsUser
|
23 |
Dim rsUser
|
| 24 |
'Dim objBtnControl
|
24 |
'Dim objBtnControl
|
| 25 |
'Dim aTabBtnsDef
|
25 |
'Dim aTabBtnsDef
|
| 26 |
'------------ CONSTANTS DECLARATION -----------
|
26 |
'------------ CONSTANTS DECLARATION -----------
|
| 27 |
'Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
- |
|
| 28 |
'Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
- |
|
| 29 |
'Const LIMG_ROLE = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
- |
|
| 30 |
'------------ VARIABLE INIT -------------------
|
27 |
'------------ VARIABLE INIT -------------------
|
| 31 |
'Set objBtnControl = New ActionButtonControl
|
28 |
'Set objBtnControl = New ActionButtonControl
|
| 32 |
'------------ CONDITIONS ----------------------
|
29 |
'------------ CONDITIONS ----------------------
|
| 33 |
'----------------------------------------------
|
30 |
'----------------------------------------------
|
| 34 |
%>
|
31 |
%>
|
| Line 82... |
Line 79... |
| 82 |
<%
|
79 |
<%
|
| 83 |
'-- Define Action buttons on this tab
|
80 |
'-- Define Action buttons on this tab
|
| 84 |
aTabBtnsDef = Array("btnNewAccount", "btnRemoveAccount", "height=14", "btnDisableAccount" )
|
81 |
aTabBtnsDef = Array("btnNewAccount", "btnRemoveAccount", "height=14", "btnDisableAccount" )
|
| 85 |
|
82 |
|
| 86 |
Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
|
83 |
Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
|
| - |
|
84 |
If NOT canActionControl("canCreateUser") Then objBtnControl.AllActive = "N"
|
| 87 |
|
85 |
|
| 88 |
objBtnControl.Render( aTabBtnsDef )
|
86 |
objBtnControl.Render( aTabBtnsDef )
|
| 89 |
%>
|
87 |
%>
|
| 90 |
<!-- +++++++++++++++++++++++++++++++++++ -->
|
88 |
<!-- +++++++++++++++++++++++++++++++++++ -->
|
| 91 |
</td>
|
89 |
</td>
|
| Line 208... |
Line 206... |
| 208 |
<td nowrap class="body_row"><a href="User_General.asp?user_id=<%=rsUser("user_id")%>&<%=objPMod.ComposeURL%>" class="body_link"><%=Eval( rsUser("user_image") ) & rsUser("full_name")%></a></td>
|
206 |
<td nowrap class="body_row"><a href="User_General.asp?user_id=<%=rsUser("user_id")%>&<%=objPMod.ComposeURL%>" class="body_link"><%=Eval( rsUser("user_image") ) & rsUser("full_name")%></a></td>
|
| 209 |
<td nowrap><a href="mailto:<%=rsUser("user_email")%>" class="body_link"><%=rsUser("user_email")%></a></td>
|
207 |
<td nowrap><a href="mailto:<%=rsUser("user_email")%>" class="body_link"><%=rsUser("user_email")%></a></td>
|
| 210 |
<td class="body_rowg"><%=rsUser("user_name")%></td>
|
208 |
<td class="body_rowg"><%=rsUser("user_name")%></td>
|
| 211 |
<td class="body_rowg"><%=rsUser("domain")%></td>
|
209 |
<td class="body_rowg"><%=rsUser("domain")%></td>
|
| 212 |
<td class="body_rowg" nowrap><%=LastRequest ( rsUser("last_request") )%></td>
|
210 |
<td class="body_rowg" nowrap><%=LastRequest ( rsUser("last_request") )%></td>
|
| 213 |
<td align="center"><a href="javascript:;" onClick="MM_openBrWindow('wEditAccount.asp?user_id=<%=rsUser("user_id")%>&rfile=<%=SCRIPT_NAME%>&<%=objPMod.ComposeURL%>','EditAccount','scrollbars=yes,resizable=yes,width=600,height=350')"><%=LIMG_EDIT%></a></td>
|
211 |
<td align="center">
|
| - |
|
212 |
<% If canActionControl("canEditUserDetails") Then%>
|
| - |
|
213 |
<a href="javascript:;" onClick="MM_openBrWindow('wEditAccount.asp?user_id=<%=rsUser("user_id")%>&rfile=<%=SCRIPT_NAME%>&<%=objPMod.ComposeURL%>','EditAccount','scrollbars=yes,resizable=yes,width=600,height=350')"><%=LIMG_EDIT%></a>
|
| - |
|
214 |
<%Else%>
|
| - |
|
215 |
<%=LIMG_EDIT_OFF%>
|
| - |
|
216 |
<%End If%>
|
| - |
|
217 |
</td>
|
| 214 |
<td align="center"><a href="User_Roles.asp?user_id=<%=rsUser("user_id")%>&<%=objPMod.ComposeURL%>" title="See User Roles"><%=LIMG_ROLE%></a></td>
|
218 |
<td align="center"><a href="User_Roles.asp?user_id=<%=rsUser("user_id")%>&<%=objPMod.ComposeURL%>" title="See User Roles"><%=LIMG_ROLE%></a></td>
|
| 215 |
</tr>
|
219 |
</tr>
|
| 216 |
<%rsUser.MoveNext%>
|
220 |
<%rsUser.MoveNext%>
|
| 217 |
|
221 |
|
| 218 |
<%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%>
|
222 |
<%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%>
|