Subversion Repositories DevTools

Rev

Rev 6876 | 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">
6877 dpurdie 75 
      <div class='Panel PanelFrame'>
76 
          <div class='headerPanel'>
77 
             Search by Release.&nbsp;
78 
            <%If parBrowse <> "" Then%>
79 
                Index <b><%=parBrowseText%></b>
80 
            <%Else%>
81 
                Results for <b><%=parKeyword%></b>
82 
            <%End If%>
83 
          </div>
84 
          <div>
85 
    <!-- RELEASE SEARCH ------------------------------------------------>
86 
    <%
87 
      OraDatabase.Parameters.Add "KEYWORD", Trim(parKeyword), ORAPARM_INPUT, ORATYPE_VARCHAR2
88 
      OraDatabase.Parameters.Add "BROWSE", parBrowse, ORAPARM_INPUT, ORATYPE_VARCHAR2
89 
 
90 
      If parBrowse = "" Then
91 
            Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindReleaseName.sql"), 0 )
92 
      Else
93 
            Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("BrowseReleaseName.sql"), 0 )
94 
      End If
95 
 
96 
      OraDatabase.Parameters.Remove "KEYWORD"
97 
      OraDatabase.Parameters.Remove "BROWSE"
98 
    %>
99 
 
100 
    <table width="100%" border="0" cellspacing="1" cellpadding="5" class=stdGrey>
101 
      <%
102 
      If rsRep.RecordCount = 0 Then
103 
        With Response
104 
            .write "<tr>"
105 
            .write "<td class='nowrap' colspan=2>Your search for <b>"& parKeyword & parBrowseText &"</b> did not match any releases.</td>"
106 
            .write "</tr>"
107 
        End With
108 
      Else %>
109 
      <thead>
110 
        <th style="min-width:500px">Release Name</th>
111 
        <th style="min-width:500px">Project Name</th>
112 
      </thead>
113 
      <%
114 
      End If
115 
 
116 
      While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) %>
117 
          <tr>
118 
            <td nowrap valign="top"><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>" class="body_link"><%=ReleaseIcon( rsRep("official") )%>&nbsp<%=Highlight_Substring( rsRep("rtag_name"), parKeyword )%></a></td>
119 
            <td nowrap valign="top"><a href="rtree.asp?proj_id=<%=rsRep("proj_id")%>" class="body_link"><%=rsRep("proj_name")%></a></td>
120 
          </tr>
121 
      <%  rsRep.MoveNext
122 
      WEnd
123 
 
124 
      rsRep.Close()
125 
      %>
126 
    </table>
127 
    <br>
128 
    <!------------------------------------------------------------>
129 
        </div>
130 
      </div>
6543 dpurdie 131 
    </td>
132 
    <td width="100%">&nbsp;</td>
133 
  </tr>
134 
  <tr>
6876 dpurdie 135 
    <td class='bg_panel_btm'><img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td>
6543 dpurdie 136 
    <td>&nbsp;</td>
137 
  </tr>
138 
</table>
139 
<!-- FOOTER -->
140 
<!--#include file="_footer.asp"-->
141 
</body>
142 
</html>