friday night - couple of shots from the jamestown fireworks show watching it from goat island on newport
sunday some shot's from lincoln. notice my chin cup, broke that on my chest after opening, then there is scott giving jeff a knee to the head.....
<% ListFolderContents(Server.MapPath("1")) %>
<% ListFolderContents(Server.MapPath("2")) %>
<% 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
%>