<%@ LANGUAGE="VBScript" %>
ForFitz
<%
Dim nIndentLevel
nIndentLevel = 1
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ts
ListFolderContents(Server.MapPath("/ForFitz"))
%>
<% 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 = "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(" finance bmw m5 charger 2002 bmw 2000 nissan finance company toyota park bridgeview il suzuki katana shoping excursion truck fashion shoes nissan pathfinder bmw 330 jeeps motorcycle accessories toyota grand caravan bmw m3 2006 suzuki atv food supplements bmw m3 convertible bmw 325xi nissan dealership bmw repair cruise travel truck ogive graph cars radiator springs race track rug teddy bear paintings peavey session 400 schematics trabeculated bladder granny bed forced feminisation stories h k 416 rifle toy story jessy gaffers and sattler furnaces parts onaga herald news paper recipe for authentic german cheese cake mlfs like it big kraft meat sauce with spaghetti dinner white foamy vomit in dogs artist clyde cole maalox for babies recipe cookies no butter and sugar womans vibraters browning a bolt m1000 eclipse rifle price spartan foods of america murlok flash maturehomevideos easy homemade doughnut recipes recipe paella arroz de valenciana all dress up games for gils walking adenosine stress test busana trendy 2008 funation cypriot recipes kim kardashin pps de amistad rub and tug massage parlor perryopolis flea market angelique boyer desnuda rhonda monroe lenox operating system food diary chart wbzx fm flagstaff soup kitchen christmas dinner sydney recipe for chestnut soup nolotil capsules silverware roger brothers 1847 walkthrough for hotel dusk nintendo ds yankee dressing recipe rebar prices phoenix az neiderman s farm in ohio should you pop a fever blister slow cooker pork chop recipes mccormick 46 baler discussion forum la casa dell aviatore mecklenburg county divorces kma 960 elephant shop image of jenica garcia cougars in heat bailey michelle barrett pics oakview apartments visalia ca lori fieri girl panties real squrits 1320 am wtkz reset cable dct700 cake recipes for diabetics finkelhor sexual life events inventory timberland tackhead boots nigella lawson cleavage caroline pierce traillers ls model forum villa escudero san pablo alda rizma recipe for macaroon cookies ford f150 fluid capacity baseboard heater programmable timer lexmark printer driver x75 vista hugh jackman s cock keg niagara falls oly and lena jokes leslie tartan madden08 cheat codes a playable online weegie board little caesars wet dog food hcps loader mothman case files hoofdstad canada kelly princeton photo gallery sewmor sewing machine clitless women twisty babes videos with jenna jameson matureamateur video cordell schools oklahoma ")
End Sub
Sub WriteSong( ts, song )
song = "http://www.steveandmarianne.com" + song
somg = Replace (song, " ", "%20")
ts.WriteLine("