Subversion Repositories DevTools

Rev

Rev 6508 | Rev 6579 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6508 Rev 6510
Line 137... Line 137...
137
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
137
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
138
<%
138
<%
139
		Dim startPosition, pageNumber, navigator, totalRecords, lastRecord
139
		Dim startPosition, pageNumber, navigator, totalRecords, lastRecord
140
		Const MAX_ROWS = 50	' Maximum number of rows displayed
140
		Const MAX_ROWS = 50	' Maximum number of rows displayed
141
 
141
 
142
		OraDatabase.Parameters.Add "APP_ID", 			Request("app_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
142
		OraDatabase.Parameters.Add "APP_ID", 			APPLICATION_ID, 			ORAPARM_INPUT, ORATYPE_NUMBER
143
 
143
 
144
		'--- Set filters ---
144
		'--- Set filters ---
145
		If Request("filter") <> "" Then
145
		If Request("filter") <> "" Then
146
			OraDatabase.Parameters.Add "FULL_NAME", 	"%"& Request("filter") &"%",	ORAPARM_INPUT, ORATYPE_VARCHAR2
146
			OraDatabase.Parameters.Add "FULL_NAME", 	"%"& Request("filter") &"%",	ORAPARM_INPUT, ORATYPE_VARCHAR2
147
			OraDatabase.Parameters.Add "USER_NAME", 	Request("filter") &"%",			ORAPARM_INPUT, ORATYPE_VARCHAR2
147
			OraDatabase.Parameters.Add "USER_NAME", 	Request("filter") &"%",			ORAPARM_INPUT, ORATYPE_VARCHAR2
Line 223... Line 223...
223
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
223
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
224
        <div style="min-height:300px;max-height:500px;overflow:scroll;">
224
        <div style="min-height:300px;max-height:500px;overflow:scroll;">
225
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
225
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
226
          <tr>
226
          <tr>
227
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
227
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
228
            <td width="30%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Full Name </td>
228
            <td width="30%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">Full Name </td>
229
            <td width="30%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
229
            <td width="30%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
230
            <td width="40%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Domain</td>
230
            <td width="30%" align="left" nowrap background="images/bg_table_col.gif" class="body_col">User Email</td>
231
          </tr>
231
          </tr>
232
		  <%
232
		  <%
233
		  '--- Render rows ---
233
		  '--- Render rows ---
234
		  Do While (NOT rsUser.BOF) AND (NOT rsUser.EOF)
234
		  Do While (NOT rsUser.BOF) AND (NOT rsUser.EOF)
235
		  		If rsUser.RowPosition => (startPosition + MAX_ROWS) Then Exit Do	' Limit the number of rows displayed
235
		  		If rsUser.RowPosition => (startPosition + MAX_ROWS) Then Exit Do	' Limit the number of rows displayed
236
		  %>
236
		  %>
237
          <tr>
237
          <tr>
238
		  	<td align="center"><input type="checkbox" name="user_id_list" value="<%=rsUser("user_id")%>" <%If rsUser("user_id") < 1 Then%>disabled<%End If%>></td>
238
		  	<td align="center"><input type="checkbox" name="user_id_list" value="<%=rsUser("user_id")%>" <%If rsUser("user_id") < 1 Then%>disabled<%End If%>></td>
239
            <td nowrap class="body_row"><%=Eval( rsUser("user_image") )  &  rsUser("full_name")%></td>
239
            <td nowrap class="body_row"><%=Eval( rsUser("user_image") )  &  rsUser("full_name")%></td>
240
            <td class="body_rowg"><%=rsUser("user_name")%></td>
240
            <td class="body_rowg"><%=rsUser("user_name")%></td>
241
            <td class="body_rowg"><%=rsUser("domain")%></td>
241
            <td class="body_rowg"><%=rsUser("user_email")%></td>
242
          </tr>
242
          </tr>
243
		  <%rsUser.MoveNext%>
243
		  <%rsUser.MoveNext%>
244
 
244
 
245
		  <%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%>
245
		  <%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%>
246
          <tr>
246
          <tr>