Photo Galleries

<% set fObj=server.createobject("scripting.filesystemobject") tempDir=server.mappath("/faire2002/") x=0 isFound=false public sub nFolder(aDir) if fObj.fileexists(aDir & "/gallery_index.txt") then showMe=true set mTextString=fObj.OpenTextFile(aDir & "/gallery_index.txt") myTitle=mTextString.readline if left(myTitle,1)="*" then if session("myID")="" then showMe=false else myTitle=mid(myTitle,2) end if end if x=x+1 if showMe then response.write("

" & myTitle & "
") end if isFound=true end if set mDir=fObj.getfolder(aDir) if mDir.subfolders.count>0 then for each nDir in mdir.subfolders nFolder(nDir.path) next end if end sub nFolder(tempdir) if not isFound then %> No Galleries found <% end if %>