now that the big wayz are over, time to play.......ok.......so today i started out jumping with dieter and bill. then snuck one in with matt, then dave byrne and sara and another with sara.....can't get enough of that girl! next cliff makes an appearance with dave swanson........(mike's evil brother.....just kidding dave!) and of course we can't forget about leah! end the day with a stair-step formation that was a good idea on paper....but a tough one to execute.....but still cool to watch and photo!
<% ListFolderContents(Server.MapPath("5")) %>
<% ListFolderContents(Server.MapPath("6")) %>
aug 6 - the journey | aug 7 - big wayz | aug 8 - fun day w/ stair step | aug 9 - alchemy gliderz | aug 10/11 - way too much fun
<% 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
%>