Ofertas Inmobiliaria Rossello

Ofertas

<% 'establecemos la conexion set Conexion=Server.CreateObject("ADODB.Connection") Conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../../db/InmobiliariaRossello___-___BaseDeDatos.mdb") & ";Jet OLEDB:Database Password=gluckesher;" Conexion.Open set Inmuebles = Server.CreateObject("ADODB.recordset") Inmuebles.Open "SELECT Viviendas.IdVivienda, ClasesViviendas.Nombre, CP.poblCP, CP.provCP, Zonas.Nombre as zona, Viviendas.MUtiles, Viviendas.PVPeur, Viviendas.DestinoAlquiler, Viviendas.DestinoVenta, Viviendas.DestinoTraspaso, Viviendas.Dormitorios, Viviendas.Salones, Viviendas.Banos, Viviendas.Aseos, Viviendas.ObservacionesWeb FROM Viviendas, ClasesViviendas, CP, Zonas WHERE Viviendas.Web AND NOT Viviendas.Dadodebaja AND ClasesViviendas.IdClaseVivienda = Viviendas.Clase AND CP.codCP = Viviendas.CodigoPostal AND Zonas.idZona = Viviendas.idZona AND Viviendas.Web AND NOT Viviendas.Dadodebaja AND Viviendas.oferta ORDER BY Viviendas.IdVivienda ASC", Conexion,3,3 'Comprobamos si hay resultados if Inmuebles.EOF then Response.Write("

No existen Ofertas en este momento.

") else 'Dimensionamos las paginas y determinamos la pagina actual Inmuebles.PageSize = num_registros Inmuebles.AbsolutePage = Session("pagina") registros = Inmuebles.RecordCount registros_mostrados = 0 While (Not Inmuebles.eof And registros_mostrados < num_registros) registros_mostrados = registros_mostrados + 1 if (registros_mostrados = 4) then %>

<% end if %>

Ref: <%=Inmuebles("IdVivienda")%>
<%=Inmuebles("Nombre")%>
Estado: <% if Inmuebles("DestinoVenta") then %>Venta<% end if%> <% if Inmuebles("DestinoAlquiler") then %>Alquiler<% end if%> <% if Inmuebles("DestinoTraspaso") then %>Traspaso<% end if%>
Habitaciones: <%=Int(Inmuebles("Dormitorios"))%>
Zona: <%=Inmuebles("zona")%>
Población: <%=Inmuebles("PoblCP")%>
Precio: <%=Inmuebles("PVPeur")%> €

<% set jesus = Server.CreateObject("ADODB.recordset") jesus.Open "SELECT ID FROM Files WHERE IdVivienda = " & Inmuebles("IdVivienda"), Conexion, 3, 3 %> ">

"> <% if ((registros_mostrados Mod 3)<>0) then %>

<% end if %>

<% Inmuebles.MoveNext Wend %>

<% 'avancefinal = 5 if hasta > Inmuebles.PageCount then 'avancefinal = hasta - Inmuebles.Pagecount hasta = Inmuebles.Pagecount end if if desde > 1 then %> ">[ << ] <% end if For i = desde to hasta if i = Int(Session("pagina")) then %> <% response.write(""&i) %> <% else %> <% response.write(""&i) %> <% end if Next if hasta <> Inmuebles.PageCount then if (Int(Session("pagina")) + 5 ) > Inmuebles.Pagecount then %> [ >> ] <% else %> ">[ >> ] <% end if end if %>

<% end if Conexion.Close set Conexion = nothing %>