you know when you go over to your friends house and they've got that new puppy? the little guy is so cute, but all he wants to do is hump your leg! well i think that the caravan had the hots for the casa. every time i turned my head the caravan was trying to mount the casa......no kidding! i think they were trying to make casavans or something.....not sure what that would look like. but it got so bad that they had to call the local fire department to help cool 'em down! check it! even the tandems got in on the action! oh yeah.....and some exits.....stuey steps on a nail.....i almost step on sav's chute......more exits....fly bys......hummers.....good stuff i tell ya!
<% ListFolderContents(Server.MapPath("5")) %>
<% ListFolderContents(Server.MapPath("6")) %>
monkey claw jam | 1942 stearman bi-plane | planes, trains and fire engines???
<% 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
%>