<%@ LANGUAGE="VBScript" %> f r e e k f l y - g a l l e r y

cross keys - sept 1 - 3, 2001

good times down at cross keys for the monkey claw jam! and who would have thought...they had good weather for once! so with 24 jumps for the weekend i was a bit run down....sorry for the delay in getting this out. it's also rather large since there were so many jumps. hope you enjoy.....i know i did!

monkey claw jam | 1942 stearman bi-plane | planes, trains and fire engines???
<% ListFolderContents(Server.MapPath("1")) %> <% ListFolderContents(Server.MapPath("2")) %>
monkey claw jam | 1942 stearman bi-plane | planes, trains and fire engines???

<% sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) 'Display the target folder and info. ' *************I'm commenting this OUT ' Response.Write("
  • " & folder.Name & " - " _ ' & folder.Files.Count & " files, ") ' if folder.SubFolders.Count > 0 then ' Response.Write(folder.SubFolders.Count & " directories, ") ' end if ' Response.Write(Round(folder.Size / 1000) & " KB total." _ ' & "
  • " & vbCrLf) Response.Write("" & vbCrLf) ' *************I'm commenting this OUT ' ********************************************************************* 'Display a list of sub folders. Uncomment the three lines below ' ********************************************************************* ' for each item in folder.SubFolders ' ListFolderContents(item.Path) ' next ' ********************************************************************* 'Display a list of files. ' ********************************************************************* for each item in folder.Files url = MapURL(item.path) Response.Write("
    " _ & "
    " & vbCrLf) next Response.Write("" & vbCrLf) end sub function MapURL(path) dim rootPath, url ' ********************************************************************* 'Convert a physical file path to a URL for hypertext links. ' ********************************************************************* rootPath = Server.MapPath("/") url = Right(path, Len(path) - Len(rootPath)) MapURL = Replace(url, "\", "/") end function %>