" & VbCrLf) response.write("

" & pageObj.p_title & "

" & VbCrLf) call pageObj.getPageContent() call pageObj.writePageContent("") dim imagesPerPage imagesPerPage = 10 strSQL = "SELECT * from images where ia_parentid = " & imageBankParentID &_ " ORDER BY image_title" paginationURL = request.servervariables("URL") & "?page_id=" & this_page_id if len(strSQL) then Set rs = LoadRSFromDB(strSQL) rs.PageSize = imagesPerPage rs.CacheSize = rs.PageSize intPageCount = rs.PageCount intRecordCount = rs.RecordCount if cint(intPage) > cint(intPageCount) then intPage = intPageCount if cint(intPage) <= 0 then intPage = 1 if intRecordCount > 0 Then rs.AbsolutePage = intPage intStart = rs.AbsolutePosition if cint(intPage) = cint(intPageCount) then intFinish = intRecordCount else intFinish = intStart + (rs.PageSize - 1) end if end if '-- Concatenate the pagination string dim paginationString if cint(intPage) > 1 then paginationString = "Previous" else paginationString = "Previous" end if paginationString = paginationString & " | " if cint(intPage) < cint(intPageCount) then paginationString = paginationString & "Next" else paginationString = paginationString & "Next" end if if not rs.EOF then for intRecord = 1 to rs.PageSize dim imageTitle dim imageSrc dim imageAlt dim imageCaption dim imageDesc imageTitle = rs("image_title") imageSrc = rs("image_src") imageAlt = rs("image_alt") imageCaption = rs("image_caption") imageDesc = rs("image_longdesc") if instr(lcase(imageSrc),"thumb") then response.write("

---

") smallFileNameParts = split(imageSrc,"_") largeFileName = smallFileNameParts(0) & "_large.jpg" response.write("" & VbCrLf) end if rs.movenext if rs.EOF then exit for next end if end if response.write("

" & VbCrLf) response.write("

Print this page | Back to top

" & VbCrLf) response.write("

" & paginationString & "

" & VbCrLf) response.write("