Subversion Repositories DevTools

Rev

Rev 6615 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
6543 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'   view_by_release.asp
5 
'=====================================================
6 
%>
7 
<%
8 
Option explicit
9 
' Good idea to set when using redirect
10 
Response.Expires = 0	' always load the page, dont store
11 
%>
12 
<!--#include file="common/conf.asp"-->
13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/formating.asp"-->
15 
<!--#include file="common/qstr.asp"-->
16 
<!--#include file="common/common_subs.asp"-->
17 
<%
18 
'------------ ACCESS CONTROL ------------------
19 
%>
20 
<!--#include file="_access_control_login_optional.asp"-->
21 
<!--#include file="_access_control_general.asp"-->
22 
<%
23 
'------------ Variable Definition -------------
24 
Dim rsRep
25 
Dim parKeyword
26 
Dim parBrowse
27 
Dim parBrowseText
28 
'------------ Constants Declaration -----------
29 
'------------ Variable Init -------------------
30 
parKeyword = Request("releasename")
31 
parBrowse = Request("browse")
32 
'----------------------------------------------
33 
%>
34 
<%
35 
'-----------------------------------------------------------------------------------------------------------------------
36 
'-----------------------------------------------------------------------------------------------------------------------
37 
%>
38 
<%
39 
'==================== MAIN LINE ===============================
40 
If (parKeyword = "") AND (parBrowse = "") Then
41 
    Call Destroy_All_Objects
42 
    Response.Redirect ("index.asp")
43 
End If
44 
parBrowseText = parBrowse
45 
If parBrowse = "*" Then
46 
    parBrowse = "%"
47 
    parBrowseText = "All Releases"
48 
End If
49 
'==============================================================
50 
%>
51 
<html>
52 
<head>
53 
<title>Release Manager</title>
54 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
55 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
56 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 57 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
58 
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
59 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
6543 dpurdie 60 
<!-- DROPDOWN MENUS -->
61 
<!--#include file="_jquery_includes.asp"-->
62 
<!--#include file="_menu_def.asp"-->
6579 dpurdie 63 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
6543 dpurdie 64 
</head>
65 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
66 
<!-- HEADER -->
67 
<!--#include file="_header.asp"-->
68 
<!-- BODY ---->
69 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
70 
  <tr>
6876 dpurdie 71 
    <td class='bg_panel'>
6543 dpurdie 72 
      <!--#include file="_front_explorer.asp"-->
73 
    </td>
74 
    <td rowspan="2" width="1%" valign="top">
75 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
76 
        <tr>
77 
          <td width="1%">
78 
 
79 
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
80 
			<tr>
81 
			  <td width="1%"></td>
82 
			  <td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td>
83 
			  <td width="1%"></td>
84 
			</tr>
85 
			<tr>
86 
			  <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="480"></td>
87 
			  <td bgcolor="#FFFFFF" valign="top">
88 
				<!-- RELEASE SEARCH ------------------------------------------------>
89 
				<%
90 
				  OraDatabase.Parameters.Add "KEYWORD", Trim(parKeyword), ORAPARM_INPUT, ORATYPE_VARCHAR2
91 
				  OraDatabase.Parameters.Add "BROWSE", parBrowse, ORAPARM_INPUT, ORATYPE_VARCHAR2
92 
 
93 
				  If parBrowse = "" Then
94 
				  		Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindReleaseName.sql"), 0 )
95 
				  Else
96 
				  		Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("BrowseReleaseName.sql"), 0 )
97 
				  End If
98 
 
99 
				  OraDatabase.Parameters.Remove "KEYWORD"
100 
				  OraDatabase.Parameters.Remove "BROWSE"
101 
				%>
102 
 
103 
				<table width="100%"  border="0" cellspacing="0" cellpadding="5">
104 
                  <tr>
105 
                    <td nowrap bgcolor="#E4E9EC" class="body_txt" colspan=2>Search by Release.&nbsp;
106 
					<%If parBrowse <> "" Then%>
107 
						Index <b><%=parBrowseText%></b>
108 
					<%Else%>
109 
						Results for <b><%=parKeyword%></b>
110 
					<%End If%>
111 
					</td>
112 
                  </tr>
113 
                </table>
114 
 
115 
				<table width="100%" border="0" cellspacing="1" cellpadding="5">
116 
				  <%
117 
				  If rsRep.RecordCount = 0 Then
118 
					With Response
119 
						.write "<tr>"
120 
						.write "<td class='body_row nowrap' colspan=2>Your search for <b>"& parKeyword & parBrowseText &"</b> did not match any releases.</td>"
121 
						.write "</tr>"
122 
					End With
123 
                  Else %>
124 
				  <tr class="form_field_bg">
125 
                    <td style="min-width:500px" class="body_txt">Release Name</td>
126 
                    <td style="min-width:500px" class="body_txt">Project Name</td>
127 
                  </tr>
128 
                  <%
129 
				  End If
130 
 
131 
				  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) %>
132 
					  <tr>
133 
						<td nowrap class="body_row" valign="top" bgcolor="#F5F5F5"><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>" class="body_link"><%=ReleaseIcon( rsRep("official") )%>&nbsp<%=Highlight_Substring( rsRep("rtag_name"), parKeyword )%></a></td>
134 
						<td nowrap class="body_row" valign="top" bgcolor="#F5F5F5"><a href="rtree.asp?proj_id=<%=rsRep("proj_id")%>" class="body_link"><%=rsRep("proj_name")%></a></td>
135 
					  </tr>
136 
				  <%  rsRep.MoveNext
137 
				  WEnd
138 
 
139 
				  rsRep.Close()
140 
				  %>
141 
				  <tr>
142 
					<td background="images/bg_rep_line.gif" colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
143 
				  </tr>
144 
				</table>
145 
				<br>
146 
				<!------------------------------------------------------------>
147 
 
148 
 
149 
				</td>
150 
			  <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
151 
			</tr>
152 
		  </table>
153 
 
154 
		  </td>
155 
        </tr>
156 
      </table>
157 
    </td>
158 
    <td width="100%">&nbsp;</td>
159 
  </tr>
160 
  <tr>
6876 dpurdie 161 
    <td class='bg_panel_btm'><img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td>
6543 dpurdie 162 
    <td>&nbsp;</td>
163 
  </tr>
164 
</table>
165 
<!-- FOOTER -->
166 
<!--#include file="_footer.asp"-->
167 
</body>
168 
</html>