Hola
Otro ejemplo aplicando lo que mencionaba el
maestro sensei
En este caso se muestra 5 columnas por fila. Y por cada registro se muestra 3 campos
Código asp:
Ver original<%
Dim registros, i, id, referencias, color
id= 0
referencias = 1
color = 2
SQL = "Select id, referencias, color from tabla"
set rs = oConn.Execute(SQL)
registros = rs.getrows()
rs.Close
Set rs = Nothing
%>
<table border="0" cellspadding="0px" cellspacing="1px" bgcolor="red">
<tr>
<td bgcolor="#F4F4F4">ID</td><td bgcolor="#C9C9C9">REFERENCIA</td><td bgcolor="#A4A4A4">COLOR</td><td bgcolor="#F4F4F4">ID</td><td bgcolor="#C9C9C9">REFERENCIA</td><td bgcolor="#A4A4A4">COLOR</td><td bgcolor="#F4F4F4">ID</td><td bgcolor="#C9C9C9">REFERENCIA</td><td bgcolor="#A4A4A4">COLOR</td><td bgcolor="#F4F4F4">ID</td><td bgcolor="#C9C9C9">REFERENCIA</td><td bgcolor="#A4A4A4">COLOR</td><td bgcolor="#F4F4F4">ID</td><td bgcolor="#C9C9C9">REFERENCIA</td><td bgcolor="#A4A4A4">COLOR</td>
</tr>
<tr>
<%
For i = 0 to UBound(registros,2)
If i Mod 5 = 0 Then
Response.Write "</tr><tr>"
End If
Response.Write "<td bgcolor=""#F4F4F4"">" & registros(id,i) & "</td><td bgcolor=""#C9C9C9"">" & registros(referencias,i) & "</td><td bgcolor=""#A4A4A4"">" & registros(color,i) & "</td>"
Next 'i
%>
</tr>
</table>
Suerte