<%    
'dim i,intPage,page,pre,last,filepath,a,str
a=Request.QueryString
page = trim(Request.QueryString("page"))

if instr(a,"page=") then
   pagestr=replace(a,"page="&page,"")
ELSE
   pagestr="&"&a
end if

pre = true
last = true
    if len(page) = 0 then
       intpage = 1
       pre = false
    else
        if cint(page) =< 1 then
           intpage = 1
           pre = false
        else
           if cint(page) >= rs.PageCount then
              intpage = rs.PageCount
              last = false
           else
              intpage = cint(page)
           end if
       end if
     end if
if not rs.eof then
   rs.AbsolutePage = intpage
end if
%>