Bueno, aqui esta el error. HE cogido el codigo que me djo TUnait, y a continuacion lo pongo aqui.
Código:
<%
' ***** PAGINAR *****
%>
<%
If txtPagina = "" Then
PaginaActual=1
Else
PaginaActual=CInt(txtPagina)
End if
TamPagina=10 ' ** AQUI EL TAMAÑO QUE QUIERA
%>
<%
' Defino el tamaño de las páginas
MyRecordset.PageSize = TamPagina
MyRecordset.CacheSize = TamPagina
%>
<% Set MyRecordSet = MyConn.Execute(strSQLTodas) %>
<%
PaginasTotales= MyRecordset.PageCount
%>
<%= PaginasTotales %>
<%
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
%>
<%
If PaginasTotales =< 0 Then
response.write("Error. No se puede mostrar la Informacion. Por favor, ")
response.write("<br>pongase en contacto con el administrador")
Else
MyRecordset.AbsolutePage = PaginaActual
CuantosRegistros=0
Do While NOT MyRecordSet.EOF And CuantosRegistros < TamPagina
<!-- SELECCIONO LOS CAMPOS::: -->
<%
CuantosRegistros=CuantosRegistros+1
%>
<% MyRecordset.MoveNext
loop
MyRecordset.Close
%>
<% End If %>
<%
'Muestro los enlaces
Response.Write("<hr>")
if PaginaActual > 1 then
Response.Write("<A HREF=rspagina.asp?pagina="& PaginaActual-1& ">10 Anteriores</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=rspagina.asp?pagina=" & PaginaActual+1 &">10 Siguientes</A>")
end if
%>
<% end if %>
Bueno, pues asi, cuando el valor de txtPagina es "", entonces el valor de PaginasTotales = -1 (¿como puedes ser numero negativo?). Si el valor de txtPagina es otro numero, paginasTotales es tambien ese numero.
¿Por qeu demonios hace eso?¿Por que me da un numero negativo?