Meter un registro en cada celda

[dobled]

Código:

<table border="0" cellpadding="0" cellspacing="2" bgcolor="#CCCCCC">
<tr>
<%nxVeces=0
 		
		Do while not RS.EOF 
		If nxVeces = "" Then
		nxVeces=nxVeces
		Else
		nxVeces=nxVeces+1
		End if
%>
<td width="150" bgcolor="#FFFFFF"><table width="150" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><span class="Estilo1"><%=Rs("nombre")%></span></td>
  </tr>
  <tr>
    <td><span class="Estilo1"><%=Rs("fecha")%><%=cuenta%></span></td>
  </tr>
</table></td>
<%
		'Aqui colocas el numero de columnas quieres que pinte
                          If nxVeces = 4 Then
		Response.Write("</tr>")
		nxVeces = 0
		else
		Rs.MoveNext
		End If
		Loop

%>
</table>

<%oConn.Close%>