<%
strSN = request("SN")
'strBN = request("BN")
'response.write(strSN)
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objFolder
Dim Path
Path = Server.MapPath("\bills\2015\FNPDF\SNPDF\")
Set objFolder = objFSO.GetFolder(Path)
Dim objFile
Dim strCountfiles
strCountfiles = 0
Dim u
u = 0
Dim arrAmd
arrAmd = Array()
For Each objFile in objFolder.Files
strCountfiles = strCountfiles + 1
Next
ReDim arrAmd(strCountfiles -1)
' response.write("Directory Contents
")
IF strFN <> "" THEN
response.write(" 2015 Sponsor Rebuttal to Fiscal Note Directory Contents for " & strSN & "
")
ELSE
response.write(" 2015 Sponsor Rebuttal to Fiscal Note Directory Contents
")
END IF
'response.write(strCountfiles)
For Each objFile in objFolder.Files
strFileName = objFile.Name
strBill = Mid(strFileName, 1, 6)
'response.write(strSN)
if strFileName ="default.asp" Then
'nothing
ElseIf strSN = "" Then
strDateCreated = objFile.DateCreated
strSize = objFile.Size
response.write("- " & strFileName & " -- Date Created " & strDateCreated & " -- Size " & strSize & " bytes.
")
ElseIF strBill = strSN Then
strDateCreated = objFile.DateCreated
strSize = objFile.Size
response.write("- " & strFileName & " -- Date Created " & strDateCreated & " -- Size " & strSize & " bytes.
")
end if
Next
response.write("
")
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>