Subversion Repositories DevTools

Rev

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