Bueno, quiero mostrar 3 registros del RS por fila, pero ya no entiendo como hacer, he probado de todo. Lo que si he logrado hacer (pero que no me soluciona nada de este problema) es mostrar los 3 registros por fila, pero el problema esta en que primero me muestra todos los registros con el campo que contiene la ruta de la imagen del producto, luego todos los registros del campo nombre, luego todos los registros del campo precio y luego los botones de comprar todos juntos. Es obvio que el error está en como estoy haciendo los bucles, pero la verdad es que ya no tengo idea de como solucionar esto.
Espero que alguien me pueda dar una mano, y aqui les dejo el código para quien le interese.
Saludos.
set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "SELECT Imagen, Nombre, Precio FROM Productos WHERE IdNegocio = 1", session("conn")
RS_Cols = RS.GetRows
RS.Close
set RS = nothing
Imagen = 0
Precio = 2
Nombre = 1
counter = 0
%>
<table border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
For a=0 to UBound(RS_Cols,2)
counter = counter + 1
%>
<td width="170" height="103" align="center"><img src="<%=RS_Cols(Imagen, a)%>" width="130" height="117"></td>
<%
if counter = 3 then
Response.Write("</tr>")
counter = 0
end if
next
%>
<tr>
<%
For a=0 to UBound(RS_Cols,2)
counter = counter + 1
%>
<td height="12" align="center" class="negocios"><a href="#" class="producto"><%=RS_Cols(Nombre, a)%></a></td>
<%
if counter = 3 then
Response.Write("<tr>")
counter=0
end if
next
%>
</tr>
<tr>
<%
For a=0 to UBound(RS_Cols,2)
counter = counter + 1
%>
<td height="14" align="center" valign="middle" class="celda_descripcion"><%=RS_Cols(Precio, i)%></td>
<%
if counter = 3 then
Response.Write("<tr>")
counter = 0
end if
next
%>
</tr>
<tr>
<%
For a=0 to UBound(RS_Cols,2)
counter = counter + 1
%>
<td height="25" align="center" valign="top" class="celda_descripcion"><img src="Imágenes/comprar_button.jpg"></td>
<%
if counter = 3 then
Response.Write("</tr>")
Counter = 0
end if
next
%>
</tr>
</table>