La idea es esta, falta la conexion de la base de datos.
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
counter=0
do while not rs.eof
%>
<td><%=rs("campo")%></td>
<%
counter=counter+1
If counter MOd 3=0 Then Response.Write "</tr><tr>"
rs.movenext
loop
rs.close
%>
</tr>
</table>