Photo Galleries

<% set fObj=server.createobject("scripting.filesystemobject") tempDir=server.mappath("/faire2001/collections/") x=0 isFound=false public sub nFolder(aDir) set mDir=fObj.getfolder(aDir) for each nDir in mdir.subfolders response.write(nDir.name & "  ") if fObj.fileexists(nDir & "/gallery_index.txt") then response.write("(Edit Index File)
") else response.write("(Create Index File)
") end if next end sub nFolder(tempdir) %>