<%@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 Call Destroy_All_Objects Response.Redirect ("index.asp") End If '============================================================== Sub DisplayCenterPane%> <% 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" %> <%If rsRep.RecordCount <> 0 Then%> <%End If%> <%If rsRep.RecordCount = 0 Then%> <% End If While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) %> <% rsRep.MoveNext WEnd rsRep.Close() %>

Search by Package  <%If parBrowse <> "" Then%> Index <%=parBrowse%> <%Else%> Results for <%=parKeyword%> <%End If%>
Package Name
Your search for "<%=parKeyword%>" did not match any packages.
&listby=<%=parListBy%>" class="body_link"><%=Highlight_Substring( rsRep("pkg_name"), parKeyword )%>

<%End Sub%>

	<%Call DisplayCenterPane%>