•   Download  

save file
Brian Wilbur Grundstrom at orchestra recording session at Omega Recording Studios

Download

<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''' DISPLAY MEDIA '''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim DisplayMedia DisplayMedia = "" DisplayMedia = DisplayMedia & "" DisplayMedia = DisplayMedia & "" DisplayMedia = DisplayMedia & "" DisplayMedia = DisplayMedia & "" DisplayMedia = DisplayMedia & "" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''' FORMAT VARIALBES '''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim FormatCell FormatCell = "on" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''' CREATE FILE SYSTEM OBJECT '''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''' LIST FOLDER CONTENTS '''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim FSOFolder 'Set FSOFolder = FSO.GetFolder("C:\websites\brianwilbur_com\htdocs\Clients\") Set FSOFolder = FSO.getfolder(server.MapPath(".")) Dim FSOFile Dim objSubFolder For Each objSubFolder In FSOFolder.SubFolders 'Response.Write " SubFolders: " & objSubFolder.Name & "
" DisplayMedia = DisplayMedia & "" DisplayMedia = DisplayMedia & "" DisplayMedia = DisplayMedia & "" DisplayMedia = DisplayMedia & "" 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 & "" DisplayMedia = DisplayMedia & "" DisplayMedia = DisplayMedia & "" DisplayMedia = DisplayMedia & "" DisplayMedia = DisplayMedia & "" if (FormatCell = "on") then FormatCell = "off" else FormatCell = "on" end if end if Next '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''' KILL OBJECTS '''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set FSO = Nothing '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''' CLOSE TABLE ''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' DisplayMedia = DisplayMedia & "

FILE

SIZE

DATE

" & "subfolder: " & objSubFolder.Name & "

" & round(objSubFolder.Size/1024,0) & " KB

" & objSubFolder.DateLastModified & "

" & FSOFile.Name & "

" & round(FSOFile.Size/1024,0) & " KB

" & FSOFile.DateLastModified & "

" Response.Write DisplayMedia %>