Asi:
Código:
<%
findefila = "</tr><tr>"
contador = 1
Do While Not rs.Eof
%>
<td><% = rs("campo") %></td>
<%
If contador = 4 then
Response.Write(findefila)
contador = 1
else
contador = contador + 1
end if
Saludos
------ Editado -------
Se me adelantaron pero es es la idea :P saludos