<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Release | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry, rsTemp, parPrint Dim PkgName, PkgVersion '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parPrint = Request("print") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- %>

		<%Call RenderTitle( objBomCollector )%> <% '-- Define Action buttons on this tab 'aTabBtnsDef = Array("btnAddNode", "btnRemoveNodeBulk", "height=30", "btnCopyNode", "btnPasteNode") '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%> XML BOM Releases <% OraDatabase.Parameters.Add "BOM_ID", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("Common\CommonDatabaseServerBaseConfigProductsSolaris.sql"), ORADYN_DEFAULT ) Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("Common\DatabaseServerCount.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) If rsQry("patch_electronic_name") <> "" Then PkgName = rsQry("patch_electronic_name") ElseIf rsQry("sunos_electronic_name") <> "" Then PkgName = rsQry("sunos_electronic_name") Else PkgName = rsQry("pkg_name") End If PkgVersion = rsQry("pkg_version") If rsQry("num") = rsTemp("num") Then %> <% End If rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) And rsQry("num") = rsTemp("num") Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "BOM_ID" %> <% OraDatabase.Parameters.Add "BOM_ID", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("Common\CommonDatabaseServerProductsSolaris.sql"), ORADYN_DEFAULT ) Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("Common\DatabaseServerCount.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) If rsQry("patch_electronic_name") <> "" Then PkgName = rsQry("patch_electronic_name") ElseIf rsQry("sunos_electronic_name") <> "" Then PkgName = rsQry("sunos_electronic_name") Else PkgName = rsQry("pkg_name") End If PkgVersion = rsQry("pkg_version") If rsQry("num") = rsTemp("num") Then %> <% End If rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) And rsQry("num") = rsTemp("num") Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "BOM_ID" %> <%=objPMod.ComposeHiddenTags()%>  Common Database Server Products - Solaris  Package Name Version <%=PkgName%> <%=PkgVersion%> <%=PkgName%> <%=PkgVersion%> <%If parPrint = "" Then%> Print <%End If%>	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%> <%=GetNodeImage ( dbPARnode_id )%> Reason for release Fixed Issues <%End If%>

<% rsQry.Close() rsTemp.Close() Set rsQry = nothing Set rsTemp = nothing %>