AYUDA CON CODIGO!!!

perla
18 de Abril del 2005
HOLA , ALGUIEN KE ME PUEDA AYUDAR CON EL SIG. CODIGO:

SE TRATA QUE LOS CAMPOS QUE SEAN PARES APAREZCANE N COLOR GRIS Y LOS IMPARES EN BLANCO...

AQUI ESTA EL CODIGO, AYUDENME PLEASEEEEE

<%

Dim Conexion,rs,sql,color

'Active X Data Objecto Data Base
'Se crea el objeto de conexion (conexion ADODB)

Set Conexion = Server.CreateObject("ADODB.Connection")

'Establecemos string de conexion

Conexion.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("productos.mdb")

'Abrimos la conexion

Conexion.Open

Sql="Select * From Productos"

Set rs= Conexion.execute(sql)

%>

<HTML>
<HEAD>
<TITLE>Prueba</TITLE>
</HEAD>
<BODY>
<h2 align="center">Consulta a mi base de datos</h2>
<br>
<Table align="center" width="70%" border="0">
<tr bgcolor="#000000">
<td align="center"><font color="#FFFFFF"><b>ID</b></font></td>
<td align="center"><font color="#FFFFFF"><b>Nombre</b></font></td>
<td align="center"><font color="#FFFFFF"><b>Descripcion</b></font></td>
<td align="center"><font color="#FFFFFF"><b>Precio</b></font></td>
</tr>

<%
' Iniciamos un bucle mientras la base de datos no esté vacia


if (cont mod 2) = 0 then
color="#ffffff"
else
color="#cccccc"
end if



total=0
Do While Not rs.EOF

%>

<!-- Imprimimos el resultado de la consulta -->

<tr>
<td><%=rs("IdProducto")%></td>
<td><%=rs("Nombre")%></td>
<td><%=rs("Descripcion")%></td>
<td><%=rs("Precio")%></td>
</tr>

<%


' Hacemos que se mueva al siguiente registro

cont=0

rs.movenext
response.write(color)
total= total+1
cont= cont+1

loop


%>


</table>
<p align="center">Hubo un total de <%=total%> registros</p>

<%
' Cerramos los objetos y los limpiamos dandole valores de nada ( Nothing ) para liberar los recursos que ocupa.

rs.close
Set rs= Nothing
conexion.close
Set conexion= Nothing
%>

</BODY>
</HTML>


noeselmejor
18 de Abril del 2005
¿¿Algo así iría bien??

<%
total = 0
Do While Not rs.EOF
If color="d" Then
color="f"
Else
color="d"
End If
%>
<tr bgcolor="#<%=string(6,color)%>">
<td><%=rs("IdProducto")%></td>
<td><%=rs("Nombre")%></td>
<td><%=rs("Descripcion")%></td>
<td><%=rs("Precio")%></td>
</tr>
....

y lo q sigue...

PERLA
18 de Abril del 2005
Gracias, eso era lo ke faltaba!!