<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Application List | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim objBtnControl Dim aTabBtnsDef '------------ CONSTANTS DECLARATION ----------- Const LIMG_DISK = "" '------------ VARIABLE INIT ------------------- Set objBtnControl = New ActionButtonControl '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- objPMod.PersistInQryString ("tree") If (Request("action") <> "") Then '-- Select Action Select Case Request("action") Case "btnRemoveApplication" Call OpenInWindow ( "_RemoveApplication.asp?app_id="& Request("app_id") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) End Select End If '---------------------------------------------- %>

<%=objPMod.ComposeHiddenTags()%> <% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnNewApplication", "btnRemoveApplication" ) Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) Call objBtnControl.Render( aTabBtnsDef ) %> Applications <% Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetApplicationList.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 %> Application "> &app_id=<%=rsQry("app_id")%>" class="body_link"><%=LIMG_DISK & rsQry("application_name")%>

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