<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Role List | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim objAppCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objAppCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '---------------------------------------------------------------------------------------------------------------------------------------------- Sub MultiRoleMembers () On Error Resume Next objEH.Try If Request("role_id_list") = "" Then Err.Raise 8, "Please select at least one Role.", "No further details available." Else Call OpenInWindow ( "MultiRole_Members.asp?role_id_list="& Request("role_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) End If objEH.Catch End Sub '---------------------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetApplicationDetails ( parApp_id, objAppCollector ) If (Request("action") <> "") Then '-- Select Action Select Case Request("action") Case "btnRemoveRole" Call OpenInWindow ( "_RemoveRole.asp?role_id_list="& Request("role_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) Case "btnRoleMembers" Call MultiRoleMembers() End Select End If '---------------------------------------------- %>

<%=objPMod.ComposeHiddenTags()%> <% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnNewRole", "btnRemoveRole", "height=25", "btnRoleMembers" ) Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) objBtnControl.Render( aTabBtnsDef ) %> <%=objAppCollector.Item ("application_name")%> Roles <% OraDatabase.Parameters.Add "APP_ID", parApp_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetRoleList.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "APP_ID" %> Role Description "> &<%=objPMod.ComposeURL%>" class="body_link" title="See Role Details"><%=LIMG_ROLE & rsQry("role_name")%> <%=rsQry("comments")%> &<%=objPMod.ComposeURL%>" title="See Role Permissions"><%=LIMG_CONTROL%>

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