Saludos:
Estoy intentando hacer una paginación de forma que aparezca para pasar de una pagina a otra el texto: "Ir a los próxsimos 4 resultados"
En principio parece estar bien, pero cuando pulso sobre el link, aparentemente no recoge el valor que le paso por url para avanzar de pagina y me devuelve el error siguiente:
HTTP/1.1 404 No se encuentra el objeto
La DB es ACCESS.
Es obvio que algo falla, pero o es muy evidente o no se.... pero no consigo verlo.
Uso 2 recordset, el encargado de mostrar la información a paginar es RsCasas.
Lo que pretendo es listar de 4 en 4 los registros a dos columnas.
Por favor podrían intentar ver el código a ver si consiguen ver lo que yo no veo o indicarme algo que me sugiera donde buscar el error.
Gracias de antemano
------Código----
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/estilos_web.css" rel="stylesheet" type="text/css">
<title>Bienvenido a Rustic Galicia</title></head>
</head>
<!--#include file="adovbs.asp" -->
<!--#include file="funciones.asp" -->
<body>
<%
'Abrimos el RsProvincias para recuperar las provincias que tienen casas
Set Conn= Server.CreateObject("ADODB.Connection")
Set Command= Server.CreateObject("ADODB.Command")
Conn.open "DSN=rusticgalicia.com"
Command.ActiveConnection=Conn
Command.CommandType=adCmdText
Command.CommandText= "SELECT DISTINCT provincia FROM casas"
Set RsProvincias=Command.Execute ()
'Abrimos RsCasas en la tabla casas
set Conn1= Server.CreateObject("ADODB.Connection")
Set RsCasas=Server.CreateObject("ADODB.Recordset")
Conn1.ConnectionString = "DSN=rusticgalicia.com"
Conn1.open
sqlstring2= "SELECT * FROM casas order by id"
RsCasas.open sqlstring2, conn1, 3, 3
'Variables para la paginacion
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' la cuenta que os he mencionado
'Modificar aqui para cambiar el numero de registros por pagina
TamPagina=6
'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
response.Write "<br>Pagina vale= " & pagina
response.write "<br> PaginaActual vale= " & PaginaActual
RsCasas.PageSize=TamPagina
RsCasas.CacheSize=TamPagina
'Cuento las páginas
PaginasTotales=RsCasas.PageCount
response.write "<br> TamPagina vale= " & TamPagina
'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
RsCasas.AbsolutePage=PaginaActual
response.write "<br> PaginasTotales vale= " & PaginasTotales
'Añadimos la cabecera de la página
cabecera
%>
<table class="cuerpo" align="center" cellspacing="0" cellpadding="0">
<tr>
<td width="10"> </td>
<td colspan="2"> </td>
<td width="376"> </td>
</tr>
<tr>
<td> </td>
<td colspan="2" class="provincias">
<%
RsProvincias.movefirst
do while not RsProvincias.eof
response.write RsProvincias("provincia") & " | "
RsProvincias.movenext
loop
%> </td>
<td class="provincias"> <%if PaginaActual > 1 then
Response.Write("<A HREF=catalogo.asp?pagina="& PaginaActual-1 &" >Ir a los 4 Anteriores</A>")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=catalogo.asp?pagina=" & PaginaActual+1 & ">Ir a los 4 Siguientes</A>")
end if%></td>
</tr>
<tr>
<td> </td>
<td colspan="2"> </td>
<td> </td>
</tr>
<%
RsCasas.movefirst
CuantosRegistros=0
Do while not RsCasas.eof and CuantosRegistros < TamPagina
%>
<tr>
<td> </td>
<td width="350">
<table class="catalogo" cellspacing="0" cellpadding="0">
<tr>
<td width="22" rowspan="6"><img src="images/fondos/informacion.jpg" width="26" height="105"></td>
<td width="244"></td>
<td width="134" rowspan="6"><img src="<%=RsCasas("imagen1")%>" width="<%=RsCasas("imagen1ancho")%>" height="<%=RsCasas("imagen1alto")%>"></td>
</tr>
<tr>
<td class="datoscasas">REFERENCIA: <%=RsCasas("referencia")%></td>
</tr>
<tr>
<td class="datoscasas"><%=RsCasas("poblacion")%></td>
</tr>
<tr>
<td class="datoscasas"><%=RsCasas("superficievivienda")%></td>
</tr>
<tr>
<td class="datoscasas"><%=RsCasas("superficiefinca")%></td>
</tr>
<tr>
<td class="datoscasas"><%=RsCasas("precio")%> € </td>
</tr>
</table> </td>
<td width="6"> </td>
<td align="right">
<%
CuantosRegistros=CuantosRegistros+1
RsCasas.movenext
if not RsCasas.eof and CuantosRegistros < TamPagina then%>
<table class="catalogo" cellspacing="0" cellpadding="0">
<tr>
<td width="22" rowspan="6"><img src="images/fondos/informacion.jpg" width="26" height="105"></td>
<td width="244"></td>
<td width="134" rowspan="6"><img src="<%=RsCasas("imagen1")%>" width="<%=RsCasas("imagen1ancho")%>" height="<%=RsCasas("imagen1alto")%>"></td>
</tr>
<tr>
<td class="datoscasas">REFERENCIA: <%=RsCasas("referencia")%></td>
</tr>
<tr>
<td class="datoscasas"><%=RsCasas("poblacion")%></td>
</tr>
<tr>
<td class="datoscasas"><%=RsCasas("superficievivienda")%></td>
</tr>
<tr>
<td class="datoscasas"><%=RsCasas("superficiefinca")%></td>
</tr>
<tr>
<td class="datoscasas"><%=RsCasas("precio")%> € </td>
</tr>
</table></td>
<td width="10"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%CuantosRegistros=CuantosRegistros+1
RsCasas.movenext
End if
Loop%>
</table>
<%RsProvincias.close
RsCasas=close
Conn.close
Conn1.close %>
</body>
</html>