asp分页

Question

各位大侠帮忙看看那里错了，他讲查询到的所有记录都给列出来了问题出在哪里呢
Dim sql
sql="select  * from 表" Dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
Dim page,i
if request("page")="" then
page=1
else
page=clng(request("page"))
end if
i=0
rs.pagesize=12
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount 
if rs.pagecount>0 then rs.absolutepage=page
%>
<%
rs.absolutepage = page
if rs.eof then
response.write "<tr><td colspan='2'><font color='red'>系统中还没有录入任何信息！</font></td></tr>"
else
   for i=0 to rs.pagesize-1
   if rs.bof or rs.eof then exit for
%>
要输出的内容
<%
   rs.movenext()
   next
end if
%>