Subversion Repositories DevTools

Rev

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

Rev 2 Rev 6
Line 152... Line 152...
152 
			lastRecord = ( startPosition - 1 + MAX_ROWS ) _
 152 
			lastRecord = ( startPosition - 1 + MAX_ROWS ) _
153 
						+ ( CInt( ( startPosition - 1 + MAX_ROWS )/totalRecords > 1) ) * ( ( startPosition - 1 + MAX_ROWS ) - totalRecords )
 153 
						+ ( CInt( ( startPosition - 1 + MAX_ROWS )/totalRecords > 1) ) * ( ( startPosition - 1 + MAX_ROWS ) - totalRecords )
154 
		End If
 154 
		End If
155 
		%>
 155 
		%>
156 
		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 156 
		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
- 
 
 157 
		<%If Request("updated") = "ok" Or Request("removed") = "ok" Then%>
157 
          <tr align="left">
 158 
          <tr>
158 
            <td colspan="2" class="body_row">&nbsp;</td>
 159 
            <td colspan="9" align="center" class="notification_row">
- 
 
 160 
                <%
- 
 
 161 
                If Request("updated") = "ok" Then
- 
 
 162 
                    Response.Write("User Account Details Updated Successfully")
- 
 
 163 
                Else
- 
 
 164 
                    Response.Write("User Account(s) Removed Successfully")
- 
 
 165 
                End If
- 
 
 166 
                %>
- 
 
 167 
            </td>
159 
          </tr>
 168 
          </tr>
- 
 
 169 
        <%End If%>
160 
          <tr>
 170 
          <tr>
161 
            <td align="left" class="body_row">
 171 
            <td align="left" class="body_row">
162 
			<%
 172 
			<%
163 
			If totalRecords > 0 Then
173 
			If totalRecords > 0 Then
164 
				Response.write "Showing "& startPosition &" - "& lastRecord &" of "& totalRecords
 174 
				Response.write "Showing "& startPosition &" - "& lastRecord &" of "& totalRecords
Line 182... Line 192...
182 
            </table></td>
 192 
            </table></td>
183 
            <td width="25%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">Email</td>
 193 
            <td width="25%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">Email</td>
184 
            <td width="25%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
 194 
            <td width="25%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
185 
            <td width="20%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">Domain</td>
 195 
            <td width="20%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">Domain</td>
186 
			<td width="1%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">Last Request</td>
 196 
			<td width="1%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">Last Request</td>
- 
 
 197 
			<td width="1%" align="center" nowrap background="images/bg_table_col.gif" class="body_colhead">Edit</td>
187 
			<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 198 
			<td width="1%" align="center" nowrap background="images/bg_table_col.gif" class="body_colhead">Roles</td>
188 
          </tr>
 199 
          </tr>
189 
		  <%
 200 
		  <%
190 
		  '--- Render rows ---
 201 
		  '--- Render rows ---
191 
		  Do While (NOT rsUser.BOF) AND (NOT rsUser.EOF)
 202 
		  Do While (NOT rsUser.BOF) AND (NOT rsUser.EOF)
192 
		  		If rsUser.RowPosition => (startPosition + MAX_ROWS) Then Exit Do	' Limit the number of rows displayed
 203 
		  		If rsUser.RowPosition => (startPosition + MAX_ROWS) Then Exit Do	' Limit the number of rows displayed
Line 197... Line 208...
197 
            <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>
 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>
198 
            <td nowrap><a href="mailto:<%=rsUser("user_email")%>" class="body_link"><%=rsUser("user_email")%></a></td>
 209 
            <td nowrap><a href="mailto:<%=rsUser("user_email")%>" class="body_link"><%=rsUser("user_email")%></a></td>
199 
            <td class="body_rowg"><%=rsUser("user_name")%></td>
 210 
            <td class="body_rowg"><%=rsUser("user_name")%></td>
200 
            <td class="body_rowg"><%=rsUser("domain")%></td>
 211 
            <td class="body_rowg"><%=rsUser("domain")%></td>
201 
			<td class="body_rowg" nowrap><%=LastRequest ( rsUser("last_request") )%></td>
 212 
			<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>
202 
			<td align="center"><a href="User_Roles.asp?user_id=<%=rsUser("user_id")%>&<%=objPMod.ComposeURL%>" title="See User Roles"><%=LIMG_ROLE%></a></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>
203 
          </tr>
 215 
          </tr>
204 
		  <%rsUser.MoveNext%>
 216 
		  <%rsUser.MoveNext%>
205
217
206 
		  <%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%>
 218 
		  <%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%>
207 
          <tr>
 219 
          <tr>
208 
            <td colspan="8" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 220 
            <td colspan="9" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
209 
          </tr>
 221 
          </tr>
210 
		  <%End If%>
 222 
		  <%End If%>
211
223
212 
		  <%
 224 
		  <%
213 
		  Loop
 225 
		  Loop
Line 219... Line 231...
219
231
220 
		  rsUser.Close()
 232 
		  rsUser.Close()
221 
		  Set rsUser = Nothing
 233 
		  Set rsUser = Nothing
222 
		  %>
 234 
		  %>
223 
          <tr>
 235 
          <tr>
224 
            <td colspan="8" background="images/bg_table_border.gif">
 236 
            <td colspan="9" background="images/bg_table_border.gif">
225 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 237 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
226 
              <tr>
 238 
              <tr>
227 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 239 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
228 
              </tr>
 240 
              </tr>
229 
             </table>
 241 
             </table>