pepperell - well, i broke my streak....it had been over 2 years since i stopped off at pepperell. but why the hell not right? and why not jump out of a casa......and what better time to land off than on a casa tracking load at sunset. yahoooo, thanks for the jump jarrod! good to see cara and derek up in the air as well!
oh....one more thing......so i hold onto my pepperell card that you use to manifest for over 2 years and never use it......it was number 52 for cryin' out loud! so i go to check in and they tell me that i'm not in the system! guess they lost all the records from a while back so now my number 52 is gone.....kaput....trashed.....tossed out......gone with the wind.......so now i'm 11,000 something........now that just stinks doesn't it! i held onto the card for 2 years....the least they could do was keep a few more 0's and 1's on a hard drive........ok....i'm done bitching ;-)
<% ListFolderContents(Server.MapPath("5")) %>
<% ListFolderContents(Server.MapPath("6")) %>
lebanon | lebanon @ night & pics around dz | pepperell on the way home
<% 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
%>