<% class clsFile public fileName public fileTitle public fileDesc public fileLink public fileThumbnail end class class myTest public colFiles(500) public numEntries private sub Class_Initialize 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) 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=basePath & "/" & fileName cBase=server.MapPath(basePath & "/thumbnails/") if fObj.FileExists(cBase & "/" & fileName) then colFiles(numEntries).fileThumbnail="" else colFiles(numEntries).fileThumbnail=false end if end sub end class dim m set m=new myTest set fObj=server.createobject("scripting.filesystemobject") dim d dim d2 set d=server.CreateObject("scripting.dictionary") set d2=server.CreateObject("scripting.dictionary") tempDir=server.mappath("/gallery/") x=0 intHighMark=cint(request("highMark")) maxRows=4 maxCols=3 mPath="" wrkDir="" isFound=false 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" wrkdir=mid(adir,len(server.MapPath("/"))+1) wrkdir=replace(wrkdir,"\","/") 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) dim mFile set mFile=fObj.OpenTextFile(mPath) myTitle=mFile.readline x=0 while not mFile.AtEndOfStream x=x+1 d2.RemoveAll mStr=mFile.readline m.addFile mStr,wrkdir wend %>

<%=myTitle%>

<% if intHighMark>0 then response.write(" ") end if response.write(" ") if m.numEntries>(maxRows*maxCols)+intHighMark then response.write("") end if %> <% mRow=0 mCol=0 if intHighMark>0 then y=intHighMark else y=1 end if for x=y to m.numEntries if mCol>maxCols-1 then Response.Write("") mCol=0 mRow=mRow+1 if mRow>maxRows-1 then exit For end if else end if mCol=mCol+1 %> <% next %>
<% if m.colFiles(x).fileThumbnail<>false then %>
&highMark=<%=intHighMark%>&Img=<%=m.colFiles(x).fileLink%>"><%=m.colFiles(x).fileThumbnail%>
<% else %> &highMark=<%=intHighMark%>&Img=<%=m.colFiles(x).fileLink%>"><%=m.colFiles(x).fileName%>
<% end if %> <%=m.colFiles(x).fileTitle%>