慢性肾脏病的病因:各位高手,再帮解决一下,网页代码

高手哥哥,再帮以下,网页代码

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<%
ae=0
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select top 10 * from [xinxi] where tj='ttui' order by id desc"
rs.open sql,conn,3,3
do while not rs.eof
if ae mod 5 = 0 then
%>
<tr>
<%
end if
%>
<td height="100">
<div align="center"> <a title="点击查看信息>>>" href="xinfo.asp?dick=<%=rs("id")%>">
</a>
<table width="113" height="86" border="0" cellpadding="0" cellspacing="0" background="images/tupian.jpg">
<tr>
<td width="7" height="87">
<div align="center"></div></td>
<td width="57"><a title="点击查看信息>>>" href="xinfo.asp?dick=<%=rs("id")%>" target="_blank"><img src="uptupian/<%=rs("tupian")%>" border=1 width="82" style="border: 1px solid #000000" alt="<%=rs("name")%> 图片信息" height="66"></a></td>
</tr>
</table>
</div>
<div align="right"></div>
<div align="right"></div>
<div align="center"><a href="xinfo.asp?dick=<%=rs("id")%>" target="_blank">
<% if len(rs("biaoti"))>8 then%>
<%=Left(rs("biaoti"),7)%>.
<% else%>
<%=rs("biaoti")%>
<%end if%></a></div></td>
<%
ae=ae+1
if ae mod 5 = 0 then
%>
</tr>
<%
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</td>

</tr>
</table>

请问如何分页显示?
各位,帮个忙哈