以下是我用asp编写的查询及分页的代码，现在的问题是，当记录超过pagesize的时候，点击下一页就显示 '对不起，暂没有您需要的资料'，但是从页面上来看，应该已经get到了“job”的值了，很奇怪为什么不能分页，请大家帮我看看这段代码到底哪里出了问题，非常感谢。
<% 
job = request.form ("job") 
dim objrs
strsql= "select * from job where jobtype='"&job&"' order by jobtime desc "
 Set objrs=Getsqlrecordset(strsql,"/db/db.mdb",job)
 if objrs.eof then
   response.write "<script>alert('对不起，暂没有您需要的资料');history.back();</script>"
    else
%>


<%
page=request.querystring("page")
objrs.pagesize = 15
if not isempty(page) then
  if not isnumeric(page) then
      page=1
  else
   page=cint(page)
  end if
   if page>objrs.pagecount then
     objrs.absolutepage=objrs.pagecount
       else if page<=0 then
         objrs.absolutepage=1
       else 
         objrs.absolutepage=page
       end if
      
   end if
 end if  
page=objrs.absolutepage
  if not objrs.eof then
  if cstr(page)=cstr(objrs.PageCount) and (objrs.RecordCount mod objrs.PageSize <> 0) then                      
            recend=objrs.RecordCount mod  objrs.PageSize                      
        else                       
           recend=objrs.PageSize                      
              end if
    for i=1 to recend      
%>
<%
   objrs.movenext
     next
%>
 
<%if objrs.pagecount<>1 and objrs.pagecount<>0 then%>
<%if page>1 then%>
[<a Href="search_job.asp?jobtype=<%=job%>&Page=<% = 1%>">首页</a>]
[<a Href="search_job.asp?jobtype=<%=job%>&Page=<% = page -1 %>">上一页</a>]   
<%if page<objrs.pagecount then %>    
[<a Href="search_job.asp?jobtype=<%=job%>&Page=<% = page + 1%>">下一页</a>]   
[<a Href="search_job.asp?jobtype=<%=job%>&Page=<% = objrs.PageCount%>">尾页</a>] 
<%else%>    
[下一页] [尾页]    
<%end if%>
<%else%> 
[首页] [上一页] 
[<a Href="search_job.asp?jobtype=<%=job%>&Page=<% = page + 1%>">下一页</a>]  
[<a Href="search_job.asp?jobtype=<%=job%>&Page=<% = objrs.PageCount%>">尾页</a>] 
<%end if %>
<%else%> 
[首页] [上一页] [下一页] [尾页]
<%end if%>
[页次:<font color=red><b><%=page%></b></font>/<%=objrs.PageCount%>]
[共<%=objrs.RecordCount%>篇 <font color=red><b><%=objrs.PageSize%></b></font>篇/页]
<%
objrs.close
set objrs=nothing
end if
end if
%>