ASP多行多列显示代码

<table width="98%" border="0" align="center">
<tr>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open "s elect * from links where link_type=1 order by id asc",conn,1,1
tempnum2=1
do while not rs.eof
%>
<td height="20"><a href="<%=rs("link_url")%>" target=_blank><%=rs("link_name")%></a></td>
<%
if (tempnum2 mod 5)=0 then response.write "</tr>" '五列显示mod 5
tempnum2=tempnum2+1
rs.movenext
loop
%>
</tr>
<%
rs.close
set rs=nothing
%>
</table>