[求助]限制代码相关问题

下面这段代码,我想限制它只显示30----35个会员,其余的需要点击链接才能看到,怎么修改呢???????急啊
<%end if
dim sql2,rs2,i
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from BBSXP_Users order by posttopic desc "
rs2.open sql2,conn,1,1
i=0
%>
<table cellspacing="1" cellpadding="0" width="100%" align="center" border="0" class="a2">
<tr>
<td height="25" class="a1" colspan="2">　<b>■ </b>用户发表原贴统计</td>
</tr>
<tr>
<td align="middle" width="5%" class=a3>
<img src="images/totel.gif"></td>
<td valign="top" class="a4">
<table cellspacing="0" cellpadding="3" width="100%">
<tr>
<%do while not rs2.eof
if i mod 7=0 then
response.Write "<tr>"
end if
%>
<td height="15">&nbsp;<img loaded="no" src="images/plus.gif" id="followImg1" style="cursor:hand;">

<b><a href=profile.asp?username=<%=rs2("username")%>><%=rs2("username")%></a></b><font color="red">[<%=rs2("posttopic")%>]</font>
</td>
<%rs2.movenext
i=i+1
loop
rs2.close
set rs2=nothing
%>
</tr>

</table>
</td>
</tr>
</table>

整个页面