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>