lebanon jumping rocked! saw dave from toronto, marian from seb, alejandro, al, sav, mcknaughty, derek, hanne, dr. brown, matt, tina, quintin, man and the list just keeps going on! tons of fun up in leb this weekend. pic credits go to yours truly, dr. david brown, mr. allen williams and matt arguin.
scrambles competition kicked some butt with 10 competitors in all! i managed to squeek in second after mcknaughty pulls a 12 at the last second! doh! good times.....all in all dave brown handed out 4 ad's this weekend. great, relaxed competition and some good, safe flying by everyone involved!
<% 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("
" & 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
%>