ASP多行多列显示代码- 5行

<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>