Uso una BD Access y tengo una página en la que muestro resultados (hay de momento 118 resultados). Bien, lo pagino y salen 13 páginas pero no muestra los resultados, se queda en 116, pero en la base de datos sí aparecen. No sé si ha quedado claro, voy a poner el código pero no sé si hay error ahí ya que funciona bien hasta que llega a ese número.
Código PHP:
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\data\db1.mdb")
Dim mostrar
Dim cant_paginas
Dim pagina_actual
Dim registro_mostrado
Dim I
mostrar = 5
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
SQL="Select * from seg_mano where poblacion='"&poblacion&"'"
RS.PageSize = mostrar
RS.CacheSize = mostrar
RS.MaxRecords=0
RS.Open SQL, Conn,3,1
cant_paginas = RS.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas <> 0 Then
RS.AbsolutePage = pagina_actual
if not rs.eof or not rs.bof then
Do While registro_mostrado < mostrar And Not RS.EOF
'Muestro las tablas con los registros
'....
rs.movenext
registro_mostrado=registro_mostrado+1
loop
else
response.write "<tr><td>La base de datos está vacía. Inserte un inmueble de segunda mano y repita esta operación.</td></tr>"
end if
'-------------------------------
'Ahora pongo la navegación por páginas
'-------------------------------
<% If pagina_actual > 1 Then %>
<a href="./mod_seg_mano2.asp?page=<%= pagina_actual - 1 %>&poblacion=<%=poblacion%>"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><strong>[< Anterior]</strong></font></a>
<%
End If
' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%response.write "<font face=verdana size=1>Página "&I&"</font>" %>
<%
Else
%>
<a href="./mod_seg_mano2.asp?page=<%= I %>&poblacion=<%=poblacion%>"><%= I %></a>
<%
End If
Next 'I
If pagina_actual < cant_paginas Then
%>
<a href="./mod_seg_mano2.asp?page=<%= pagina_actual + 1 %>&poblacion=<%=poblacion%>"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><strong>[Próximo >]</strong></font></a>
<%
End If
'Fin...
%>
Gracias.
