<%@ LANGUAGE="VBScript" %>
f r e e k f l y - g a l l e r y
lincoln, r.i. october, 20 & 21, 2001
saturday & sunday - lincoln - lots of fun this weekend....finally...haven't jumped in a while cause of weather! but we got off a few jumps with matt, joe, leah (yeah...she's hooked!), lb, dave, adela (600 jumps and only 20 w/ freefall....well, time to check out freeflying!), muppet and kim. lots of fun! chasing canopies, filming some aff, watching lots of pies......oh yeah....and lots of belly flying for some reason......hey...it's all good! enjoy......
<% 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("
" & 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
%>