<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| NodeDefault | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim OsId Dim OsName '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If (Request("action") <> "") Then '-- Select Action Select Case Request("action") Case "btnCopyOs" Call OpenInWindow ( "_CopyItems.asp?copy_type=os_id_list&os_id_list="& Request("os_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) Case "btnRemoveOsBulk" Call OpenInWindow ( "_DestroyOs.asp?rfile="& SCRIPT_NAME &"&os_id_list="& Request("os_id_list") &"&"& objPMod.ComposeURL() ) End Select End If '---------------------------------------------- %>

		<%Call RenderTitle( objNodeCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrNodeTabDef ) objTabControl.Render () %>     <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%> <%=objPMod.ComposeHiddenTags()%> <% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditOS", "btnRemoveOS"), OraDatabase ) objBtnControl.ButtonSpacer = 1 OraDatabase.Parameters.Add "NODE_ID", dbPARnode_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsList.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) OsId = rsQry("os_id") OsName = rsQry("os_name").Value %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "NODE_ID" %>  Operating System Installation Comments " hspace="2" align="absmiddle" border="0"><%=OsName%> <%=objFormater.TextToHtml( rsQry("os_comments") )%>	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%> <%End If%>

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