what better way to start the day off than a jump with sugar glider amy chmelecki........now that was a fun jump.....aside from landing out of course ;-) then a few jumps with john, eric deren and.......miguel? dam.....I should write names down.....i suck. back to filming the sugar gliderz......why not right?!?!? squeeze one in with dave......then we got some extra altitude thanks to.......again.....there i go with the names......and thanks again to the sugar gliderz and team alchemy for letting me get some killer shotz of their two teams in action........just wish i caught all the ass slappin' that was going on better!!!! then end the day with sara......nice 2 way track......
<% ListFolderContents(Server.MapPath("7")) %>
<% ListFolderContents(Server.MapPath("8")) %>
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
%>