<%=myTitle%>
")
end if
response.write("
")
if m.numEntries>(maxRows*maxCols)+intHighMark then
response.write("
")
end if
%>
![](" & basePath & "/" & mFname & "_small.jpg)
"
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("/faire2002/")
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
%>
|
|
") mCol=0 mRow=mRow+1 if mRow>maxRows-1 then exit For end if else end if mCol=mCol+1 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 %> <% next %>