Paginar una tabla por registros y alternar el color de filas del recordset

[jose199]

Hola amigos, podria alguien indicarme como paginar una tabla por registros y que a su vez pueda alternar el color de filas del recordset.

Gracias de antemano.
José Manuel

[nazkatuta]

te pongo un ejemplo... para mostrar registros de 10 en 10 yy cambiar el color alternativamente...
para cambiar de pagina hay que pasarle un valor a por el querystring a "pag".

StrSQL = "SELECT id, nombre, apellidos, fecha,info FROM contactos_web order by fecha desc"


RS.Open strSQL, Conexion, 1 ,2

if request.querystring("pag") <> "" then
intCurrentPage = request.querystring("pag")
else
intCurrentPage = 1
end if
arrelementos = RS.GetRows 'Carga el array y cierra el RecordSet
intTotalRecords = RS.RecordCount
RS.Close
Set RS = Nothing
Conexion.Close
set Conexion = Nothing

intPageSize = 10 ' 10 registros por página
intStart = ((intCurrentPage - 1) * intPageSize)
intEnd = intStart + intPageSize - 1


intCurrentRecord = intStart

<%
Do
id = arrelementos(0, intCurrentRecord)
nombre = trim(arrelementos(1, intCurrentRecord))
apellidos = trim(arrelementos(2, intCurrentRecord))
fecha = arrelementos(3, intCurrentRecord)
info = arrelementos(4, intCurrentRecord)


if i mod 2 = 0 then
color = "#006633"
else
color = "#FF0000"
end if


%>
<font color="#<%=color%>"AQUI MUESTRA CADA REGISTRO </font>

<% i = i +1
intCurrentRecord = intCurrentRecord + 1
If intCurrentRecord >= intTotalRecords Then Exit Do
Loop While intCurrentRecord <= intEnd
%>



espero que te sirva.

[jose199]

Si efectivamente el paginar el listado lo tengo claro y funciona correctamente, pero el problema lo tengo a la hora de alternar los colores, no doy con ello aqui te muestro el código paginando los registros de 20 en 20
<%Option Explicit%>
<%
Dim mostrar 'numero de registros por página
Dim cant_paginas 'numero de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim I 'Variable Loop

mostrar = 20 ' cantidad de registros por página


If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If

strsql = "SELECT * FROM musica"

' Creamos la conexion a la base de datos
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/directorio/musica.mdb"))
' Creamos el RecordSet y definimos la cantidad de registros a mostrar
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar

' Abrimos la tabla...
RS.Open strSQL, oConn,3,1
'contamos las páginas que se formaron con la variable mostrar.
cant_paginas = RS.PageCount

' Si el pedido de página cae afuera del rango,
' lo modificamos para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1

' Si la cantidad de páginas da 0 es que no hay registros...
If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else
' Nos movemos a la página elegida
RS.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
%>
<FONT SIZE="+1">Page <B><%= pagina_actual %></B> of <B><%= cant_paginas %></B></FONT>
<%
' Espacios
Response.Write "<BR><BR>" & vbCrLf
'iniciamos la tabla donde mostraremos todo
Response.Write "<TABLE BORDER=""1"">" & vbCrLf
' Mostramos los titulos de las columnas...
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD><B>"
Response.Write RS.Fields(I).Name
Response.Write "<B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf

' Creamos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD>"
Response.Write RS.Fields(I)
Response.Write "</TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf

' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al próximo registro...
RS.MoveNext
Loop

'listo...
Response.Write "</TABLE>" & vbCrLf
End If

' Cerramos y limpiamos...
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing

' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%>
<a href="./registro.asp?eje=30&page=<%= pagina_actual - 1 %>">[<< Anterior]</a>
<%
End If

' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%= I %>
<%
Else
%>
<a href="./registro.asp?eje=30&page=<%= I %>"><%= I %></a>
<%
End If
Next 'I

If pagina_actual < cant_paginas Then
%>
<a href="./registro.asp?eje=30&page=<%= pagina_actual + 1 %>">[Próximo >>]</a>
<%
End If
'Fin...
%>

[RootK]

Hola... pues como dice el compañero mazkatuta... solo es cosa de agregar

if bandera mod 2 = 0 then
color = "#006633"
else
color = "#FF0000"
end if


y colocarlo ya sea en tu texto o en tu <td> .. mira.. te podría quedar de ésta forma:


' Creamos el bucle mostrando los datos del registro
registro_mostrado = 0
bandera = 0
Do While registro_mostrado < mostrar And Not RS.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1

if bandera mod 2 = 0 then
color = "#006633"
else
color = "#FF0000"
end if

Response.Write vbTab & vbTab & "<TD bgcolor='" & color & "'>"
Response.Write RS.Fields(I)
Response.Write "</TD>" & vbCrLf
bandera = bandera + 1
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf




Saludos

[jose199]

Gracias por tu ayuda compañero.