RE:Cambiar colores en tabla de consulta en asp
Hola, para alternar los colores de una tabla, puedes utilizar un contador, y por cada iteración preguntar si el contador es o no impar. Justamente tengo un trabajo similar que estuve haciendo. Utilizo un contador ContFilas, y el operador mod, que me devuelve el resto de la división. Si el resto es cero, es par, sino impar. Este es un extracto del código:
<%
Dim Rs, Cn, SQL, ContFilas
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("DB\Ventas.mdb")
SQL = "Select * From Productos"
Set Rs = Cn.Execute(SQL)
%>
<center>
<table cellpadding=10 border=1 bordercolor="red">
<tr bgcolor="red">
<th><font color="yellow"> Productos: </font></th>
<th><font color="yellow"> Stock: </font></th>
<th><font color="yellow"> Precio: </font></th>
<th><font color="yellow"> Imagen: </font></th>
</tr>
<%
Do While Not Rs.EOF
ContFilas = ContFilas + 1 'Este es el código
If CInt(ContFilas) mod 2 = 0 Then 'que necesitas para
response.write "<tr bgcolor='#C80000'>" 'alternar los colores
Else 'de la tabla, en este
response.write "<tr bgcolor='#960000'>" 'caso dos tonalidades
End If 'de rojos.
response.write "<td align='center' name='Fila' & ContFilas><font color='yellow'>" & Rs("Descripcion") & "</font></td>"
response.write "<td align='center'><font color='yellow'>" & Rs("Stock") & "</font></td>"
response.write "<td align='center'><font color='yellow'>" & Rs("PrecioUnitario") & "</font></td>"
response.write "</tr>"
Rs.MoveNext
Loop
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
%>
Espero te sirva. Saludos.