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>