Subversion Repositories DevTools

Rev

Rev 5962 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
62 rsolanki 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|				        view by package			     |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0	' always load the page, dont store
13
%>
14
<%
15
'------------ ACCESS CONTROL ------------------
16
%>
17
<%
18
'------------ Variable Definition -------------
19
Dim rsRep
20
Dim parKeyword
21
Dim parBrowse
22
'------------ Constants Declaration -----------
23
'------------ Variable Init -------------------
24
parKeyword = Request("bomname")
25
parBrowse = Request("browse")
26
'----------------------------------------------
27
%>
28
<%
29
'-----------------------------------------------------------------------------------------------------------------------
30
'-----------------------------------------------------------------------------------------------------------------------
31
%>
32
<%
33
'==================== MAIN LINE ===============================
5962 dpurdie 34
If (parKeyword = "") AND (parBrowse = "") Then 
35
    Call Destroy_All_Objects
36
    Response.Redirect ("index.asp")
37
End If
62 rsolanki 38
'==============================================================
39
%>
40
<html>
41
<head>
42
<title>Deployment Manager</title>
43
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
44
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6671 dpurdie 45
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
46
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
47
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
62 rsolanki 48
<!-- DROPDOWN MENUS -->
49
<!--#include file="_front_explorer.asp"-->
6671 dpurdie 50
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
62 rsolanki 51
</head>
52
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
53
<!-- MENU LAYERS -------------------------------------->
54
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"> 
55
</div>
56
 
57
<!-- BODY ---->
58
<table width="100%" border="0" cellspacing="0" cellpadding="0">
59
  <tr> 
60
    <td width="1%" background="images/bg_home_orange.gif" valign="top">
61
 
62
    </td>
63
    <td rowspan="2" width="1%" valign="top"> 
64
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
65
        <tr> 
66
          <td width="1%">
67
 
68
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
69
			<tr> 
70
			  <td width="1%"></td>
71
			  <td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td>
72
			  <td width="1%"></td>
73
			</tr>
74
			<tr> 
75
			  <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="480"></td>
76
			  <td bgcolor="#FFFFFF" valign="top"> 
77
				<!-- PACKAGE SEARCH ------------------------------------------------>
78
				<%
79
				  OraDatabase.Parameters.Add "KEYWORD", parKeyword, ORAPARM_INPUT, ORATYPE_VARCHAR2
80
				  OraDatabase.Parameters.Add "BROWSE", parBrowse, ORAPARM_INPUT, ORATYPE_VARCHAR2
81
 
82
				  If parBrowse = "" Then
83
				  		Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindBomName.sql"), 0 )
84
				  Else
85
				  		Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("BrowsePackageName.sql"), 0 )
86
				  End If
87
 
88
				  OraDatabase.Parameters.Remove "KEYWORD"
89
				  OraDatabase.Parameters.Remove "BROWSE"
90
				%>
91
 
92
				<table width="100%"  border="0" cellspacing="0" cellpadding="5">
93
				  <tr>
94
                    <td><span class="body_sect">Package Names</span><img src="images/spacer.gif" width="600" height="1"></td>
95
                  </tr>
96
                  <tr>
97
                    <td nowrap bgcolor="#E4E9EC" class="body_txt">
98
					<%If parBrowse <> "" Then%>
99
						Index <b><%=parBrowse%></b>
100
					<%Else%>
101
						Results for <b><%=parKeyword%></b> 
102
					<%End If%>
103
					</td>
104
                  </tr>
105
                </table>
106
 
107
				<table width="100%" border="0" cellspacing="1" cellpadding="5">
108
				  <%
109
				  If rsRep.RecordCount = 0 Then
110
					With Response
111
						.write "<tr>"
112
						.write "<td class='body_row'>Your search <b>"& parKeyword &"</b> did not match any packages.</td>"
113
						.write "</tr>"
114
					End With
115
				  End If
116
 
117
				  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) %>
118
					  <tr> 
119
						<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>
120
					  </tr>
121
				  <%  rsRep.MoveNext
122
				  WEnd
123
 
124
				  rsRep.Close()
125
				  %>
126
				  <tr> 
127
					<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
128
				  </tr>
129
				</table>
130
				<br>
131
				<!------------------------------------------------------------>			
132
 
133
 
134
				</td>
135
			  <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
136
			</tr>
137
		  </table>
138
 
139
		  </td>
140
        </tr>
141
      </table>
142
    </td>
143
    <td width="100%">&nbsp;</td>
144
  </tr>
145
  <tr> 
146
    <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>
147
    <td>&nbsp;</td>
148
  </tr>
149
</table>
150
<!-- FOOTER -->
151
<!--#include file="_footer.asp"-->
152
</body>
153
</html>