<%@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 () %> <% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnAddOs", "btnRemoveOsBulk", "height=30", "btnCopyOs", "btnPasteOs", "height=30") Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) ' -- Tell control if buttons need to be readonly actions objBtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly") ' -- Conditions If Session( enumSESSION_COPY_TYPE ) <> "os_id_list" Then Call objBtnControl.Active ( "btnPasteOs", "N" ) End If ' -- Render Buttons Call objBtnControl.Render ( aTabBtnsDef ) %>     <%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") )%> <%Call objBtnControl.Render ( Array("btnEditOS", "btnRemoveOS") )%>	<%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 Set objBtnControl = Nothing '---------------------------------------------- %>