Ver Mensaje Individual
  #10 (permalink)  
Antiguo 26/10/2009, 06:27
Avatar de Adler
Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses
Puntos: 126
Respuesta: Mostrar resultados de una tabla con un for

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
  1. <%
  2. Dim registros, i, id, referencias, color
  3. id= 0
  4. referencias = 1
  5. color = 2
  6.  
  7.  
  8. SQL = "Select id, referencias, color from tabla"
  9. set rs = oConn.Execute(SQL)
  10. registros = rs.getrows()
  11. rs.Close
  12. Set rs = Nothing
  13. %>
  14.  
  15. <table border="0" cellspadding="0px" cellspacing="1px" bgcolor="red">
  16. <tr>
  17. <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>
  18. </tr>
  19. <tr>
  20. <%
  21. For i = 0 to UBound(registros,2)
  22. If i Mod 5 = 0 Then
  23. Response.Write "</tr><tr>"
  24. End If
  25. Response.Write "<td bgcolor=""#F4F4F4"">" & registros(id,i) & "</td><td bgcolor=""#C9C9C9"">" & registros(referencias,i) & "</td><td bgcolor=""#A4A4A4"">" & registros(color,i) & "</td>"
  26. Next 'i
  27. %>
  28. </tr>
  29. </table>

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />