dawson & nate try a little head down...........then dawson just nails a sit! then take the train out with mr. chase and the feltners. kayleen found her way in there some how as well......and then she found her way to the tarmac??? or not??? you be the judge!
some more head down with sav, matt, ian and mark. then.......what is that??? flat flying? yes indeed! take a look at dawson's pilot chute! yikes! muppett seemed to be enjoying himself......up until that thing funnelled. oh well.......loads of fun of course!
<% ListFolderContents(Server.MapPath("3")) %>
<% ListFolderContents(Server.MapPath("4")) %>
june 19 & 20 | june 22 - 25th | june 29th & 30th
<% 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
%>