Photo Gallery <% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath("./galleries")) For Each objSubfolder in objFolder.Subfolders %> <%=Replace(objSubfolder.Name,"_"," ")%>
<% Next %>