Hola todos ... estoy intentando hacer la paginacion de los resultados de una busqueda, ya intente varios codigos y siempre me marca el mismo error espero me puedan ayudar antes de volverme loka !!
... este es mi codigo
<%
'Parametros de busqueda
condicion = server.HtmlEncode(request.form("campoProfesion"))
condicion2 = server.HtmlEncode(request.form("campoSueldo"))
Const NumPerPage = 5
'Retrieve what page we're currently on
Dim CurPage
If Request.QueryString("CurPage") = "" then
CurPage = 1 'We're on the first page
Else
CurPage = Request.QueryString("CurPage")
End If%>
<!--#Include file="INCLUDE/Inc_Conexion.asp"-->
<%'Explicitly Create a recordset object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
'Set the cursor location property
rs.CursorLocation = adUseClient
'Set the cache size = to the # of records/page
rs.CacheSize = NumPerPage
'Open our recordset
Dim strSQL
strSQL = "SELECT Nombres, ApPaterno, ApMaterno, Telefono, Titulo, Sueldo from datosProfesionales where curric='1'"
rs.Open strSQL, Conn,3,3
'rs.MoveFirst
rs.PageSize = NumPerPage
'Get the max number of pages
Dim TotalPages
TotalPages = rs.PageCount
'Set the absolute page
rs.AbsolutePage = CurPage
'Counting variable for our recordset
Dim count%>
<HTML>
<BODY>
<B>Paginación</B><BR>
<%
'Set Count equal to zero
Count = 0
Do While Not rs.EOF And Count < rs.PageSize
Response.Write(rs("Nombres") & "<BR>")
Count = Count + 1
rs.MoveNext
Loop
'Print out the current page # / total pages
Response.Write("Page" & CurPage & " of " & TotalPages & "<P>")
'Display Next / Prev buttons
if CurPage > 1 then
'We are not at the beginning, show the prev button
Response.Write("<INPUT TYPE=BUTTON VALUE=PREV ONCLICK="" document.location.href='despliegacandidatosotro.as p?curpage=" & curpage - 1 & "';"">")
End If
if CInt(CurPage) <> CInt(TotalPages) then
'We are not at the end, show a next button
Response.Write("<INPUT TYPE=BUTTON VALUE=NEXT ONCLICK="" document.location.href='despliegacandidatosotro.as p?curpage=" & curpage + 1 & "';"">")
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</BODY>
</html>
Este codigo si funciona bien pero cuando meto las variables en el query es donde me falla ... es decir ... cuando jalo los valores de la consulta:
strSQL = "SELECT Nombres, ApPaterno, ApMaterno, Telefono, Titulo, Sueldo from datosProfesionales where curric='1' and Titulo like '"&condicion&"' and Sueldo like '"&condicion2&"'"
El error que me marca es
ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
y me lomarca en la siguiente linea
rs.AbsolutePage = CurPage
Espero no haberlos mareado con mi rollo pero la verdad ya estoy desesperada
Slds
Karolina ....