Paginacion En Asp --- Desesperada

KarolinaB · #1 (**permalink**) 21/10/2004, 15:57

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%>



<%'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 ....