<% class clsFile public fileName public fileTitle public fileDesc public fileLink public fileThumbnail public fileCredit end class class myTest public colFiles() public numEntries private sub Class_Initialize redim colFiles(900) numEntries=0 end Sub public sub addFile(strString,basePath) fileName="" fileTitle="" fileDesc="" if instr(strString,":")>0 then fileName=left(strString,instr(strString,":")-1) strString=mid(strString,instr(strString,":")+1) if instr(strString,":")>0 then fileTitle=left(strString,instr(strString,":")-1) strString=mid(strString,instr(strString,":")+1) if instr(strString,":")>0 then fileDesc=left(strString,instr(strString,":")-1) strString=mid(strString,instr(strString,":")+1) if instr(strString,":")>0 then fileCredit=left(strString,instr(strString,":")-1) else fileCredit=strString end if else fileDesc=strString end if else fileTitle=strString end if else fileName=strString end if numEntries=numEntries+1 set colFiles(numEntries)=new clsFile colFiles(numEntries).fileName=fileName colFiles(numEntries).fileTitle=fileTitle colFiles(numEntries).fileDesc=fileDesc colFiles(numEntries).fileLink=mOffset & basePath & fileName end sub end class dim m set m=new myTest set fObj=server.createobject("scripting.filesystemobject") mOffset="/faire2002/" tempDir=server.mappath("/faire2002/") x=0 intHighMark=cint(request("highMark")) maxRows=4 maxCols=4 mPath="" workDir="" isFound=false isFFound=false public sub doIt(ss) Response.Write(ss & "
") end sub public sub nFolder(aDir) if isFound then exit sub end if if fObj.fileexists(aDir & "/gallery_index.txt") then set mTextString=fObj.OpenTextFile(aDir & "/gallery_index.txt") myTitle=mTextString.readline x=x+1 if request("mPtr")=cstr(x) then mPath=aDir & "/gallery_index.txt" workDir=mid(adir,len(tempDir)+1) workDir=replace(workDir,"\","/") isFound=true exit sub end if 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) workDir=workDir & "/" dim mFile set mFile=fObj.OpenTextFile(mPath) mS=request("img") mS=mid(mS,instrrev(mS,"/")+1) myTitle=mFile.readline x=0 while (not mFile.AtEndOfStream) x=x+1 mStr=mFile.readline m.addFile mStr,workDir if m.colFiles(m.numEntries).fileName=mS then isFFound=true isFoundAt=x end if wend %>

<%=myTitle%>

 <% if isFoundAt>1 then %> &highMark=<%=request("highMark")%>&Img=<%=m.colFiles(isFoundAt-1).fileLink%>"> <% end if %> &highMark=<%=request("highMark")%>"> <% if isFoundAt &highMark=<%=request("highMark")%>&Img=<%=m.colFiles(isFoundAt+1).fileLink%>"> <% end if %>
<% if m.colFiles(isFoundAt).fileDesc="foo" then %>

<%=m.colFiles(isFoundAt).fileDesc%>
<% end if %>