<% ' Set the correct numbers on the paging buttons brch = request.querystring("BRCH") if brch <> "" then brch = "&" & "brch=" & brch basepage = "" drillimg = "" end if CurrentPageNumber = CStr(session("CurrentPageNumber")) lastknownpage = CStr(session("lastknownpage")) LastPageNumber = CStr(session("LastPageNumber")) if CurrentPageNumber = "" then CurrentPageNumber = "1" end if if lastknownpage = "" then lastknownpage = "0" end if if LastPageNumber <> "" and (CurrentPageNumber = LastPageNumber) then lastknownpage = CurrentPageNumber ' remember the last known page session("lastknownpage") = CurrentPageNumber nextlink = "" lastlink = "" if CInt(CurrentPageNumber) > 1 then previouspage = CInt(CurrentPageNumber) - 1 previouslink = "" firstlink = "" else previouslink = "" firstlink = "" end if else if (CInt(lastknownpage) < CInt(CurrentPageNumber)) and LastPageNumber = "" then ' remember the last known page session("lastknownpage") = CurrentPageNumber lastknownpage = CurrentPageNumber & "+" else if lastknownpage <> LastPageNumber then lastknownpage = lastknownpage & "+" end if end if if CInt(CurrentPageNumber) > 1 then previouspage = CInt(CurrentPageNumber) -1 previouslink = "" firstlink = "" else previouslink = "" firstlink = "" previouspage = 1 end if nextpage = CInt(CurrentPageNumber) + 1 nextlink = "" lastlink = "" end if %>

<% response.write firstlink %><% response.write previouslink %>

<%response.write CurrentPageNumber %> of <%response.write lastknownpage %>

<%response.write nextlink %><%response.write lastlink %>

<% response.write basepage %><% response.write drillimg %>