<% dim phArray() catNames = Session("catNames") If session("cat") <> request("cat") Then session("cat") = request("cat") Session("phArray") = empty Dim oFilesys, oFile Set oFilesys = CreateObject("Scripting.FileSystemObject") Set oFile = oFilesys.OpenTextFile(Server.MapPath("images/cats/" & session("cat") & "/filelist.txt")) sFile = oFile.readall oFile.Close Set oFile = nothing Set oFileSys = nothing sLinks = split(sFile, chr(13)) redim phArray(uBound(slinks), 2) for i = 0 to ubound(sLinks) tempArray = split(sLinks(i), chr(9)) phArray(i, 0) = tempArray(0) phArray(i, 1) = tempArray(1) Next Session("phArray") = phArray Else tArray = session("phArray") redim phArray(uBound(tArray), 2) for i = 0 to ubound(tArray) for x = 0 to 1 phArray(i, x) = tArray(i, x) Next Next End If %> <% pageno = request("pageno") -1 maxcount = uBound(phArray) picCount = (maxcount) - (pageno * 6) if picCount > 6 Then maxc = 5 Else maxc = picCount End If %> <% starti = pageno * 6 endi = starti + maxc x = 0 For i = starti to endi%> <%if x = 2 then response.write "" x = x + 1 Next%>

<%=catNames(request("catname"))%>

&photoid=<%=i%>" target="_blank" class="l14 black">/thumbs/<%=phArray(i, 0)%>" onMouseover="img_roll(this)" onMouseout="img_unroll(this)"/> <%=phArray(i,1)%>

<%if pageno > 0 Then%> &cat=<%=request("cat")%>&pageno=<%=request("pageno")-1%>" onMouseOver="img_change('nav-prev')" onMouseOut="img_revert('nav-prev')"> <%End If If maxc < picCount Then%> &cat=<%=request("cat")%>&pageno=<%=request("pageno")+1%>" onMouseOver="img_change('nav-next')" onMouseOut="img_revert('nav-next')"> <%End If%>