<%@ LANGUAGE="VBScript" %>
f r e e k f l y - g a l l e r y
lincoln, r.i. - september, 8 & 9, 2001
sunday - good times! fun jumps with beth, sarah, pj, brit, billy, sergie, scott, matt, dave, lia? ;-), bob, cara, mary lou, kevin, brian, joe and jeremy......wow, now that's a lot of names!!!! got to play with some nice demo rigs from sunpath...thanks derek! speaking of which my odyssey should be in soon ;-) hehehe......i've also decided to organize another, maybe 2 freefly events for next season.....have to start working on that now.......in the mean time....enjoy the pics!
<% 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
%>