<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| OS_Processes | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry, ProcId, ProcName, Interface, RunAs, Owner '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- %>

		<%Call RenderTitle( objOsCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrOsTabDef ) objTabControl.SelectByName ("Processes") objTabControl.Render () %> <% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnAddProc", "btnExportNodespec") Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) ' -- Render Buttons Call objBtnControl.Render ( aTabBtnsDef ) %>     <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%> <% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditProc", "btnRemoveProc"), OraDatabase ) objBtnControl.ButtonSpacer = 1 Dim currProd_id OraDatabase.Parameters.Add "OS_ID", dbPARos_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsProcessConfig.sql"), ORADYN_DEFAULT ) currProd_id = "" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) ProcId = rsQry("prod_id") ProcName = rsQry("pkg_health_tag") Interface = rsQry("is_interface") RunAs = rsQry("cmd_interface") Owner = rsQry("pkg_owner") %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "OS_ID" %> Health Tag Package Command Interface Interface Owner <%=rsQry("pkg_health_tag")%> <%=rsQry("pkg_name")%> <%=rsQry("cmd_interface")%> <%=rsQry("is_interface")%> <%=rsQry("pkg_owner")%> <%Call objBtnControl.Render ( Array("btnEditProc", "btnRemoveProc") )%>	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%> <%=GetNodeImage ( dbPARnode_id )%> Reason for release Fixed Issues <%End If%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objPMod = Nothing Set objCrumbs = Nothing Set objTabControl = Nothing '---------------------------------------------- %>