<%language = VBScript %>
<%
Dim FileSystem, Folder, File, FileCollection, FileString
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set Folder = FileSystem.GetFolder("images/antigua/")
Set FileCollection = Folder.Files
strQuot = Chr(34)
Response.write "
Antigua Photos
" &_
"
" &_
"" &_
"| Image File | " &_
"Modified | " &_
"
"
For Each File In FileCollection
FileString = "" &_
"| "& File.Name &" | " &_
""& File.datelastmodified &" | " &_
"
"
Response.write FileString
Next
Response.write "
"
Set FileSystem = Nothing
Set Folder = Nothing
Set FileCollection = Nothing
%>