"
DisplayMedia = DisplayMedia & "" & "subfolder: " & objSubFolder.Name & " | "
DisplayMedia = DisplayMedia & "" & round(objSubFolder.Size/1024,0) & " KB | "
DisplayMedia = DisplayMedia & "" & objSubFolder.DateLastModified & " | "
DisplayMedia = DisplayMedia & "
"
if (FormatCell = "on") then
FormatCell = "off"
else
FormatCell = "on"
end if
Next
For Each FSOFile in FSOFolder.Files
if (FSOFile.Name <> "index.asp") and (FSOFile.Name <> "list.asp") and (FSOFile.Name <> "index.html") and (FSOFile.Name <> "pressDownload.asp") then
DisplayMedia = DisplayMedia & "