Otro problema ASP

ruben21 · #1 (**permalink**) 26/08/2006, 03:21

Buenas, mi problema se encuentra en que no hace bien la paginación una aplicación ASP cuando se le introduce el número de registros por página que quiero. Sin embargo, cuando le introduzco dicho valor por defecto funciona perfectamente.

Pongo el código para mayor claridad:

Cita:

<html>
<head>
<title>ACTUR</title>
<%
Dim nombre
Dim localitat
Dim numresult
'declaramos nom y guardamos la info asi.
nombre = Request("nombre")
localitat=Request("localitat")
numresult=Request("numresult")
'Session("nombre")=nombre
'Session("localitat")=localitat
'Session("numresult")=numresult

sSQL="SELECT * FROM cases WHERE Ciudad = '"&localitat&"' OR Nombre = '"&nombre&"'"

'actualizamos numero de pagina
If Request.QueryString("pag")<>"" then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If

'constantes ADO VBScript
Const adCmdText = &H0001
Const adOpenStatic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Set Command = Server.CreateObject("ADODB.Command")
Set RS =Server.CreateObject("ADODB.RecordSet")
Conn.Open "buscador"
RS.Open sSQL,Conn,adopenstatic,adcmdtext

'resultados por pagina
if numresult = "" then
num_registros = 1
else
num_registros=numresult
end if
response.write(num_registros&"jojo")
response.write(numresult)
'Dimensionamos las paginas y determinamos la pagina actual
RS.PageSize=num_registros
RS.AbsolutePage=Session("pagina")

%>

<br><br>

<table cellspacing="2" cellpadding="2" border="1" align="center">
<%
'Contamos el numero de campos de la tabla
num_campos=RS.Fields.Count
For campo=0 to num_campos-1%>
<td align="center"><%=RS(campo).Name%> </td>
<%
Next
registros_mostrados = 0
While (Not RS.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
%>
<tr>
<%For campo=0 to num_campos-1 %>
<td align="center"><%=RS(campo)%> </td>
<%Next%>
</tr>
<%
RS.MoveNext
Wend
%>
<tr>
<td colspan="<%=num_campos%>" align="center">
<%
i=0
While i<RS.PageCount
i=i+1
%>
<b><a href="cerca.asp?pag=<%=i%>&localitat=<%=request("l ocalitat")%>&nombre=<%=request("nombre")%>&numresu lt=<%=request("numresult")%>"><%=i%></a></b>
<%
Wend
%>  </td>
</tr>
</table>
<%
RS.Close
Conn.Close
%><a href="index.asp">Tornar a l'índex
</body>
</a>
</html>

El problema se encuentra en el apartado marcado en negrita. Cuando se cumple la primera condición del bucle funciona, pero sinó no.

He probado a poner el valor de la variable "numresult" en el enlace (y el valor lo coje bien al pasar de página), pero el programa se vuelve "loco" y pagina como quiere.

A ver si me podeis ayudar. Muchas gracias!