<%
dim dirPath
dim fsObj
dim folderObj
dim folder
dim file
dim fileStr
dim yIndex
dim iMonth, iYear
dim monthArr : monthArr = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
dim monthStr
dim yr
dim yearArr(50)
dim yearCount : yearCount = 0
'-------------------------------------------------------------
' Open file system object and point to Scree directory
'-------------------------------------------------------------
dirPath = Server.MapPath(".")
set fsObj = Server.CreateObject("Scripting.FileSystemObject")
set folderObj = fsObj.GetFolder(dirPath)
'-------------------------------------------------------------
' Build array of years for each folder that exists
'-------------------------------------------------------------
for each folder in folderObj.subFolders
yr = Right(folder, 4) 'Extract the year
if IsNumeric(yr) then
if (cInt(yr) <= cInt(CURRENT_SCREE_YEAR)) then
yearCount = yearCount + 1 'One more year located
yearArr(yearCount) = Right(folder, 4) 'Save year in array
end if
end if
next
'-------------------------------------------------------------
' For each existing year, display all existing Screes files
'-------------------------------------------------------------
for yIndex = yearCount to 1 step -1
iYear = yearArr(yIndex)%>
| <%=iYear%> |
HTML |
| | <%
'-------------------------------------------------------------
' Display the HTML Screes for each month
'-------------------------------------------------------------
for iMonth = 0 to 11
monthStr = monthArr(iMonth)
fileStr = dirPath & "\" & iYear & "\" & monthStr & "_" & iYear & "_Scree.html"
if (fsObj.FileExists(fileStr)) then%>
<%=monthStr%> | | | <%
else
if ((cInt(iYear) >= cInt(CURRENT_SCREE_YEAR)) AND (cInt(iMonth) >= cInt(CURRENT_SCREE_MONTH)-1)) then%>
| <%
else%>
| | | <%
end if
end if
next%>
| PDF |
| | <%
'-------------------------------------------------------------
' Display the PDF Screes for each month
'-------------------------------------------------------------
for iMonth = 0 to 11
monthStr = monthArr(iMonth)
fileStr = dirPath & "\" & iYear & "\" & monthStr & "_" & iYear & "_Scree.pdf"
if (fsObj.FileExists(fileStr)) then%>
<%=monthStr%> | | | <%
else
if ((cInt(iYear) >= cInt(CURRENT_SCREE_YEAR)) AND (cInt(iMonth) >= cInt(CURRENT_SCREE_MONTH)-1)) then%>
| <%
else%>
| | | <%
end if
end if
next%>
 |
| > |
|
<%
next
%>