tablas multicolores

[dobled]

aqui va

Código:

<%
'Abre la conexión con la base de datos a través de una conexión ODBC
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "conexión"

'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM Personas ORDER BY id"
Set result = con.Execute(sql)

'Recorre todas las filas del resultado
Do While Not result.EOF

if colorfila = 0 then
    color= "#FF0000" 'Color Rojo
    colorfila=1
else
    color="#009900" 'Color Verde
    colorfila=0
end if

'Imprimimos el registro con el bgcolor
response.write "<tr><td width='50' bgcolor='"&color&"'><font face='Arial' size='2'>"&result("id")&"</font></td><td width='100' bgcolor='"&color&"'><font face='Arial' size='2'>"&result("nombre")&"</font></td><td width='100' bgcolor='"&color&"'<font face='Arial' size="2">"&result("apellido")&"</font></td></tr>"

'Pasa a la siguiente fila
result.MoveNext
Loop

'Cerramos las conexiones y el recordset
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>