Errores al Paginar

[meru-kun]

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>&nbsp;&nbsp;&nbsp;")
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?

[tunait]

Algunas funciones devuelven -1 si no encuentran nada.

De todas formas no se corrige con esto?

If txtPagina = "" Then
PaginaActual=1


Te da algún error?

[meru-kun]

Pues a pesar de eso, no se me corrige.
Con
If PaginasTotales =< 0 Then se supone que se corrige, pero aun asi me da error.
En http://user.domaindlx.com/TimberMani...=VerTodas&pag=
Ahi podras ver la web, y los errores...

Por cierto, siento desencajar el foro :(

[bakanzipp]

no tendra que ver con este error?





recordcount

[meru-kun]

Pues hasta hace nada si, pero ahora ya he añadido la sentencia que faltaba, y la cosa que da asi:
<%
MyRecordset.CursorType = adOpenKeySet
'MyRecordset.Open strSQLTodas, myConn
Set MyRecordset = MyConn.Execute(strSQLTodas) %>
<%
PaginasTotales = MyRecordset.PageCount
%>


Pero sigye dando -1