<%@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 = RequestDefault("fpkgname", "*")
parFPkgVersion = RequestDefault("fpkgversion", "*")
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------
%>
<%
'==================== MAIN LINE ===============================
If (parKeyword = "") Then
Call Destroy_All_Objects
Response.Redirect ("index.asp")
End If
'==============================================================
'----------------------------------------------
'
Sub InsertJavaScript%>
<%End Sub
'----------------------------------------------
Sub ShowMainPanel
%>
<%
' 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
%>
PvId
File<%=Quick_Help("FindFile")%>
Path
Package Name
Version
CheckSum (CKSUM)
File
Path
Package
Version
<%
End Sub
%>
Release Manager
<%bJqueryDataTables = TRUE%>
<%Call InsertJavaScript%>
