Release Manager

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| view by file | '| | '===================================================== %> <% 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 parFPkgName, parFPkgVersion Dim FileName Dim sLink '------------ Constants Declaration ----------- Const MaxRows = 100 '------------ Variable Init ------------------- parKeyword = Request("filename") parFPkgName = Request("fpkgname") If parFPkgName = "" Then parFPkgName = "*" parFPkgVersion = Request("fpkgversion") If parFPkgVersion = "" Then parFPkgVersion = "*" '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------- %> <% '==================== MAIN LINE =============================== If (parKeyword = "") Then Response.Redirect ("index.asp") '============================================================== %> Release Manager

<% ' Format keyword for search If InStr( parKeyword, "*" ) > 0 Then ' Use wild cards FileName = Replace( parKeyword, "*", "%") Else ' Wildcard is not used, hence append card to the end for better results FileName = parKeyword & "%" End If OraDatabase.Parameters.Add "FILE_NAME", FileName, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "PKG_NAME", Replace( parFPkgName, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "PKG_VERSION", Replace( parFPkgVersion, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "PAGE_SIZE", MaxRows, ORAPARM_INPUT, ORATYPE_NUMBER Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindFiles.sql"), 0 ) OraDatabase.Parameters.Remove "FILE_NAME" OraDatabase.Parameters.Remove "PKG_NAME" OraDatabase.Parameters.Remove "PKG_VERSION" OraDatabase.Parameters.Remove "PAGE_SIZE" %>

Files

Results for <%=parKeyword%>. Showing max. <%=MaxRows%> results.

<% If rsRep.RecordCount = 0 Then With Response .write "" .write "" .write "" End With End If Do While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) sLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& rsRep("pkg_version") &"/"& Replace( rsRep("file_path") & rsRep("file_name"), "\", "/" ) %> <% rsRep.MoveNext Loop rsRep.Close() %>

File	Path	Package Name	Version	CheckSum (CKSUM)

Your search "& parKeyword &" did not match any file names.
<%=Highlight_Substring( rsRep("file_name"), parKeyword )%>	<%=rsRep("file_path")%>	<%=rsRep("pkg_name")%>	" class="body_link"><%=rsRep("pkg_version")%>	<%=rsRep("crc_cksum")%>