A Year of Songs File Name List

alpabetical order grouped by month for your inconvenience
[hint: use your browser's FIND function (Ctrl-F in WIndows) to search for keywords]

<% response.write("2005
") dim fs,fo,x set fs=Server.CreateObject("Scripting.FileSystemObject") set fo=fs.GetFolder(Server.Mappath("/") & "/ayearofsongs/2005/") for each x in fo.SubFolders 'Print the name of all subfolders in the test folder Response.write(monthname(x.Name) & "

") dim subfo, y set subfo=fs.GetFolder(Server.Mappath("/") & "/ayearofsongs/2005/"& x.name & "/") for each y in subfo.files response.write(" " & y.name & "
") next response.write("
") next set fo=nothing set fs=nothing set subfo=nothing response.write("2006
") dim fs2,fo2,x2 set fs2=Server.CreateObject("Scripting.FileSystemObject") set fo2=fs2.GetFolder(Server.Mappath("/") & "/ayearofsongs/2006/") for each x2 in fo2.SubFolders 'Print the name of all subfolders in the test folder Response.write(monthname(x2.Name) & "

") dim subfo2, y2 set subfo2=fs2.GetFolder(Server.Mappath("/") & "/ayearofsongs/2006/"& x2.name & "/") for each y2 in subfo2.files response.write(" " & y2.name & "
") next response.write("
") next set fo2=nothing set fs2=nothing set subfo2=nothing response.write("2007
") dim fs3,fo3,x3 set fs3=Server.CreateObject("Scripting.FileSystemObject") set fo3=fs3.GetFolder(Server.Mappath("/") & "/ayearofsongs/2007/") for each x3 in fo3.SubFolders 'Print the name of all subfolders in the test folder Response.write(monthname(x3.Name) & "

") dim subfo3, y3 set subfo3=fs3.GetFolder(Server.Mappath("/") & "/ayearofsongs/2007/"& x3.name & "/") for each y3 in subfo3.files response.write(" " & y3.name & "
") next response.write("
") next set fo3=nothing set fs3=nothing set subfo3=nothing %>