Meter un registro en cada celda

[Paharillo]

Hola! Teno una duda. Quiero meter en una tabla de 4 filas y 4 columnas quiero meter varios registro en cada celda por ejemplo una imagen en una celda y en la de abajo su nombre pero no sé como hacerlo. Lo único que consiguo es que me salgan una debajo de otra. y si hago una tabla de 4 filas y 4 columnas no sé como pasar de registro sin que me duplique la tabla. mi actual código es el siguiente (me hace una tabla de 2 celdas en cada registro):
<%Do While Not RS.EOF%>
<table width="202" height="124" border="1" >
<tr>
<td><img src="<%=RS("imagen")%>" width="131" height="123" align="middle"></td>
</tr>
<tr>
<td><%=RS("nombre")%></td>
</tr>
</table>
<% RS.MoveNext
Loop %>
<%cn.Close%>

Que puedo hacer?

[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%>