ASP multi-row, multi-Column Display code-5 rows

<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>" 'Five columns show mod 5
Tempnum2 = tempnum2 + 1
Rs. movenext
Loop
%>
</Tr>
<%
Rs. Close
Set rs = nothing
%>
</Table>