Album:

  <% strPathInfo = Request.ServerVariables("PATH_INFO") strPhysicalPath = Server.MapPath(strPathInfo) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strPhysicalPath) Set objFolder = objFile.ParentFolder Set objFolderContents = objFolder.Files if request.querystring("ShowSub") = "" then For each Folder in objFolder.SubFolders Session("ShowSub") = Folder.Name ShowSub = Folder.Name exit for Next else Session("ShowSub") = request.querystring("ShowSub") ShowSub = request.querystring("ShowSub") end if For each Folder in objFolder.SubFolders If Left(Folder.Name,1)<>"_" Then Response.write "" Response.Write(Folder.Name & "") If ShowSub <= " " Then ShowSub = Folder.Name End if End if Next Set objFSO = Nothing %>