what better way to start off a vacation than with big wayz!!!! dam i love that! there were over 30 freeflyers that signed up......we ended up building a slot perfect 20 way......held it for 2.5 secs......now that rocks! to cap off the day, we did a nice sunset track dive and roger busted out a bunch of smoke for everyone!!!! giggity giggity!!! thanks to todd for the other angle of the track. his angle is second. and thanks to rook, mike, alaska, dave and all the others for organizing! just a side note.....smoke is very cool.......i need some!
<% ListFolderContents(Server.MapPath("3")) %>
<% ListFolderContents(Server.MapPath("4")) %>
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
%>