<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' view_by_release.asp '===================================================== %> <% 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 Dim parBrowseText '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parKeyword = Request("releasename") parBrowse = Request("browse") '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------- %> <% '==================== MAIN LINE =============================== If (parKeyword = "") AND (parBrowse = "") Then Call Destroy_All_Objects Response.Redirect ("index.asp") End If parBrowseText = parBrowse If parBrowse = "*" Then parBrowse = "%" parBrowseText = "All Releases" End If '============================================================== %> Release Manager
Search by Release.  <%If parBrowse <> "" Then%> Index <%=parBrowseText%> <%Else%> Results for <%=parKeyword%> <%End If%>
<% OraDatabase.Parameters.Add "KEYWORD", Trim(parKeyword), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BROWSE", parBrowse, ORAPARM_INPUT, ORATYPE_VARCHAR2 If parBrowse = "" Then Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindReleaseName.sql"), 0 ) Else Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("BrowseReleaseName.sql"), 0 ) End If OraDatabase.Parameters.Remove "KEYWORD" OraDatabase.Parameters.Remove "BROWSE" %> <% If rsRep.RecordCount = 0 Then With Response .write "" .write "" .write "" End With Else %> <% End If While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) %> <% rsRep.MoveNext WEnd rsRep.Close() %>
Your search for "& parKeyword & parBrowseText &" did not match any releases.
Release Name Project Name
" class="body_link"><%=ReleaseIcon( rsRep("official") )%> <%=Highlight_Substring( rsRep("rtag_name"), parKeyword )%> " class="body_link"><%=rsRep("proj_name")%>