<% id = request("id") OpenDB Set RS = Server.CreateObject("ADODB.RecordSet") sql = "SELECT inmuebles.*,usuarios.emailpublico,usuarios.telefonopublico,usuarios.telefono,usuarios.email,zonas.zona,imagenes.imagen," sql = sql & "zonas.zona,localidades.localidad,provincias.provincia " sql = sql & "FROM inmuebles " sql = sql & "INNER JOIN usuarios ON inmuebles.idusuario = usuarios.id " 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 & "LEFT JOIN imagenes ON inmuebles.id = imagenes.idinmueble " sql = sql & "WHERE inmuebles.id = "& id & " AND usuarios.habilitado = 1 " sql = sql & "AND inmuebles.fechafin >= '"& FechaGenericaSinBarras(Date) &"' " RS.Open sql, oConn if RS.EOF then response.redirect "index.asp" else formulario_contacto = true dim vecDatosAdicionales redim vecDatosAdicionales(15) sql = "UPDATE inmuebles SET visitas = visitas + 1 WHERE inmuebles.id = "& id oConn.Execute (sql) emailpublico = RS("emailpublico") telefonopublico = RS("telefonopublico") email = RS("email") telefono = trim(RS("telefono")) if telefono = "" then telefono = "no disponible" end if ' linea agregada para sobreescribir el telefono del usuario en caso de tener uno por inmueble ' uso interno solamente if trim(RS("telefono_inmueble")) <> "" then telefono = trim(RS("telefono_inmueble")) formulario_contacto = false end if producto = GetProducto(RS("producto")) operacion = GetOperacion(RS("operacion")) provincia = RS("provincia") if provincia = "" or isnull(provincia) then provincia = "no disponible" localidad = RS("localidad") if localidad = "" or isnull(localidad) then localidad = "no disponible" zona = RS("zona") if zona = "" or isnull(zona) then zona = "no disponible" direccion = RS("direccion") if direccion = "" or isnull(direccion) then direccion = "no disponible" precio = RS("precio") moneda = GetSimboloMoneda(RS("moneda")) if precio = "0" then preciofinal = "no disponible" else preciofinal = moneda&" "&precio end if ambientes = RS("ambientes") detalle = RS("detalle") latitud = replace(RS("latitud"),",",".") longitud = replace(RS("longitud"),",",".") ' response.write latitud & " "&longitud provincia_titulo = RS("provincia") localidad_titulo = RS("localidad") zona_titulo = RS("zona") ubicacion = "" if localidad_titulo <> "" and not isnull(localidad_titulo) and zona_titulo <> "" and not isnull(zona_titulo) then ubicacion = localidad_titulo &" / "& zona_titulo else if localidad_titulo <> "" and not isnull(localidad_titulo) then ubicacion = localidad else if provincia_titulo <> "" and not isnull(provincia_titulo) then ubicacion = provincia end if end if end if k = 0 superficie = RS("superficie") if superficie <> "0" then vecDatosAdicionales(k) = "Superficie: "& superficie &" m2 " k = k + 1 end if antiguedad = RS("antiguedad") if antiguedad <> "" then vecDatosAdicionales(k) = "Antiguedad: "& antiguedad k = k + 1 end if disposicion = GetDisposicion(RS("disposicion")) if disposicion <> "" then vecDatosAdicionales(k) = disposicion k = k + 1 end if orientacion = RS("orientacion") if orientacion <> "" then vecDatosAdicionales(k) = "Orientacion: "& orientacion k = k + 1 end if cochera = RS("cochera") if cochera <> "" then vecDatosAdicionales(k) = "Cochera" k = k + 1 end if patio = RS("patio") if patio <> "" then vecDatosAdicionales(k) = "Patio" k = k + 1 end if apto = RS("apto") if apto <> "" then vecDatosAdicionales(k) = "Apto" k = k + 1 end if lavadero = RS("lavadero") if lavadero <> "" then vecDatosAdicionales(k) = "Lavadero" k = k + 1 end if amoblado = RS("amoblado") if amoblado <> "" then vecDatosAdicionales(k) = "Amoblado" k = k + 1 end if balcon = RS("balcon") if balcon <> "" then vecDatosAdicionales(k) = "Balcón" k = k + 1 end if pileta = RS("pileta") if pileta <> "" then vecDatosAdicionales(k) = "Pileta" k = k + 1 end if baulera = RS("baulera") if baulera <> "" then vecDatosAdicionales(k) = "Baulera" k = k + 1 end if dependencia = RS("dependencia") if dependencia <> "" then vecDatosAdicionales(k) = "Con Dependencia" k = k + 1 end if titulo_ventana = producto &" en "& operacion &". "& ubicacion end if RS.Close mostrarMapa = false if (latitud <> 0) and (longitud <> 0) then mostrarMapa = true labelMarker = direccion end if %> <%= titulo_ventana %> - Duenosenlaweb.com.ar "> <%if mostrarMapa then%> <%end if%> onload="load();ubicar(<%= latitud%>,<%= longitud%>,'<%= labelMarker %>');" onunload="GUnload()" <% end if %> >
# Datos de la propiedad
Producto: <%= producto %>
Operación: <%= operacion %>
Gran zona: <%= provincia %>
Zona: <%= localidad %>
Sub zona: <%= zona %>
Direccion: <%= direccion %>
Precio: <%= preciofinal %>
Ambientes: <%= ambientes %>
<% for k = 0 to UBound(vecDatosAdicionales) / 2 -1 indice = k*2 %> <% next %>
Datos Adicionales
<%= vecDatosAdicionales(indice) %>  <%= vecDatosAdicionales(indice+1) %> 
<%= detalle %>
<% if mostrarMapa then %>
[ Agrandar Mapa ]
<% end if 'latitud y longitud = 0 sql = "SELECT COUNT(id) FROM imagenes WHERE idinmueble = "& id RS.Open sql, oConn total_imagenes = RS(0) RS.Close if cint(total_imagenes) > 0 then %>
<% 'cuando hay mas de una imagen, muestro el TIP if cint(total_imagenes) > 1 then %> <% end if 'total_imagenes > 1 ... tip %>
<% sql = "SELECT id,imagen FROM imagenes WHERE idinmueble = "& id & " ORDER BY id" RS.Open sql, oConn primera_row = true primera_imagen = RS("imagen") for i = 1 to 2 if (not RS.EOF) then imagen = RS("imagen") %> <% for cant_row = 1 to 4 '4 por row if (not RS.EOF) then imagen = RS("imagen") imagen_thumb = "th_"& RS("imagen") %> <% RS.Movenext else %> <% end if next if primera_row then ' me fijo si la primera imagen, existe en GRANDE (prefijo gr_) ' esta feature de *imagen grande* fue introducida el 19/02/2007 existeArchivo = false dim fs Set fs = Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(Server.Mappath("./imagenes_inmuebles/gr_"& primera_imagen)) then existeArchivo = true Set fs = Nothing %> <% primera_row = false end if 'primera_row %> <% next %>
  <% if existeArchivo then %> <% else %> <% end if %>
  • Haga click sobre las imagenes pequeñas para ampliarlas
  • <% if existeArchivo then %> -  Ampliar  - <% end if %>
    <% ' // SIMPLE PRELOAD DE LAS IMAGENES =) ' son todos IMG con SYTLE="display: none" ' deberia ocultarlas y cargarlas en el background ' al menos... eso espero! (en navegadores viejos, tal vez aparezcan feamente por pantalla sin lograr ocultarlas) =\ RS.MoveFirst Do while not RS.EOF %> " style="display:none"> <% RS.MoveNext Loop RS.Close %> <% end if ' total_imagenes > 0 sql = "SELECT COUNT(id) FROM distancias WHERE idinmueble = "& id RS.Open sql, oConn total_distancias = RS(0) RS.Close %>
    <% if cint(total_distancias) > 0 then %> <% end if %>
    <% sql = "SELECT * FROM distancias WHERE idinmueble = "& id & " ORDER BY id" RS.Open sql, oConn do while not RS.EOF lugar = RS("lugar") distancia = RS("distancia") unidad = RS("unidad") %> <% RS.MoveNext loop RS.Close %>
    # Distancias
    <%= lugar %> <%= distancia %> <%= unidad %>
      <% if (CStr(telefonopublico) = "1") then %> <% end if %>
    # Contacto con el propietario
    Teléfono: <%= telefono %>
    <% if formulario_contacto then %>

    # Envie un mensaje al propietario
    Su nombre:
    Su email:
    Su teléfono:
    Mensaje:
    <% end if %>
    <% Set RS = Nothing CloseDB %>