<% @Language=VBScript %> <% sDir = "photos" serverPath = Server.MapPath(sDir) Set oFS = Server.CreateObject("Scripting.FileSystemObject") Set oFdr = oFS.GetFolder(serverPath) %>

Photo Sets

<% For each Folder in oFdr.SubFolders sHTML = "" & Folder.Name & "

" Response.Write(sHTML) Next Set oFS = Nothing Set oFdr = Nothing %>