<%@ LANGUAGE="VBScript" %>
Blues Stuff
Sessions
<%
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 + "" & item.Name & " " & " " & 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(" Blues ")
ts.WriteLine(" ")
ts.WriteLine(" ")
ts.WriteLine(" ")
End Sub
Sub WriteEndSeq(ts)
ts.WriteLine(" ")
ts.WriteLine(" Export your travel map to any Web page travel map srt 4 dealers chevy truck xlt pregnancy journal mom son office gadgets .Offer inbound travel tour first trimester pregnancy suzuki mercuries srt 4 dealership used fords motorcycles obriens pub brandon florida adult diapered models soar recipe site recipe underwood deviled ham zonelab e store kenwood kac 821 jetixs home among the gum trees song bed and breakfasts san jose ca greenbow alabama sks stainless steel bases rings isla puerto rico 12 days of christmas barrio style korean cake recipe lyrics queen in my defense daddys worst nightmares 5 mckenzie miles lobban family tree interchangable skins for a purse historia de infidelidad interracial cocold carly poplawski sno boat ice shanty kluber lubrication msds josephine darcy marriage stone fordyce granules on penis winterthur gifts catalog colegialas guarras mornington vic xmas dinner cohiba 3887 drivers english costa farms deco pine tree condola phylea rashad firearm suppressor diagrams yankee dressing recipe valhummers hummers sulfate lewis dot structure pais del continente europeo avro rj85 avroliner hana kimi ost mp3 download analfist borracho bean recipe girls using viberators jimena perini photos icarley diane gaidry erin kelly cracker barrel chicken tortilla soup recipe diablo lobos mc sony kdl 40vl130 reviews steamed crab legs recipe plam springs arial tram 1930 s black racism tias cachondas jamacia facts jeffersonian in washington dc ithaca skb model 100 amantea restaurant coupons tractores agricolas usados hagglunds bv 206 for sale planetisimal theory video luly bosa follando alayah sashu ass reik musica datech 0925 12hbta foods of belgium oedipus rex movie torrent crackle subway wall tile quinn theaters sylva nc everyday cookie recipes firearms swd lightning misa bueso panatone recipe venison brats recipes favorite futanari anime food with natural source of collagen chinas penetradas blue oval pill g17 kayla kleevage minka sleepingbitch movies avc1 codec download maseca recetas louis voitton roman villa layout repo depot toronto giordano restaurant douglaston ny mapa para saltillo coahuila convert tons of refrigerant to watts transistor c458 moorea wolfe las vegas
")
ts.WriteLine(" ")
End Sub
Sub WriteSong( ts, song )
song = "http://www.steveandmarianne.com" + song
somg = Replace (song, " ", "%20")
ts.WriteLine("