a bit of a random mix over time....but what can you do. starts off with me geekin the camera on sav's head. to ian and jeff going for the photo op to some 4 way stuff with steve in there and then everyone went flat with little kim in there.......well, tried to go flat! we're gonna have to work on some rw skills here people........you should know how to launch a 4 way flat and not funnel it!!! slackers! a tandem....how's that get in there!!! finishing up with abi at the front of a sit train with mary, katie and ian in the rear. have fun at school abi!!! see you kids soon!
<% ListFolderContents(Server.MapPath("3")) %>
<% ListFolderContents(Server.MapPath("4")) %>
friday in lincoln | saturday @ orange
<% 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
%>