请教asp如何把页面全部循环写出？
网上的代码全部都是，按记录分页，点下一页将显示下一页内容，请问如何把所有页循环全部写出？
循环嵌套~~~
外层循环为页循环，内层循环为记录循环~
MaxPerPage=40
if request("page")<>"" then
   Page=cint(request("page"))
else
  Page=1
end if
Set rs= Server.CreateObject("ADODB.Recordset")
sql=("select * from 表1 ")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
   totalPut=0
   response.write "<tr bgcolor='#E7E7E7'><td colspan=7><p align='center'><br>没有任何信息！<br></p></td></tr>"
else
    rs.pagesize=MaxPerPage
    totalPut=rs.recordcount
    if page<1 then page=1
    rs.AbsolutePage = page
........'表头
for m=1 to rs.PageSize
......'40条记录
rs.MoveNext
if rs.EOF then
exit for 
end if
next
.......'表底
------解决方案--------------------
Set rs= Server.CreateObject("ADODB.Recordset")
sql=("select * from 表1 ")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
   totalPut=0
   response.write "<tr bgcolor='#E7E7E7'><td colspan=7><p align='center'><br>没有任何信息！<br></p></td></tr>"
else
do while not rs.eof
 response.write "你的记录表内容"
rs.movenext
loop
end if
next

------解决方案--------------------
一页里显示多页的内容 40个记录一个表 分成N个带表头和表底？
Set rs= Server.CreateObject("ADODB.Recordset")
sql=("select * from 表1 ")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
   totalPut=0
   response.write "<tr bgcolor='#E7E7E7'><td colspan=7><p align='center'><br>没有任何信息！<br></p></td></tr>"
else
i=1
do while not rs.eof
 if i/40 <> cint(i/40) then
  response.write "表底+表头" '等于从行之间插入了一个表的结束和一个新表的开始
 end if
 response.write "你的记录表内容"
rs.movenext
loop
end if
next