Ciao. in un mio vecchio post mi han suggerito questo che va alla grande:

set rs=server.....

rs.open .....


dim i
i=0
%>
<table>
<%
while not rs.eof

if i=0 then
%>
<tr>
<%
end if
i=i+1
%>
<td>...</td>
<%
if i=4 then
%>
</tr>
<%
i=0
end if

rs.movenext
wend
%>
</table>