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

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

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

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

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