<% set fObj=server.createobject("scripting.filesystemobject") myStr="/faire2001/collections/" & request("collection") myPath=server.mappath(myStr) if fObj.folderexists(myPath) then set objDir=fobj.GetFolder(myPath) strNewFile=myPath & "\gallery_index.txt" set nFileStream=fObj.CreateTextFile(strNewFile) strTitle=("Page Title") nFileStream.writeline(strTitle) for each fFil in objDir.files if instr(fFil.name,"_small")>0 then else if ((instr(fFil.name,".jpg")>0) or (instr(fFil.name,".gif")>0)) then myStr=fFil.name & ":Image [" & fFil.name & "] Title:Image [" & fFil.name & "] Description" nFilestream.writeline(myStr) response.write(myStr & "
") end if end if next nfilestream.close else response.write("error, email bill") end if %>