WebSVN – DevTools – Diff – /ManagerSuite/Access_Manager/trunk/MultiRole_Members.asp

 <%@LANGUAGE="VBSCRIPT"%>
 <%
 '=====================================================
 '|                                                   |
-'|			          MultiRole Members				 |
+'|                    MultiRole Members              |
 '|                                                   |
 '=====================================================
 %>
 <%
 Option explicit
 <%
 '------------ RUN BEFORE PAGE RENDER ----------
 Call GetApplicationDetails ( parApp_id, objAppCollector )
 If (Request("action") <> "") Then
-	'-- Select Action
+    '-- Select Action
-	Select Case Request("action")
+    Select Case Request("action")
-		Case "btnSubUser"
+        Case "btnSubUser"
-			Call OpenInWindow ( "_RemoveApplicationUser.asp?user_id_list="& Request("user_id_list") &"&everyone="& Request("everyone") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
+            Call OpenInWindow ( "_RemoveApplicationUser.asp?user_id_list="& Request("user_id_list") &"&everyone="& Request("everyone") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
-	End Select
+    End Select
 End If
 '----------------------------------------------
 %>
 <html>
 <head>
 <!--#include file="_header.asp"-->
 <!-- +++++++++++++++++++++++++++++ -->
 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
   <tr>
     <td width="1%" valign="top" background="images/bg_bage_pane.gif">
-	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
+    <!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
-	<!--#include file="_treeNavigator.asp"-->
+    <!--#include file="_treeNavigator.asp"-->
-	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-	</td>
+    </td>
     <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
     <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
-	<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
+    <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
       <tr>
         <td background="images/bg_drk_bage_pane.gif">
-		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
+          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
             <tr>
               <td nowrap class="body_txt">
-			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
+                <!-- BUTTONS CONTROL +++++++++++++++++++ -->
-				<%
+                <%
-				'-- Define Action buttons on this tab
+                '-- Define Action buttons on this tab
-				'aTabBtnsDef = Array("btnAddUser", "btnSubUser")
+                'aTabBtnsDef = Array("btnAddUser", "btnSubUser")
-				'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
+                'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
-				'objBtnControl.Render( aTabBtnsDef )
+                'objBtnControl.Render( aTabBtnsDef )
-				%>
+                %>
-				<!-- +++++++++++++++++++++++++++++++++++ -->
+                <!-- +++++++++++++++++++++++++++++++++++ -->
-			  </td>
+              </td>
               <td align="right" nowrap class="section_ttl"><%=objAppCollector.Item ("application_name")%></td>
             </tr>
           </table>
-		</td>
+        </td>
       </tr>
-	  <tr>
+      <tr>
         <td class="menu_crumbttl"><img src="images/i_user_lrg.gif" border="0" align="absmiddle" hspace="4"><strong>Role Members</strong></td>
       </tr>
       <tr>
         <td>
-		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+         <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-		 <%
+         <%
-		Dim startPosition, pageNumber, navigator, totalRecords, lastRecord
+        Dim startPosition, pageNumber, navigator, totalRecords, lastRecord, listCount
-		Const MAX_ROWS = 50	' Maximum number of rows displayed
+        Const MAX_ROWS = 50 ' Maximum number of rows displayed
+        listCount = UBound(Split(Request("role_id_list"),",")) + 1
-		'--- Set filters ---
+        '--- Set filters ---
-		OraDatabase.Parameters.Add "ROLE_ID_LIST", 	Request("role_id_list"),	ORAPARM_INPUT, ORATYPE_NUMBER
+        OraDatabase.Parameters.Add "ROLE_ID_LIST",  Request("role_id_list"),    ORAPARM_INPUT, ORATYPE_NUMBER
-		OraDatabase.Parameters.Add "ROLE_SUM", 		UBound(Split(Request("role_id_list"),",")) + 1 ,	ORAPARM_INPUT, ORATYPE_NUMBER
+        OraDatabase.Parameters.Add "ROLE_SUM",      listCount,                  ORAPARM_INPUT, ORATYPE_NUMBER
-		Set rsUser = OraDatabase.DbCreateDynaset( GetQuery ("MultiRoleMembers.sql") , ORADYN_DEFAULT )
+        Set rsUser = OraDatabase.DbCreateDynaset( GetQuery ("MultiRoleMembers.sql") , ORADYN_DEFAULT )
-		OraDatabase.Parameters.Remove "ROLE_ID_LIST"
+        OraDatabase.Parameters.Remove "ROLE_ID_LIST"
-		OraDatabase.Parameters.Remove "ROLE_SUM"
+        OraDatabase.Parameters.Remove "ROLE_SUM"
-		'--- Get page number ---
+        '--- Get page number ---
-		pageNumber = 0
+        pageNumber = 0
-		If Request("pg") <> "" Then
+        If Request("pg") <> "" Then
-		pageNumber = CInt(Request("pg"))
+        pageNumber = CInt(Request("pg"))
-		End If
+        End If
-		'--- Set Cursor start position ---
+        '--- Set Cursor start position ---
-		startPosition = pageNumber * MAX_ROWS + 1
+        startPosition = pageNumber * MAX_ROWS + 1
-		If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then
+        If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then
-			rsUser.MoveTo ( startPosition )		' Set starting cursor point
+            rsUser.MoveTo ( startPosition )     ' Set starting cursor point
-		End If
+        End If
-		'--- Construct Navigator
+        '--- Construct Navigator
-		navigator = ""
+        navigator = ""
-		If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then
+        If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then
-			totalRecords = rsUser.RecordCount	' Get total number of records
+            totalRecords = rsUser.RecordCount   ' Get total number of records
-			'--- Create "Previous" link
+            '--- Create "Previous" link
-			If pageNumber > 0 Then
+            If pageNumber > 0 Then
-				navigator = navigator &"<a href='"& SCRIPT_NAME &"?pg="& pageNumber - 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Previous Page'>&laquo; Previous</a>"
+                navigator = navigator &"<a href='"& SCRIPT_NAME &"?pg="& pageNumber - 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Previous Page'>&laquo; Previous</a>"
-			End If
+            End If
-			'--- Create "Next" link
+            '--- Create "Next" link
-			If ( startPosition + MAX_ROWS ) < totalRecords Then
+            If ( startPosition + MAX_ROWS ) < totalRecords Then
-				navigator = navigator &"&nbsp;&nbsp;<a href='"& SCRIPT_NAME &"?pg="& pageNumber + 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Next Page'>Next &raquo;</a>"
+                navigator = navigator &"&nbsp;&nbsp;<a href='"& SCRIPT_NAME &"?pg="& pageNumber + 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Next Page'>Next &raquo;</a>"
-			End If
+            End If
-		End If
+        End If
-		'--- Calculate Last Record ---
+        '--- Calculate Last Record ---
-		If totalRecords > 0 Then
+        If totalRecords > 0 Then
-			lastRecord = ( startPosition - 1 + MAX_ROWS ) _
+            lastRecord = ( startPosition - 1 + MAX_ROWS ) _
-						+ ( CInt( ( startPosition - 1 + MAX_ROWS )/totalRecords > 1) ) * ( ( startPosition - 1 + MAX_ROWS ) - totalRecords )
+                        + ( CInt( ( startPosition - 1 + MAX_ROWS )/totalRecords > 1) ) * ( ( startPosition - 1 + MAX_ROWS ) - totalRecords )
-		End If
+        End If
-		%>
+        %>
-		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
+        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
           <tr align="left">
             <td colspan="2" class="body_row">&nbsp;</td>
           </tr>
           <tr>
             <td align="left" class="body_row">
-			<%
+            <%
-			If totalRecords > 0 Then
+            If totalRecords > 0 Then
-				Response.write "Showing "& startPosition &" - "& lastRecord &" of "& totalRecords
+                Response.write "Showing "& startPosition &" - "& lastRecord &" of "& totalRecords
-			Else
+            Else
-				Response.write "No Results."
+                Response.write "No Results."
-			End If
+            End If
-			%></td>
+            %></td>
             <td align="right" class="body_scol"><%=navigator%></td>
           </tr>
         </table>
+         <%
+         If listCount > 1 Then
+            Call Messenger ( "There are no users common to all the selected Roles", 3, 400 )
+         Else
+         %>
-		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+         <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
+         <table width="100%"  border="0" cellspacing="3" cellpadding="0">
           <tr>
-		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
+            <td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
             <td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
             <td width="30%" background="images/bg_table_border.gif">
-			<table width="100%"  border="0" cellspacing="1" cellpadding="2">
+            <table width="100%"  border="0" cellspacing="1" cellpadding="2">
               <tr>
                 <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Full Name </td>
               </tr>
             </table></td>
             <td width="25%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Email</td>
             <td width="25%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
             <td width="20%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Domain</td>
-			<td width="1%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Last Request</td>
+            <td width="1%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Last Request</td>
-			<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
+            <td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
           </tr>
-		  <%If (Request("filter") = "") AND (rsUser.RecordCount > 0) Then%>
+          <%If (Request("filter") = "") AND (rsUser.RecordCount > 0) Then%>
-		  <tr>
+          <tr>
-		  	<td align="center" background="images/bg_table_col.gif"><input type="checkbox" name="everyone" value="Y"></td>
+            <td align="center" background="images/bg_table_col.gif"><input type="checkbox" name="everyone" value="Y"></td>
-			<td background="images/bg_table_col.gif"></td>
+            <td background="images/bg_table_col.gif"></td>
             <td nowrap class="body_row" background="images/bg_table_col.gif"><img src="images/i_accounts.gif" width="16" height="14" border="0" hspace="4" align="absmiddle">Everyone</td>
             <td background="images/bg_table_col.gif"></td>
-			<td background="images/bg_table_col.gif"></td>
+            <td background="images/bg_table_col.gif"></td>
-			<td background="images/bg_table_col.gif"></td>
+            <td background="images/bg_table_col.gif"></td>
-			<td background="images/bg_table_col.gif"></td>
+            <td background="images/bg_table_col.gif"></td>
-			<td background="images/bg_table_col.gif"></td>
+            <td background="images/bg_table_col.gif"></td>
-			<td background="images/bg_table_col.gif"></td>
+            <td background="images/bg_table_col.gif"></td>
           </tr>
-		  <%End If%>
+          <%End If%>
-		  <%
+          <%
-		  '--- Render rows ---
+          '--- Render rows ---
-		  Do While (NOT rsUser.BOF) AND (NOT rsUser.EOF)
+          Do While (NOT rsUser.BOF) AND (NOT rsUser.EOF)
-		  		If rsUser.RowPosition => (startPosition + MAX_ROWS) Then Exit Do	' Limit the number of rows displayed
+                If rsUser.RowPosition => (startPosition + MAX_ROWS) Then Exit Do    ' Limit the number of rows displayed
-		  %>
+          %>
           <tr>
-		  	<td align="center"><input type="checkbox" name="user_id_list" value="<%=rsUser("user_id")%>"></td>
+            <td align="center"><input type="checkbox" name="user_id_list" value="<%=rsUser("user_id")%>"></td>
             <td align="center"><%= UserOnlineIcon ( rsUser("user_online"), rsUser("last_request") )%></td>
             <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>
             <td nowrap><a href="mailto:<%=rsUser("user_email")%>" class="body_link"><%=rsUser("user_email")%></a></td>
             <td class="body_rowg"><%=rsUser("user_name")%></td>
             <td class="body_rowg"><%=rsUser("domain")%></td>
-			<td class="body_rowg" nowrap><%=LastRequest ( rsUser("last_request") )%></td>
+            <td class="body_rowg" nowrap><%=LastRequest ( rsUser("last_request") )%></td>
-			<td align="center"><a href="User_Roles.asp?user_id=<%=rsUser("user_id")%>&<%=objPMod.ComposeURL%>" title="See User Roles"><%=LIMG_ROLE%></a></td>
+            <td align="center"><a href="User_Roles.asp?user_id=<%=rsUser("user_id")%>&<%=objPMod.ComposeURL%>" title="See User Roles"><%=LIMG_ROLE%></a></td>
           </tr>
-		  <%rsUser.MoveNext%>
+          <%rsUser.MoveNext%>
-		  <%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%>
+          <%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%>
           <tr>
             <td colspan="8" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
           </tr>
-		  <%End If%>
+          <%End If%>
-		  <%
+          <%
-		  Loop
+          Loop
-		  rsUser.Close()
+          rsUser.Close()
-		  Set rsUser = Nothing
+          Set rsUser = Nothing
-		  %>
+          %>
           <tr>
             <td colspan="8" background="images/bg_table_border.gif">
-			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
+             <table width="100%"  border="0" cellspacing="1" cellpadding="2">
               <tr>
                 <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
               </tr>
              </table>
-			</td>
+            </td>
           </tr>
          </table>
+         <%End If%>
-		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+         <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
+         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
           <tr>
             <td align="right" class="body_scol"><%=navigator%></td>
           </tr>
         </table>
-		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+         <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
          <br></td>
       </tr>
-	  <%=objPMod.ComposeHiddenTags()%>
+      <%=objPMod.ComposeHiddenTags()%>
-	  <input type="hidden" name="action" value="true">
+      <input type="hidden" name="action" value="true">
-	</form>
+    </form>
     </table></td>
   </tr>
 </table>
 <!-- FOOTER ++++++++++++++++++++++ -->
 <!--#include file="_footer.asp"-->

Subversion Repositories DevTools

(root)/ManagerSuite/Access_Manager/trunk/MultiRole_Members.asp @ 5299 – Rev 2 → 5299