asp分页的问题,想分成5行4列每页!求救,在线等

Question

===================源码======================
<tr>
<td align=center height="40" colspan=2><TABLE border='1' bordercolor='#e7e7e7' cellpadding=0 width='98%' align='center' style='margin-top:4px;margin-bottom:4px;'><tr>
<%sql="select * from qq order by id desc"
set rs0=server.createobject("adodb.recordset")
rs0.open sql,conn,1,1
i=0
do while not rs0.eof
i=i+1
sql="select id from qq order by id desc"
set rs01=server.createobject("adodb.recordset")
rs01.open sql,conn,1,1
geshu2=rs01.recordcount
%>
<td align="center" height="22"><a href="Show_corporation.asp?sheng=<%=rs0("id")%>" Title='姓名：<%=rs0("xingming")%> 年龄：<%=rs0("nianling")%> 性别：<%=rs0("xingbie")%> 家住：<%=rs0("zhuzhi")%> 想说：<%=rs0("hua")%>'><%=rs0("xingming")%></a></td>
<%if i mod 6 =0 then%>
</tr><tr>
<%
end if
rs0.movenext
loop
if rs0.eof and rs0.bof then%>
<td>
<p align="center">当前没有分类</td>
<%end if%>
=====================源码========================
想分成5行4列每页!求救,在线等!
我是菜鸟,麻烦写的清楚点!我又加分了,对了就全给你!
我实验了一楼的回答,说是错误,
错误类型：
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/2007sp2/115.asp, line 30
loop

Answer 1

就这样：
<tr>
<td align=center height="40" colspan=2><TABLE border='1' bordercolor='#e7e7e7' cellpadding=0 width='98%' align='center' style='margin-top:4px;margin-bottom:4px;'>
<%sql="select * from qq order by id desc"
set rs0=server.createobject("adodb.recordset")
rs0.open sql,conn,1,1
sql="select id from qq order by id desc"
set rs01=server.createobject("adodb.recordset")
rs01.open sql,conn,1,1
geshu2=rs01.recordcount
n=0
while not rs0.eof and n<5
%>
<tr>
<%
r=0
while r<4
%>
<% if rs0.eof or rs0.bof then%>
<td>
<p align="center">当前没有分类</td>
<% else %>
<td align="center" height="22"><a href="Show_corporation.asp?sheng=<%=rs0("id")%>" Title='姓名：<%=rs0("xingming")%> 年龄：<%=rs0("nianling")%> 性别：<%=rs0("xingbie")%> 家住：<%=rs0("zhuzhi")%> 想说：<%=rs0("hua")%>'><%=rs0("xingming")%></a></td>
<% r=r+1
rs0.movenext
end if
loop
%>
</tr>
<%
if not rs0.eof or not rs0.bof then
n=n+1
rs0.movenext
end if
loop
%>
<%
if rs0.eof or rs0.bof then%>
<tr><td>
<p align="center">当前没有分类</td> </tr>
<%end if%>