ASP - Cambiar colores en tabla de consulta en asp

 
Vista:

Cambiar colores en tabla de consulta en asp

Publicado por picledo (4 intervenciones) el 30/06/2005 22:07:39
Hola a todos, quisiera saber como es posible que el resultado de una consulta se muestre en una tabla y que las filas de los resultados salgan de diferente tono.+

gracias, saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cambiar colores en tabla de consulta en asp

Publicado por Edgardo (2 intervenciones) el 02/07/2005 19:58:54
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar