<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Application List | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim parApp_id Dim objAppCollector '------------ CONSTANTS DECLARATION ----------- Const LIMG_DISK = "" '------------ VARIABLE INIT ------------------- parApp_id = Request("app_id") Set objAppCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetApplicationDetails ( parApp_id, objAppCollector ) objPMod.PersistInQryString ("app_id") objPMod.PersistInQryString ("tree") '---------------------------------------------- %>

Applications <%=objAppCollector.Item ("application_name")%> Users <%=objPMod.ComposeURLWithout("tree")%>" class="body_link">Manage Users for this Application Here you can add or remove user to this application, with option to view brief user details. Roles <%=objPMod.ComposeURLWithout("tree")%>" class="body_link">Manage Roles for this Application Manage roles and permissions for this application, then assign them to the users. Actions <%=objPMod.ComposeURLWithout("tree")%>" class="body_link">Manage Actions for this Application Use action objects within application's source code to control access. Pages Define application web pages for page access control.

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