Release Manager

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| view by package | '| | '===================================================== %> <% 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 '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parKeyword = Request("pkgname") parBrowse = Request("browse") '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------- %> <% '==================== MAIN LINE =============================== If (parKeyword = "") AND (parBrowse = "") Then Response.Redirect ("index.asp") '============================================================== %> Release Manager

<% 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("FindPackageName.sql"), 0 ) Else Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("BrowsePackageName.sql"), 0 ) End If OraDatabase.Parameters.Remove "KEYWORD" OraDatabase.Parameters.Remove "BROWSE" %>

Package Names

<%If parBrowse <> "" Then%> Index <%=parBrowse%> <%Else%> Results for <%=parKeyword%> <%End If%>

<% If rsRep.RecordCount = 0 Then With Response .write "" .write "" .write "" End With End If While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) %> <% rsRep.MoveNext WEnd rsRep.Close() %>

Your search "& parKeyword &" did not match any packages.

&listby=<%=parListBy%>" class="body_link"><%=Highlight_Substring( rsRep("pkg_name"), parKeyword )%>