Alternar colores de las celdas de los registros de una consulta

Berletzis · #1 (**permalink**) 18/12/2003, 21:26

Como puedo mostrar los registros de mi consulta en una tabla, pero que la celda de cada registro mostrado sean de colores diferentes o mejor dico uno de un color y otro de otro color
Azul
Blanco
Azul
Blanco
y asi sucesivamente, no importando que sean pare o nones solamente que me lso muestre intercalados.. como puedo hacer esto..

Les muestro aqui mi codigo es una consulta muy sencilla..

Si necesitan algo me dicen..... Ok...Gracias
y si necesitan algun codigo por ahi no duden en preguntar Okas Gracias bye..

<html>

<head>
<title>Comparar Camaras Digitales</title>
</head>

<%

dim BDDD
dim table
dim SQL1

Set BDDD = Server.CreateObject ("ADODB.Connection")
Set table = Server.CreateObject ("ADODB.RecordSet")
BDDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0 ;DATA SOURCE=" + Server.MapPath(".\Produtos.mdb"))

SQL1 = "SELECT * FROM PCamarasDigitales"

table.ActiveConnection=BDDD
table.Open SQL1
%>

<body topmargin="0">

<form name="Comparar" action="comparar.asp">

<div align="left">
<table border="0" width="692" height="178" id="AutoNumber1">
<tr>
<td width="591" height="26" colspan="3">

<input type="submit" name="Submit" value="Comparar"></td>
<td width="85" height="26">
<p align="left"><b>Precio</b></td>
</tr>
<tr>
<td width="591" height="29" colspan="3">

 </td>
<td width="85" height="29">
 </td>
</tr>

<%

DO UNTIL table.Eof
%>

<tr>
<td width="17" height="100">
<input type="checkbox" name="chk" value="<%=table("ID") %>"></td>
<td width="111" height="100"><% Response.Write ("<img border=""0"" src="" " & table("IMG")& " "" width=""96"" height=""100"" > " )%> </td>

<td width="445" height="100" align="center"><%=table("Modelo") %>, <%=table("Caracteristicas") %>, <%=table("Megapixeles") %></td>
<td width="85" height="100"><%=table("Precio") %></td>
</tr>
<tr>
<%table.MoveNext
LOOP%>

<td width="692" height="34" colspan="4">

<input type="submit" name="Submit" value="Comparar"></td>
</tr>
</table>
</div>

</body>

</html>

koudelin · #2 (**permalink**) 19/12/2003, 06:04

Bueno compi, yo lo que haría es utilizar un función que me dovolviera si el registro es par o impar y en función a eso pues cambiaría los colores. Me explico:

Podemos meter una variable que sea igual al numero de registro actual de la base de datos por ejemplo cont. Ahora tendriamos que saber si es par o no para ello creo que la función es MOD, corregirme si me equivoco, y seria algo asi

color = MOD(cont/2)

con lo que devolverá cero o uno en función si es par o impar. Una vez calculado esto tendremos que evaluar la variable color y asignarle el fondo a la linea

if color = 0 then backgr = #FFFFFF else backgr = #FF0000 (no se si es el azul)

Captada la idea?, pues ahora la meto en el codigo a ver que sale

cont = 0

DO UNTIL table.Eof
color = MOD(cont/2)
if color = 0 then backgr = #FFFFFF else backgr = #FF0000
%>

<tr background=<% =backgr %>> <td width="17" height="100">
<input type="checkbox" name="chk" value="<%=table("ID") %>"></td>
<td width="111" height="100"><% Response.Write ("<img border=""0"" src="" " & table("IMG")& " "" width=""96"" height=""100"" > " )%> </td>

<td width="445" height="100" align="center"><%=table("Modelo") %>, <%=table("Caracteristicas") %>, <%=table("Megapixeles") %></td>
<td width="85" height="100"><%=table("Precio") %></td>
</tr>
<tr>
<%table.MoveNext
cont=cont+1
LOOP%>

Ya me contarás si te funcionó

Saludos

RucarMaN · #3 (**permalink**) 20/12/2003, 16:59

<%
If colorfila = 0 then
color = "white"
colorfila = 1
else
color = "blue"
colorfila = 0
End If
%>

bgcolor="<% = color %>"