<%
'
| Multimedia
St. Jude Parish
now offers several of our homilies as recordings to listen to online.
Below is a list of select homilies.
|
<% '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
%>
|
