Colores de celda distintos

[CHuLoSoY]

JEJEJE, estoy pesadito, otra pregunta, parece de html pero es de asp :) , en html estoy bastante puesto.

Lo que quiero es hacer una consulta a la base de datos y mostrar uno a uno los mensajes de la base de datos, pero las celdas cambian de color : el primero gris, el segundo blanco, el tercero gris, el cuarto blanco... etc. Entienden?

Hay una dificultad, tengo el código de paginación de asptutor.com o aspfacil.com , no me acuerdo bien.

Saludos.

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">

[CHuLoSoY]

Mi msg 555 jejeje. Bueno. El código de paginación es el siguietne:

Código:

<%

Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales
Dim TamPagina
Dim CuantosRegistros

TamPagina=3

if Request.Querystring("pagina")="" then
	PaginaActual=1
else
	PaginaActual=CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
	"Data Source="&Server.MapPath("**.mdb")&";"
SQL="SELECT * FROM Noticias ORDER BY id DESC;"

rs.PageSize=TamPagina
rs.CacheSize=TamPagina

rs.Open SQL, oConn, 1, 2

PaginasTotales=rs.PageCount

if PaginaActual < 1 then 
	PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
	PaginaActual = PaginasTotales
end if

if PaginasTotales=0 then

	Response.Write("..")

else

	rs.AbsolutePage=PaginaActual
	Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
	CuantosRegistros=0
	do while not rs.EOF and CuantosRegistros < TamPagina
Response.Write "<p><b><a href=noticia.asp?id=" &rs.Fields("id") & ">"&rs.Fields("titulo")&"</a></b><font size=1> - Fecha: <b>"&rs.Fields("fecha")&"</b></font><br><font size=1 color=#696969>• " &rs.Fields("copete") & "</font>"		
CuantosRegistros=CuantosRegistros+1
		rs.MoveNext
	loop
	Response.Write("</p>")

end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

if PaginaActual > 1 then
	Response.Write("<A HREF=index.asp?pagina="& PaginaActual-1& _
	">Página anterior</A>   ")
end if
if PaginaActual < PaginasTotales then
	Response.Write(" - <A HREF=index.asp?pagina=" & PaginaActual+1 & _ 
	">Página siguiente</A>")
end if
%>

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">

[akela]

Yo lo hago así
&lt;% bandera=0
do WHILE not RSdocumento.EOF
if bandera = 0 Then
color=&quot;C0C0C0&quot;
bandera = 1
ELse
color=&quot;E8E8E8&quot;
bandera = 0
End IF
&lt;tr&gt;
&lt;td width=&quot;5%&quot; bgcolor=&quot;#&lt;%= color%&gt;&quot;&gt;
' aqui pones lo qe tengas que poner
&lt;/td&gt;
&lt;% Loop %&gt;

[CHuLoSoY]

Y cómo debería ponerlo en este código de paginación?

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">

[akela]

Código:

<%
Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales
Dim TamPagina
Dim CuantosRegistros
TamPagina=3
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("**.mdb")&";"
SQL="SELECT * FROM Noticias ORDER BY id DESC;"

rs.PageSize=TamPagina
rs.CacheSize=TamPagina
rs.Open SQL, oConn, 1, 2

PaginasTotales=rs.PageCount

if PaginaActual < 1 then 
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

if PaginasTotales=0 then

Response.Write("..")

else

rs.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
CuantosRegistros=0

bandera=0
do WHILE not RSdocumento.EOF
if bandera = 0 Then
color="C0C0C0"
bandera = 1
ELse
color="E8E8E8"
bandera = 0
End IF
  

do while not rs.EOF and CuantosRegistros < TamPagina
'aqui debería de haber una celda para que le pudieras cambiar el color pero por lo que veo no usa celdas este código así que lo adapto así:  
Response.Write "<font color="<%=color%>  "><p><b><a href=noticia.asp?id=" &rs.Fields("id") & ">"&rs.Fields("titulo")&"</a></b><font size=1> - Fecha: <b>"&rs.Fields("fecha")&"</b></font><br><font size=1 color=#696969>• " &rs.Fields("copete") & "</font>" 
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("</p>")

end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

if PaginaActual > 1 then
Response.Write("<A HREF=index.asp?pagina="& PaginaActual-1& _
">Página anterior</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write(" - <A HREF=index.asp?pagina=" & PaginaActual+1 & _ 
">Página siguiente</A>")
end if
%> 



[/cod

[CHuLoSoY]

ok muchas gracias, aunque en vez de &lt;font se lo aplicaré a &lt;td&gt;

saludos y muchas gracias.

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">