我查询出来的信息,可以分页显示,但是不能换页,请各位高手知道一下,代码如下

 <%
    if request.Form("submit2")="搜索" then
    select1 = request.QueryString("select1")
    select1 = request.Form("select1")
    txttitle = request.Form("txttitle")
   set rs = server.CreateObject("ADODB.Recordset")
   if request.Form("select1")="" and request.Form("txttitle")="" then
   rs.open "select  newid as 新闻ID ,newtitle as 新闻标题,newasstitle as 新闻副标题 ,newtime as 上传时间,newstpye as 新闻类型,newOfferMan as 上传人用户名 from TYnew  where newstart = '未审查'",cn,3,2
   rs.pagesize = 10
   page = clng(request("page"))
   if page < 1 then page = 1
   if page > rs.pagecount then page = rs.pagecount
%>
      </p>
      <table border="0"  height=50 align="center" class="txt_border" >
        <tr><td></td>
        <%for i = 0 to rs.fields.count-1
 'response.Write "<td>"&rs.fields(i).name&"</td>"
next%>
        </tr>
        <% rs.absolutepage = page
 for ipage =1 to rs.pagesize
 recno = (page-1) *rs.pagesize+ipage
%>
        <tr><td></td>
        <%for i = 0 to rs.fields.count-1%>
        <td><a href="updatenew.asp?newID=<%=rs.fields(0)%>&pagestart=1"> <%=rs.fields(i).value%></a> </td>
        <%next%>
        </tr>
        <%
 rs.movenext
 if rs.eof then exit for
 next
%>
      </table>     <span class="style31"> <p align="center">
          <%
 if page <>1 then
  response.Write "<a href = updatenew2.asp?page=1&selete1 ="&request.Form("select1")&">第一页</a>  "
  response.Write "<a href = updatenew2.asp?page=" & (page-1) & "&selete1 ="&request.Form("select1")&"> 上一页</a>  "
 end if
 if page <> rs.pagecount then
  response.Write "<a href = updatenew2.asp?page=" & (page+1) & "&selete1 ="&request.Form
("select1")&"> 下一页</a>  "
  response.Write "<a href = updatenew2.asp?page=" & rs.pagecount &"&selete1="&request.Form("select1")&">最后一页</a>"
 end if
%>
    </p>        <p align="center">页数：<%=page%>/<%=rs.pagecount%>
</p></span> <%end if%>