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

sebastian big-ways, feb, 2002

freefly big-ways over sebastian, fl........here's the story......tons over very talented fliers from all over converged on sebastian to set a new unofficial world record for freeflying organized by the freefly training center (you guys rock!!!!!!!). the old record was a 15 way. over this camp, the group set a new 'unofficial' record of 18 (while i was sitting on the bench with several others....but it's all good cause.....), then, on my birthday we sent up a 20 way.......we got a 20 way, but we only held it for 2 seconds......so it didn't count. but that was all i needed. sunset load, on my birthday, 20 way, slot perfect headdown dive, then got to play with a friend named thomas from xl under canopy as we got buzzed by the skyvan......is there any better way to end vaca and is there any better present than that? i don't think so.......best birthday ever..........;-) thanks guys.....and gals........see you in arpil?

<% ListFolderContents(Server.MapPath("1")) %> <% ListFolderContents(Server.MapPath("2")) %>

<% 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 %>