
20/06/2007, 03:44
|
| | Fecha de Ingreso: mayo-2007
Mensajes: 22
Antigüedad: 17 años, 10 meses Puntos: 0 | |
Pagina dependiendo del valor de un campo 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ú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"> Aula</td>
<td width="10%" class="fieldTD"> Fecha</td>
<td width="30%" class="fieldTD"> 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"> <%=rs2("codAula")%></td>
<td class="DataTD"> <%=rs2("fecha")%></td>
<td class="DataTD"> <%=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">
<%
'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. |