<%
Dim nIndentLevel
nIndentLevel = 1
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ts
ListFolderContents(Server.MapPath("/sessions"))
%>
<% 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.
dim strSpaces
for i = 0 to nIndentLevel * 4
strSpaces = strSpaces + " "
Next
Response.Write(strSpaces + "
" & folder.Name & "
")
Response.Write(vbCrLf & "
" & vbCrLf)
'Display a list of sub folders.
for each item in folder.SubFolders
nIndentLevel = nIndentLevel + 1
ListFolderContents(item.Path)
next
'Display a list of files.
if folder.Files.Count > 0 Then
'Set ts = fs.CreateTextFile(folder + "\playList.wpl", True)
'CreatePlayList ts
for each item in folder.Files
url = MapURL(item.path)
Dim FileExt
FileExt = Mid(item.Name, Len(item.Name) - 2)
if FileExt = "mp3" then
WriteSong ts, url
end if
next
'WriteEndSeq ts
End If
for each item in folder.Files
url = MapURL(item.path)
FileExt = Mid(item.Name, Len(item.Name) - 2)
if FileExt = "txt" Or FileExt = "zip" or FileExt = "wpl" then
Response.Write(strSpaces + "
" & 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
Sub CreatePlayList( ts )
ts.WriteLine ("")
ts.WriteLine("")
ts.WriteLine(" ")
ts.WriteLine(" ")
ts.WriteLine(" Blues")
ts.WriteLine(" ")
ts.WriteLine(" ")
ts.WriteLine(" ")
End Sub
Sub WriteEndSeq(ts)
ts.WriteLine(" ")
ts.WriteLine(" finance offers a broad range of information about stocks, mutual funds, public and private companies. In addition, Google Finance.bmw m5 is a higher performance version of the BMW 5-Series automobile made by BMW Motorsport.Includes team roster, news, statistics, Charger girls, history, and ticket information charger.The Munich company's flagship sedan was nothing less than everything the company knew about car building, and that was quite a lot. 2002 bmw.Search through thousands of used 2000 nissan.Britannica online encyclopedia article onfinance company.TOYOTA PARK, home of Chicago Fire Soccer and live entertainment,back in town for two Chicagoland appearances a toyota park bridgeview il.suzuki katana GSX-F Discussion Forums - KatRiders.com KatRiders.com Suzuki.Joomla! - the dynamic portal engine and content management system. shoping.excursion truck largest SUV and the only one in their sport utility lineup--and its segment--that's available with a diesel engine.Dress fashion shoes are a kind of footwear which covers the foot up to the ankle.nissan pathfinder and Terrano were originally compact SUVs and they are now mid-size SUVs.We have 413 used BMW 330 cars for sale in UK. Search for your next used bmw 330.Online classifieds reserved exclusively for jeeps.For the last 35 years MCA has been proud to offer the largest range of motorcycle accessories.View all new and usedtoyota.Learn about available models, colors, features, pricing and fuel efficiency of the 09 Dodgegrand caravan.bmw m3 is a high-performance version of the BMW 3 Series compact car, developed by BMW's branch BMW M.Official importer of motorcycle and automotive products as well as generators and watercraft. Also contains latest news and sports results. 2006 suzuki.Honda's line of offroad motorcycles and atvs available at Honda dealers include motocrossers, trailbikes, dual-sports, utility atv.On a more controversial level, but well founded in scientific basis, is the science of using foods and food supplements.bmw m3 convertible price, specs and more. Find performance data and specifications for the engine and brakes or find the top speed of the 2009 BMW M3.The 325is was an upgrade from the standard bmw 325xi.Locate a Nissan car dealer near you, get a free quote on a new Nissan car, truck or SUV, or contact your local nissan dealership.Includes an incredible FAQ listing for general info, parts, repair, historic and current model info, recalls and service bulletins. The bmw repair.Print out a personalized cruise travel.Dodge - 2009 Ram 2500 and Ram 3500 - 4x4 truck
wedding loan
")
ts.WriteLine(" ")
End Sub
Sub WriteSong( ts, song )
song = "http://www.steveandmarianne.com" + song
somg = Replace (song, " ", "%20")
ts.WriteLine(" ")
End Sub
%>