<% OpenDB Set RS = Server.CreateObject("ADODB.RecordSet") filtrozona = request.querystring("filtrozona") if not isnumeric(filtrozona) then filtrozona = "" if filtrozona <> "" then nombrezona = GetNombreZona(filtrozona) if nombrezona = "" then titulo_ventana = "Duenosenlaweb.com.ar - Listado de inmuebles " else titulo_ventana = "Propiedades en "& nombrezona &" - Listado de inmuebles " end if %> <%= titulo_ventana %>
<% if nombrezona <> "" then %>

Lista de inmuebles en <%= nombrezona%>.

Ventas y alquileres disponibles.

A continuación encuentre las
propiedades publicadas por la zona.

Mostrar el índice completo de
todos los inmuebles del sitio

<%else%> <% sql = "SELECT * FROM zonas WHERE usado = 1 ORDER BY zona" RS.Open sql, oConn Do while not RS.EOF %> <% for i=1 to 4 %> <% next %> <% loop RS.Close %>
# Propiedades por zonas
<% if not RS.EOF then idzona = RS("id") zona = RS("zona") %> <%= zona%> <% RS.MoveNext end if %>


<% end if %> <% i = 0 sql = "SELECT inmuebles.*, zonas.zona, localidades.localidad, provincias.provincia FROM inmuebles " sql = sql & "LEFT JOIN provincias ON inmuebles.idprovincia = provincias.id " sql = sql & "LEFT JOIN localidades ON inmuebles.idlocalidad = localidades.id " sql = sql & "LEFT JOIN zonas ON inmuebles.idzona = zonas.id " sql = sql & "WHERE inmuebles.habilitado = 1 " if filtrozona <> "" then sql = sql &"AND inmuebles.idzona = "& filtrozona & " " sql = sql & "AND inmuebles.fechafin >= '"& FechaGenericaSinBarras(Date) &"' " sql = sql & "ORDER BY producto, operacion, localidad, zona, id DESC" RS.Open sql, oConn Do while not RS.EOF color = "" if i mod 2 = 0 then color = "FFF" id = RS("id") producto = GetProducto(RS("producto")) operacion = GetOperacion(RS("operacion")) provincia = RS("provincia") localidad = RS("localidad") zona = RS("zona") precio = RS("precio") moneda = GetSimboloMoneda(RS("moneda")) if precio = "0" then preciofinal = "sin precio" else preciofinal = trim(moneda &" "& precio) end if %> <% RS.Movenext i = i+1 loop RS.Close Set RS = Nothing CloseDB %>
Producto Operación Gran zona Zona Subzona Precio  
<%= producto %> <%= operacion %> <%= provincia %> <%= localidad %> <%= zona %> <%= preciofinal %> Visitar