<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Role Members | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim sNode Dim rsQry '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetRoleDetails ( parRole_id, parApp_id, objRoleCollector ) If (Request("action") <> "") Then '-- Select Action Select Case Request("action") Case "btnSubMember" Call OpenInWindow ( "_RemoveRoleMember.asp?user_id_list="& Request("user_id_list") &"&everyone="& Request("everyone") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) End Select End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%>

<% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnAddMember", "btnSubMember" ) Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) objBtnControl.Render( aTabBtnsDef ) %> <%=PARENT_TITLE%> <%Call RenderTitle ( objRoleCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleMac" objTabControl.AddTabDefnition ( arrRole ) objTabControl.DisableByName ( "Data Filtering" ) objTabControl.SelectByName ( "Members" ) objTabControl.Render () %> "&_ " "&_ " "&_ " "&_ " "&_ ""&_ ""&_ " "&_ "" %> <%Call objRepeater.Navigator ( TRUE, TRUE )%> <% OraDatabase.Parameters.Add "ROLE_ID", parRole_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RoleMembers.sql") , ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "ROLE_ID" 'Pass record set to Repeater objRepeater.RecordSet = rsQry 'Define Table Row with bound variables objRepeater.Row = _ " ""& Eval( <#USER_IMAGE#> ) & <#FULL_NAME#> &"" ""& <#USER_NAME#> &"" ""& LIMG_CONTROL &"" <%objRepeater.RenderDataGrid ()%> Full Name User Name Everyone <% rsQry.Close() Set rsQry = Nothing %> <%Call objRepeater.Navigator ( FALSE, TRUE )%>

<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>