狗眼睛有眼屎:分页代码的问题

<%dim m,n
set rs =server.CreateObject("adodb.recordset")
sql="select * from download order by id desc"
rs.open sql,conn,3,3
rs.pagesize=10
tatalrecord=rs.recordcount
tatalpages=rs.pagecount
rs.movefirst
nowpage=request("page")
if nowpage & "x"="x" then
nowpage=1
else
nowpage=cint(nowpage)
end if
rs.absolutepage=nowpage
%>
<%
n=1
while not rs.eof and n<=rs.pagesize

n=n+1
rs.movenext
wend
%>
共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage>1 then%>
<a href="download.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="download.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="download.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<%if nowpage<>1 then%>
<a href="index.asp?page=<%=1%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="download.asp?page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end if%>
为什么我的页面不能按照每页10条纪录数显示出来,把我的记录全部显示出来了,气死我了!