<%
'
| Elyria Teens For Christ Newsletter
Select the
newsletter you wish to view from the list below. You will need to
have Adobe Acrobat Reader loaded on your machine.
|
| etcCalendar.pdf |
| |
<% 'Loop through the file list
if vNoFiles = 0 then ' loop through directory if it exists
vNoFiles = 1
For Each filename In filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))
if Filename <> "WS_FTP.LOG" then ' ignore ftp log
vNoFiles = 0 ' sets indicator that at least one file name is displayed
Response.Write ("")
Response.Write ("| ")
Response.Write ("")
Response.Write (Filename)
Response.Write ("")
Response.Write (" | ")
Response.Write (" ")
end if
Next
end if
if vNoFiles = 1 then ' prints message if directory doesnt exist or there are no files in directory
Response.Write ("")
Response.Write ("| ")
Response.Write ("Files do not exist")
Response.Write (" | ")
Response.Write (" ")
end if
%>
|
