tablas multicolores

[dark_night]

hola denuevo

lo ke necesito hace es leer los datos de una base de datos e imprimirlos en una tabla. el color de fondo de la fila de la tabla tiene ke ir uno por medio, es decir:

la primera : rojo
la segunda: verde
la tercera : rojo
la cuarta : verde

y asi sucesivamente.... el punto es ke nose komo hacer eso :p....
agradesco cualkier ayuda
gracias

[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
%>

[dark_night]

holas

gracias por la respuesta...
le hice un par de cambios par adaptarla a lo ke ya tenia..pero ahora pone todas las filas en rojo

Código:

<% strconn= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bd1.mdb")
   Set Conn= Server.CreateObject("ADODB.Connection")
   Conn.Open strconn
	 sSQL= "Select * From usuario Order By RUT"
	 set RS= Conn.Execute(sSQL) %>
<table border="1" align="center">
  <tr>
     <td>RUT</td>
     <td>Direccion</td>
     <td>Razon Social</td>
     <td>Estado</td>
  </tr>
  <% Do While Not Rs.Eof  
	
       if colorfila= 0 then
 	color= "#6666ff"
	colorfila=1
       else
	color= "#66ccff"
	colorfila=0
       end if
   %>	
  <tr>
     <td bgcolor=color><%=Rs("RUT")%></td>
     <td bgcolor=color><%=Rs("Direccion")%></td>
     <td bgcolor=color><%=RS("razon_social")%></td>
     <td bgcolor=color><%=RS("Estado")%></td>
  </tr>
	
    <% 
     Rs.MoveNext
     Loop
	
    Set Rs = Nothing
    Conn.Close
    Set conn= Nothing
      %>
</table>

nose en ke me ekivoke...ayudenme plz :p
gracias

[AlZuwaga]

Te olvidaste de colocar la variable color entre tags de ASP. Modificalo por esto:

Código:

  <tr>
     <td bgcolor=<% = color %>><%=Rs("RUT")%></td>
     <td bgcolor=<% = color %>><%=Rs("Direccion")%></td>
     <td bgcolor=<% = color %>><%=RS("razon_social")%></td>
     <td bgcolor=<% = color %>><%=RS("Estado")%></td>
  </tr>