Subversion Repositories DevTools

Rev

Rev 15 | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                                OSDefault                                              |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim bom_version, bom_lifecycle,sbom
Dim bom_id
Dim os_id
Dim pos, pos2, pos3, pos4
Dim rsQry, rsPD
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
sbom = Request("sbom")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>


<html>
<head>
<title>Deployment Manager</title>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="scripts/common.js"></script>

<style type="text/css">
<!--
.style1 {color: #0000FF}
.style2 {
        font-size: 14px;
        font-weight: bold;
}
-->
</style>
</head>

<body leftmargin="0" topmargin="0">

<%
        OraDatabase.Parameters.Add "NODE_NAME",                 Request("node"),                ORAPARM_INPUT, ORATYPE_VARCHAR2 
        OraDatabase.Parameters.Add "PROJ_NAME",                 Request("project"),             ORAPARM_INPUT, ORATYPE_VARCHAR2 
        OraDatabase.Parameters.Add "BRANCH_NAME",               Request("release"),             ORAPARM_INPUT, ORATYPE_VARCHAR2         
        OraDatabase.Parameters.Add "BOM_VERSION",               Request("version"),             ORAPARM_INPUT, ORATYPE_NUMBER
        OraDatabase.Parameters.Add "BOM_LIFECYCLE",     Request("lifecycle"),           ORAPARM_INPUT, ORATYPE_NUMBER   
        OraDatabase.Parameters.Add "OS_NAME",                   Request("os"),          ORAPARM_INPUT, ORATYPE_VARCHAR2                 

        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("patch_OsId.sql"), ORADYN_DEFAULT )
        
If rsQry.Recordcount > 0 Then   
%>      
<table width="20%"  border="0" cellspacing="3" cellpadding="0">
  <tr>
    <td colspan="2" valign="top" nowrap class="body_row style1 style2"><div align="center">Product</div>      <div align="center"></div></td>
    <td colspan="2" valign="top" nowrap class="body_row style1 style2"><div align="center">Package</div>      <div align="center"></div></td>
  </tr> 
   <tr>
    <td width="50%" valign="top" nowrap class="style1 body_row"><div align="center">Name</div></td>
    <td width="30%" valign="top" nowrap class="style1 body_row"><div align="center">Version</div></td>
        <td width="50%" valign="top" nowrap class="style1 body_row"><div align="center">Name</div></td>
    <td width="30%" valign="top" nowrap class="style1 body_row"><div align="center">Version</div></td>  
 </tr>  
<%
Else
Response.Write("No Patches Found For "&Request("node")&".")
End If
                While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
        OraDatabase.Parameters.Add "PV_ID",     rsQry("pv_id"),         ORAPARM_INPUT, ORATYPE_NUMBER           
        Set rsPD = OraDatabase.DbCreateDynaset( GetQuery ("pd_patch.sql"), ORADYN_DEFAULT )     
%>                              
  <tr>
    <td width="50%" nowrap class="body_row" valign="top"><div align="center"><%=rsQry("pkg_name")%></div></td>
    <td width="30%" nowrap class="body_row" valign="top"><div align="center"><%=rsQry("pkg_version")%></div></td>
    <td width="50%" nowrap class="body_row" valign="top"><div align="center"><%=rsPD("pkg_name")%></div></td>
    <td width="30%" nowrap class="body_row" valign="top"><div align="center"><%=rsPD("pkg_version")%></div></td>        
  </tr>
<%              
        OraDatabase.Parameters.Remove "PV_ID"           
                rsPD.Close()
                Set rsPD = nothing
                rsQry.MoveNext          
                WEnd              
        OraDatabase.Parameters.Remove "OS_NAME"         
        OraDatabase.Parameters.Remove "BOM_LIFECYCLE"           
        OraDatabase.Parameters.Remove "BOM_VERSION"             
        OraDatabase.Parameters.Remove "RBANCH_NAME"             
        OraDatabase.Parameters.Remove "PROJ_NAME"               
        OraDatabase.Parameters.Remove "NODE_NAME"               
                
                rsQry.Close()
                Set rsQry = nothing
%>
</table>
</body>
</html>
<%
'------------ RUN AFTER PAGE RENDER -----------


'----------------------------------------------
%>