Pagina dependiendo del valor de un campo

[igualitoajbs]

Hola, mi problema es el siguiente, tengo el codigo que voy a poner ahora, pero resulta que a la consulta le paso un valor que recoge del formulario, y resulta que me hace bien la busqueda, pero cuando le doy al enlace para pasar a la siguiente pagina no me lo hace, y me he dado cuenta que si en vez de poner el valor que recoge del formulario, le pongo uno directamente me hace bien la busqueda y la paginacion, alguien sabe pq?, y como puedo solucionarlo?. Voy a poner el codigo:

<%
' Paginación de la búsqueda.
' Definición de variables.
Dim PaginaActual
Dim PaginasTotales
Dim TamPagina
Dim CuantosRegistros

TamPagina=12

'Leemos qué página mostrar. La primera vez será la inicial.
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if

'Creamos los objetos y definimos las propiedades del Recordset.
set rs2=Server.CreateObject("ADODB.Recordset")
' Ver días de inhabilitación.
sql = "SELECT * " & _
"FROM waldiainh " & _
"WHERE wdi_id_aula='" & request("aula") & "'"
'response.Write(sql)

' Defino el tamaño de las páginas.
rs2.PageSize=TamPagina
rs2.CacheSize=TamPagina

' Abro el recordset.
rs2.Open sql, cn, 1, 2

' Cuento las páginas.
PaginasTotales=rs2.PageCount

' Compruebo que la pagina actual está en el rango.
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
%>

<table class="HeaderTable" border="0">
<tr>
<td class="HeaderTD" align="right">
<% If PaginasTotales=0 Then %>
No se han encontrado registros.
<% else %>
Resultados de la b&uacute;squeda, para <b><%=rs2("aula")%></b>
<% end if %>
</td>
</tr>
</table>
<br>

<%
if PaginasTotales>=1 then
%>
<table width="100%" border="0">
<tr>
<td width="5%" class="fieldTD">&nbsp;Aula</td>
<td width="10%" class="fieldTD">&nbsp;Fecha</td>
<td width="30%" class="fieldTD">&nbsp;Causa</td>
</tr>
<tr class="LabelData">
<%
' Vamos a paginar.
rs2.AbsolutePage=PaginaActual
CuantosRegistros=0
Do While Not rs2.EOF AND CuantosRegistros < TamPagina %>
<tr>
<td class="DataTD">&nbsp;<%=rs2("codAula")%></td>
<td class="DataTD">&nbsp;<%=rs2("fecha")%></td>
<td class="DataTD">&nbsp;<%=rs2("causa")%></td>
</tr>
<%
CuantosRegistros=CuantosRegistros+1 rs2.MoveNext
Loop

' Terminar el recordset con la BD. rs2.Close
set rs2 = NOTHING
%>
<tr>
<td colspan="8" width="5%" class="fieldTD" align="center">&nbsp;
<%
'Muestro los enlaces anterior y siguiente.
if PaginaActual > 1 then
Response.Write("<a href=calendario.asp?pagina="& PaginaActual-1 &">12 Anteriores</a> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<a href=calendario.asp?pagina=" & PaginaActual+1 &">12 Siguientes</a>")
end if
%>
</td>
</tr>
</table>
<% end if %>

Bueno, espero que alguien me pueda ayudar a encontrar la solucion, tiene que ser una tonteria. Saludos y gracias.

[JuanRAPerez]

este es el valor que recoges en tu consulta inicial: request("aula")

<%
'Muestro los enlaces anterior y siguiente.
aula = request("aula")
if PaginaActual > 1 then
Response.Write("<a href=calendario.asp?aula="& aula &"&pagina="& PaginaActual-1 &">12 Anteriores</a> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<a href=calendario.asp?aula="& aula &"&pagina=" & PaginaActual+1 &">12 Siguientes</a>")
end if
%>

Tienes que mandar el valor a las siguientes paginas para que te respete la paginación

suerte

[igualitoajbs]

Gracias, a ver si es verdad, mañana lo pruebo, espero que me funcione, pq le he dado muchas vueltas a eso.

Saludos y gracias.