Subversion Repositories DevTools

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                                      view by package                      |
'|                                                   |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0    ' always load the page, dont store
%>



<%
'------------ ACCESS CONTROL ------------------
%>

<%
'------------ Variable Definition -------------
Dim rsRep
Dim parKeyword
Dim parBrowse
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parKeyword = Request("bomname")
parBrowse = Request("browse")
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------
%>
<%
'==================== MAIN LINE ===============================
If (parKeyword = "") AND (parBrowse = "") Then Response.Redirect ("index.asp")
'==============================================================
%>
<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 rel="stylesheet" href="images/release_manager_style.css" type="text/css">
<link rel="stylesheet" href="images/navigation.css" type="text/css">
<script language="JavaScript" src="images/common.js"></script>
<!-- DROPDOWN MENUS -->
<!--#include file="_front_explorer.asp"-->
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
<!-- MENU LAYERS -------------------------------------->
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"> 
</div>

<!-- BODY ---->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="1%" background="images/bg_home_orange.gif" valign="top">

    </td>
    <td rowspan="2" width="1%" valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="1%">
                  
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td width="1%"></td>
                          <td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td>
                          <td width="1%"></td>
                        </tr>
                        <tr> 
                          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="480"></td>
                          <td bgcolor="#FFFFFF" valign="top"> 
                                <!-- PACKAGE SEARCH ------------------------------------------------>
                                <%
                                  OraDatabase.Parameters.Add "KEYWORD", parKeyword, ORAPARM_INPUT, ORATYPE_VARCHAR2
                                  OraDatabase.Parameters.Add "BROWSE", parBrowse, ORAPARM_INPUT, ORATYPE_VARCHAR2
                                  
                                  If parBrowse = "" Then
                                                Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindBomName.sql"), 0 )
                                  Else
                                                Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("BrowsePackageName.sql"), 0 )
                                  End If
                                  
                                  OraDatabase.Parameters.Remove "KEYWORD"
                                  OraDatabase.Parameters.Remove "BROWSE"
                                %>
                                
                                <table width="100%"  border="0" cellspacing="0" cellpadding="5">
                                  <tr>
                    <td><span class="body_sect">Package Names</span><img src="images/spacer.gif" width="600" height="1"></td>
                  </tr>
                  <tr>
                    <td nowrap bgcolor="#E4E9EC" class="body_txt">
                                        <%If parBrowse <> "" Then%>
                                                Index <b><%=parBrowse%></b>
                                        <%Else%>
                                                Results for <b><%=parKeyword%></b> 
                                        <%End If%>
                                        </td>
                  </tr>
                </table>
                                
                                
                                
                                <table width="100%" border="0" cellspacing="1" cellpadding="5">
                                  <%
                                  If rsRep.RecordCount = 0 Then
                                        With Response
                                                .write "<tr>"
                                                .write "<td class='body_row'>Your search <b>"& parKeyword &"</b> did not match any packages.</td>"
                                                .write "</tr>"
                                        End With
                                  End If
                                  
                                  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) %>
                                          <tr> 
                                                <td nowrap class="body_row" valign="top" bgcolor="#F5F5F5"><a href="view_by_version.asp?pkg_id=<%=rsRep("pkg_id")%>&listby=<%=parListBy%>" class="body_link"><%=Highlight_Substring( rsRep("pkg_name"), parKeyword )%></a></td>
                                          </tr>
                                  <%  rsRep.MoveNext
                                  WEnd
                                  
                                  rsRep.Close()
                                  %>
                                  <tr> 
                                        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                                  </tr>
                                </table>
                                <br>
                                <!------------------------------------------------------------>                 
                                
                                  
                                </td>
                          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
                        </tr>
                  </table>
                  
                  </td>
        </tr>
      </table>
    </td>
    <td width="100%">&nbsp;</td>
  </tr>
  <tr> 
    <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td>
    <td>&nbsp;</td>
  </tr>
</table>
<!-- FOOTER -->
<!--#include file="_footer.asp"-->
</body>
</html>