Buenas amigos
Aqui estoy de nuevo, tengo un problema al tratar de paginar un recordset me da el siguiente error
Tipo de error:
ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/xxxxxxx/xxxx/xxxxx.asp, línea 155
el codigo es el siguiente, le agradeciria su ayudad
Dim Conexion,Tabla
Dim PaginaActual
Dim PaginasTotales
Dim TamPagina
Dim CuantosRegistros
Dim Temp
TamPagina=1
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "portal"
tabla.PageSize=TamPagina
tabla.CacheSize=TamPagina
palabra = Request("palabra")
if palabra = "" then
Response.Write("Debe colocar una palabra por lo menos")
else
Temp="Select * From registros Where UCase(pclave) like '%" & UCase(Request("palabra")) & "%'"
Tabla.Open Temp, Conexion
PaginasTotales=tabla.PageCount
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then
%>
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>
<p>
<%
Else
tabla.AbsolutePage=PaginaActual
CuantosRegistros=0
%>
<p align="center"><%Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)%></p>
<% do while not tabla.EOF and CuantosRegistros < TamPagina %>
</p>
<table width="509" border="0">
<tr>
<td><strong><font size="3"><%=tabla("nombre")%></strong></font></font></td>
</tr>
<tr>
<td><font size="2"><%=tabla("descripcion")%></font></td>
</tr>
</table> <p>
<%
CuantosRegistros=CuantosRegistros+1
tabla.MoveNext
loop
tabla.Close
conexion.Close
set tabla=nothing
set Conexion=nothing
End if
%>
<p><%
Response.Write("<hr>")
if PaginaActual > 1 then
Response.Write("<A HREF=resultado.asp?pagina="& PaginaActual-1& _
">Anteriores</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=resultado.asp?pagina=" & PaginaActual+1 & _
">Siguientes</A>")
end if
end if
%>
gracias de antemano