<%@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("bomname") parBrowse = Request("browse") '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------- %> <% '==================== MAIN LINE =============================== If (parKeyword = "") AND (parBrowse = "") Then Call Destroy_All_Objects Response.Redirect ("index.asp") End If '============================================================== %> Deployment Manager
<% OraDatabase.Parameters.Add "KEYWORD", parKeyword, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BROWSE", parBrowse, ORAPARM_INPUT, ORATYPE_VARCHAR2 If parBrowse = "" Then Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindBomName.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 )%>