fun 4 way with eric, todd and.....blank.........doh!!!! on to another 4 way with amy, eric, and john......aka....mr. anderson.........only to watch frenchy wrap himself up ;-) heheheeh.......you never did e-mail dude! i got some shotz 4 ya......then a hybrid gone wrong..... to me and sara again.....hmmm.....who video'd that.....dam......john? from toronto? i'm thinkin.......anyway......grabbing onto sara's head and not letting go! then......well todd and leah........this is called the ass slap special! dam dude! you got her good! frenchy frenchy........sup with dat gliderz shirt yo? dave and sara 2 way.....to sara solo head stand that i just missed and she wouldn't do it again......hmmmm.........to the final jump that we snuck in with jim and friend on the 11th........thanks guys for all the fun!!!
<% ListFolderContents(Server.MapPath("9")) %>
<% ListFolderContents(Server.MapPath("10")) %>
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
%>