<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Control List | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim sNode Dim rsQry Dim objAppCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objAppCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetApplicationDetails ( parApp_id, objAppCollector ) If (Request("action") <> "") Then '-- Select Action Select Case Request("action") Case "btnRemoveControl" Call OpenInWindow ( "_RemoveControl.asp?obj_id_list="& Request("obj_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) End Select End If '---------------------------------------------- %>

<%=objPMod.ComposeHiddenTags()%> <% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnNewControl", "btnRemoveControl") Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) objBtnControl.Render( aTabBtnsDef ) %> <%=objAppCollector.Item ("application_name")%> Actions <% OraDatabase.Parameters.Add "APP_ID", parApp_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetControlList.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" %> Action Name Description "> &<%=objPMod.ComposeURL%>" class="body_link" title="See Control General Info"><%=LIMG_CONTROL & rsQry("obj_name")%> <%=rsQry("obj_description")%>

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