Foros del Web - Ver Mensaje Individual

ciberpata · #10 (**permalink**) 26/07/2006, 15:08

Ya he conseguido que me funcione el link: "4 anteriores" y "4 siguientes", pero aunque me muestra y recoge bien el valor de la variable pagina no me avanza de 4 en 4 registros en RsCasas:

El código queda así:

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"
rscasas.cursorlocation=aduseclient
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=4

'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> 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">&nbsp;</td>
    <td colspan="2">&nbsp;</td>
    <td width="376">&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</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%>
        <a href="catalago.asp?pagina=<%=(cint(PaginaActual)-1)%>">4 Anteriores</a>
    <%end if
    
    if PaginaActual < PaginasTotales then%>
        <a href="catalago.asp?pagina=<%=(cint(PaginaActual)+1)%>">4 siguientes</a>
    <%end if%>    </td>
     
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td colspan="2">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
    <%
    
    CuantosRegistros=0
    RsCasas.movefirst
    
    Do while not RsCasas.eof and CuantosRegistros < TamPagina
  %>
  <tr>
    <td>&nbsp;</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")%> &euro; </td>
        </tr>
    </table>    </td>
    
    
    
    <td width="6">&nbsp;</td>
    
    
    <td align="right">
    <%
    CuantosRegistros=CuantosRegistros+1
    response.write "cuantosregistros vale= " & cuantosregistros & "<br>"

    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")%> &euro; </td>
        </tr>
    </table></td>
    <td width="10">&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    </tr>
    
  <%CuantosRegistros=CuantosRegistros+1
  RsCasas.movenext
    End if  
  Loop%>
</table>

<%RsProvincias.close
RsCasas=close
Conn.close
Conn1.close    %>
</body>
</html>