Error al paginar

[movil]

Hola a todos!

Alguien sabe porque me falla esta paginacion? Siempre se va a 'no quedan mas elementos' y os aseguro que quedan unos cuantos.

<%TamPagina=10
if Request.Querystring("pagina")="" then 'Leemos qué página mostrar. La primera vez será la inicial
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "colegio"
nivel=request.QueryString("nivel")
curso=request.QueryString("curso")
if curso="" and nivel="" then%>
<script language="javascript">ErrorDat();</script>
<%elseif curso<>"" and nivel<>"" then
SQL="select * from asignatura where curso='"&curso&"' and tipoCurso='"&nivel&"'"
rs.PageSize=TamPagina ' Defino el tamaño de las páginas
rs.CacheSize=TamPagina
rs.CursorLocation = 3 ' Defino el cursor en el cliente: adUseClient
rs.Open SQL, oConn, 1, 2 ' Abro el recordset
PaginasTotales=rs.PageCount 'Cuento las páginas
Response.Write("<br><br>")%>
<div align="center"><strong><font size="5" face="Courier New, Courier, mono">Datos de la asignatura</font></strong></div>
<%Response.Write("<br><br>")
if PaginaActual < 1 then 'Compruebo que la pagina actual está en el rango
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then 'Por si la consulta no devuelve registros!
Response.Write("No se encontraron resultados.") else
rs.AbsolutePage=PaginaActual%>
<table>
<tr>
<td width="20"></td>
<td><div align="left"><strong>Página <%=PaginaActual%> de <%=PaginasTotales%></strong></div></td>
</tr>
</table>
<%Response.Write("<br><br>")
Response.Write("<center><table><tr><th>Asignatura< th>Código<th>Curso<th>Profesor<th>DNI")
registro=0
do while registro<10 and not rs.eof
Response.Write("<tr><td height=25 width=200>"&" "&"<center>"&RS("nomasig")&" ")
Response.Write("<td width=75>"&" "&"<center>"&RS("Codasig")&" ")
Response.Write("<td width=150>"&" "&"<center>"&RS("curso")&" "&RS("tipoCurso")&" ")
set rs1=oconn.execute("select * from asigprof where codasig='"&rs("codasig")&"'")
if not rs1.eof then
Response.Write("<td width=200>"&" "&"<center>"&RS1("Nompro")&" "&RS1("Apepro")&" "&RS1("Apepro1")&" ")
Response.Write("<td width=150>"&" "&"<center>"&RS1("DNIpro")&" ")
else
Response.Write("<td width=200>")
Response.Write("<td width=150>")
end if
registro=registro+1
Rs.movenext
loop
response.Write("</table>")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

if PaginaActual > 1 then
Response.Write("<A HREF=verasi3.asp?nivel="&nivel&"& curso="&curso&" &pagina="& PaginaActual-1& ">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=verasi3.asp?nivel="&nivel&"& curso="&curso&" &pagina=" & PaginaActual+1 &">10 Siguientes</A>")
end if%>

[AlZuwaga]

movil, está como un poco largo para leer ese código y 'no quedan mas elementos' no lo encontré en tu código buscándolo (repito, no lo leería)
Marcá de alguna manera la línea (otro color, en negritas, etc)

[movil]

ya ta marcado en negrita

[trasgukabi]

preuba a añadir

Código:

rs.CursorType = 0
rs.LockType = 1

[movil]

Da igual donde poner las instrucciones? Si es asi sigo con el mismo problema, la primera vez me muestra los 10 primeros registros y la siguiente vez no muestra nada, puede ser problema de los datos que tengo que pasar a la consulta sql?

[trasgukabi]

en la primera entrada, crea una sesión con la cadena sql. en las siguientes compruebas que si existe la sesión se abra el recordset con esa sesión

if session("sql")<>"" then
rs.open session("sql")
else
sql="la cadena sql que quieras"
rs.open sql
session("sql")=sql
end if

y no, lo de antes se pone ANTES DE ABRIR EL RECORDSET.

[ElAprendiz]

la primera vez me muestra los 10 primeros registros y la siguiente vez no muestra nada

eso es cuando pinchas sobre el enlace 10 siguientes, es por que no estas pasando los parametros necesarios

revisa este script haber si te sirve
http://www.forosdelweb.com/f15/regalo-navidad-paginador-automatico-359237/

[movil]

Nada, tampoco lo soluciono, he probado a poner esto en el link de '10 siguientes' pero tampoco sale:

Response.Write("<A HREF=verasi3.asp?nivel="&nivel&"& curso="&curso&" &pagina="& PaginaActual-1& ">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")

Lo que deberia enviarse es nivel=Educacion primaria y curso=1 pero envia
nivel=Educacion y curso=..., a vacio, no se cual es el motivo y no se como solucionarlo.

Tambien he probado con lo siguiente:

Response.Write("<A HREF=verasi3.asp?nivel="&request.queryString("nive l")&"& curso="&request.queryString("curso")&" &pagina="& PaginaActual-1& ">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")

Pero me sale lo mismo que antes y por ultimo he probado con:

Response.Write("<A HREF=verasi3.asp?nivel="&rs("tipoCurso")&"& curso="&rs("curso")&" &pagina="& PaginaActual-1& ">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")

Pero me da el siguiente error:

No coinciden los tipos rs (que no lo entiendo)

[ElAprendiz]

el ultimo error te sale porque cierras el objeto y despues intentas volver a utilizarlo

rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

Response.Write("<A HREF=verasi3.asp?nivel="&rs("tipoCurso")&"& curso="&rs("curso")&" &pagina="& PaginaActual-1& ">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")
%>

debes primero hacer el response y luego cerrar el objeto

[movil]

Sigue sin salir, he hecho la modificacion que me has dicho y se repite el fallo de los dos caso anteriores.

[AlZuwaga]

Código:

Response.Write("<A HREF=verasi3.asp?nivel="&nivel&"&_curso="&curso&"_&pagina="& PaginaActual-1& ">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")

Será por los espacios (_) que tenés allí?

[movil]

pues tampoco es eso. Ya no se que probar. En principio cuando vi que solo me salia 'Educacion', en lugar de 'Educacion primaria', pense que seria por la longitud del campo de la base de datos, pero tampoco es por eso porque ya lo he cambiado y sigue saliendo lo mismo.

[ElAprendiz]

segun lo que veo esta bien hecho el link, como lo tienes originalmente

Código:

Response.Write("<A HREF=verasi3.asp?nivel="&nivel&"& curso="&curso&" &pagina="& PaginaActual-1& ">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")

prueba a hacer un
response.write "nivel="&nivel&"<br>"
response.write "curso="&curso

inmediatamente despues de recibirlas. para ver su valor

[movil]

Al hacer lo que me has dicho me da lo que me tiene que dar, 'educacion primaria'. Pero cuando lo trato al principio de la pagina, en lugar de 'educacion primaria' sigue saliendo 'educacion'

[AlZuwaga]

hacele un Server.URLEncode(nivel) y Server.URLEncode(curso)

[movil]

Muchas gracias, alZuwaga, ya sale todo como debe ser.

Por que antes no me salia?

[AlZuwaga]

será porque no le colocabas las comlillas al HREF?
Igual colocáselas, es lo ideal