<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| BomDefault | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim sMessage Dim NodeId Dim NodeName '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If (Request("action") <> "") Then '-- Select Action Select Case Request("action") Case "btnCopyNode" Call OpenInWindow ( "_CopyItems.asp?copy_type=node_id_list&node_id_list="& Request("node_id_list") &"&rfile="& SCRIPT_NAME & objPMod.ComposeURLWithout("rfile") ) Case "btnRemoveNodeBulk" Call OpenInWindow ( "_DestroyNode.asp?rfile="& SCRIPT_NAME &"&node_id_list="& Request("node_id_list") & objPMod.ComposeURLWithout("node_id,rfile") ) End Select End If '---------------------------------------------- %>

		<%Call RenderTitle( objBomCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrBomTabDef ) objTabControl.SelectByName("Network Nodes") objTabControl.Render () %> <% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnAddNode", "btnRemoveNodeBulk", "height=30", "btnSortNode", "height=30","btnCopyNode", "btnPasteNode", "btnNodeSpec") 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 ) <> "node_id_list" Then Call objBtnControl.Active ( "btnPasteNode", "N" ) End If ' -- Render Buttons Call objBtnControl.Render ( aTabBtnsDef ) %>     <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%> <% 'If objBomCollector.Item ("bom_comments") <> "" Then ' Call Messenger ( objFormater.TextToHtml( objBomCollector.Item ("bom_comments") ), 3, 400 ) 'End If %> <% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditNode", "btnRemoveNode"), OraDatabase ) objBtnControl.ButtonSpacer = 1 OraDatabase.Parameters.Add "BOM_ID", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeList.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) NodeId = rsQry("node_id") NodeName = rsQry("node_name").Value %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "BOM_ID" %> <%=objPMod.ComposeHiddenTags()%>  Network Node Version Installation Comments " hspace="2" align="absmiddle" border="0"><%=NodeName%> <%=rsQry("node_version") &"."& rsQry("node_life_cycle") %> <%=objFormater.TextToHtml( rsQry("node_comments") )%> <%Call objBtnControl.Render ( Array("btnEditNode", "btnRemoveNode") )%>	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%> <%=GetNodeImage ( dbPARnode_id )%> Reason for release Fixed Issues <%End If%>