<%@ LANGUAGE="VBScript" %>
Crawdaddy
<%
Dim nIndentLevel
nIndentLevel = 1
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ts
ListFolderContents(Server.MapPath("/Crawdaddy"))
%>
<% 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 = "mp3" 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(" Dodge news, vehicle information, offers, Dodge dealership viper nissan 350 finance analyst man health dealership caliber toyota center seating chart bmw 325i boy mom nissan 350z 2007 nissan 350z nissan dealer kia parts luxury travel thunderbird truck rav 4 mercury srt 4 dealer toyota park bridgeview cheap travel celica nissan sentra finance management travel guides grand cherokee bmw z3 nissan frontier new orleans seafood ruby tuesday recipe crown roast recipe blondechic animelsex roberto baggio freekick game iberian chicken recipe 40somethingmag amanda vfo 820 manual mcarthur park lyrics carol kirkwood thumbs leigh valley mall maron glace recipe olive garden berry sangria recipes tom clark knomes pricing challenger low ceiling lift loguestbook blog ithaca sxs large recipe boxes bbc thomas bailey turkey ring appetizer recipe lil kim swallows ls models gallery microprose b17 flying fortress patches kruenpeeper creek gifts american fork town cinema fotos caseras bellacas boricuas obm yellow sheet matthew gray gubler fansites wiki rbs yourbank magic bullet recipe timerstop 2099 version 2 vallejo county jail inmates pedro andreas mary mccormack s pussy food labeling laws flashsex game tree huggers westmoreland nh lunch box ideas easy foto de accidente industriales carla carter firm infomercial 30 aut 6 rifle foods that move bowels milkfish recipes winchester riot dagger jeffers dothan al disney seven drawfs wallpaper foods that make women taste better atora suet recipes emmaswildworld alc 888s chipset driver models mania recipe cauliflower au gratin susie da silva gallery kristina barrington pictures jineteras cubanas glycol antifreeze density glam deluxe ema celestina cordero molina agence de rencontre nudiste kids lunch box gambar puntianak nvidia geforce 7500le 256mb 512mb shared carrie keagan s boobs menu of mcdonalds foods alicia sorrell shower video abel s foot stories chocolate whipped creme yule log recipe
")
ts.WriteLine(" ")
End Sub
Sub WriteSong( ts, song )
song = "http://www.steveandmarianne.com" + song
somg = Replace (song, " ", "%20")
ts.WriteLine(" 