<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> ..:: Royal Executive ::.. Buscador de Propiedades <%set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/target.mdb")%> <%if Request.QueryString("enviado")="ok" then%> <%else%> <%end if%>
<%'CELDA CENTRAL DEL MARCO .......................................................................%> <%rsSem.MoveNext ' SEGUNDA CELDA DE ULTIMAS INSERCIONES .............................................................%> <%else ' RESULTADO DE LA BUSQUEDA .................................................................. Dim cadena cadena = "SELECT * FROM Inmuebles" if Request.Form("idZona")<>0 then cadena = cadena & " WHERE idZona=" & Request.Form("idZona") end if if Request.Form("idCategoria")<>0 then if Request.Form("idZona")<>0 then cadena = cadena & " AND idCategoria=" & Request.Form("idCategoria") else cadena = cadena & " WHERE idCategoria=" & Request.Form("idCategoria") end if end if if request.form("Precio")<>0 then if Request.Form("idZona")<>0 then SELECT CASE REQUEST.FORM("Precio") case 1 cadena = cadena & " AND PrecioVenta < 100000" case 2 cadena = cadena & " AND PrecioVenta < 200000 AND PrecioVenta > 100000" case 3 cadena = cadena & " AND PrecioVenta < 300000 AND PrecioVenta > 200000" case 4 cadena = cadena & " AND PrecioVenta < 400000 AND PrecioVenta > 300000" case 5 cadena = cadena & " AND PrecioVenta < 500000 AND PrecioVenta > 400000" case 6 cadena = cadena & " AND PrecioVenta > 500001" END SELECT else if Request.Form("idCategoria")<>0 then SELECT CASE REQUEST.FORM("Precio") case 1 cadena = cadena & " AND PrecioVenta < 100000" case 2 cadena = cadena & " AND PrecioVenta < 200000 AND PrecioVenta > 100000" case 3 cadena = cadena & " AND PrecioVenta < 300000 AND PrecioVenta > 200000" case 4 cadena = cadena & " AND PrecioVenta < 400000 AND PrecioVenta > 300000" case 5 cadena = cadena & " AND PrecioVenta < 500000 AND PrecioVenta > 400000" case 6 cadena = cadena & " AND PrecioVenta > 500001" END SELECT else SELECT CASE REQUEST.FORM("Precio") case 1 cadena = cadena & " WHERE PrecioVenta < 100000" case 2 cadena = cadena & " WHERE PrecioVenta < 200000 AND PrecioVenta > 100000" case 3 cadena = cadena & " WHERE PrecioVenta < 300000 AND PrecioVenta > 200000" case 4 cadena = cadena & " WHERE PrecioVenta < 400000 AND PrecioVenta > 300000" case 5 cadena = cadena & " WHERE PrecioVenta < 500000 AND PrecioVenta > 400000" case 6 cadena = cadena & " WHERE PrecioVenta > 500001" END SELECT end if end if else 'Response.Write(Request.Form("Precio")) end if if Request.QueryString("ref") <> "ok" then set rs = oConn.Execute(cadena &" ORDER BY PrecioVenta;") else set rs = oConn.Execute("SELECT * FROM Inmuebles WHERE Referencia='" & Request.Form("referencia") & "';") end if if not rs.EOF then%> <%Do while not rs.EOF%> <%rs.MoveNExt Loop rs.CLose set rs = Nothing else%> <%end if%> <%'FIN RESULTADO DE LA BUSQUEDA ............................................................. end if%>
            Encuentre aqui la propiedad en alquiler que busca y si no se la localizamos para usted personalmente.
¿ Buscador de Propiedades ?
Busqueda por detalle de la Propiedad  
Tipo:    Zona:  Precio Max:  €        
 Busqueda por Codigo de Propiedad
 Si Usted sabe la referencia de la propiedad que busca indiquela para acceder a este directamente.      
   
 
 
 
 
 
<%if Request.Form("buscar")<>"ok" then%> <% set rsSem = oConn.Execute("SELECT * FROM Inmuebles WHERE Especial<>'true' ORDER BY id DESC;") ' PRIMER CELDA DE ULTIMAS INSERCIONES ............................................................%>
Ultima Propiedad Insertada en la Base de Datos
"_blank"> <%set rsFoto = oConn.Execute("SELECT * FROM Fotos WHERE idInmueble=" & rsSem("id") &" ORDER BY id;")%> <%if not rsFoto.EOF then%> " alt="Click to View information" width="139" height="111" border="0"> <%else%> Click to View information <%end if rsFoto.Close set rsFoto = Nothing%> <%set Zona = oConn.Execute("SELECT * FROM Zonas WHERE id=" & rsSem("idZona") & ";")%> Zone: <%=Zona("zona")%> <%Zona.Close set Zona = Nothing%>
Bedrooms: <%=rsSem("Dormitorios")%>
Bathrooms: <%=rsSem("Baņos")%>
Const. Area M²: <%=rsSem("Metros")%>
Price: <%=FormatNumber(rsSem("PrecioVenta"),2)%> €
Click the photos to view information
" target="_blank"> <%set rsFoto = oConn.Execute("SELECT * FROM Fotos WHERE idInmueble=" & rsSem("id") &" ORDER BY id;")%> <%if not rsFoto.EOF then%> " alt="Click to View information" width="139" height="111" border="0"> <%else%> Click to View information <%end if rsFoto.Close set rsFoto = Nothing%> <%set Zona = oConn.Execute("SELECT * FROM Zonas WHERE id=" & rsSem("idZona") & ";")%> Zone: <%=Zona("zona")%> <%Zona.Close set Zona = Nothing%>
Bedrooms: <%=rsSem("Dormitorios")%>
Bathrooms: <%=rsSem("Baņos")%>
Const. Area M²: <%=rsSem("Metros")%>
Price: <%=FormatNumber(rsSem("PrecioVenta"),2)%> €
<% set rsCat = oConn.Execute("SELECT * FROM Categorias WHERE id=" & rs("idCategoria") & ";") Response.Write(rsCat("categoria"))%>Referencia: <%=rs("Referencia")%>
Click the photos to view information
" target="_blank"> <%set rsFoto = oConn.Execute("SELECT * FROM Fotos WHERE idInmueble=" & rs("id") &" ORDER BY id;")%> <%if not rsFoto.EOF then%> " alt="Click to View information" width="<%=rsFoto("w")/4%>" height="<%=rsFoto("h")/4%>" border="0"> <%else%> Click to View information <%end if rsFoto.Close set rsFoto = Nothing%> City: <%=rs("Localidad")%> Bedrooms: <%=rs("Dormitorios")%>
State: <%=rs("Provincia")%> Bathrooms: <%=rs("Baņos")%>
Zone: <% set rsZona = oConn.Execute("SELECT * FROM Zonas WHERE id=" & rs("idZona") & ";") Response.Write(rsZona("zona")) rsZona.Close set rsZona = Nothing%> Const. Area M²: <%=rs("Metros")%>
Price: <%=FormatNumber(rs("PrecioVenta"),2)%> € Plot. Size M²: <%=rs("MetrosUtiles")%>
Features: <%=rs("Descripcion")%>
Click the photo to View information

 
 

Sorry, but at this moment we don't have a property with the required conditions in our data base. Please send us the Contact Form and we get back to you as soon as possible. thank you very much.

  Contact Form    
       
 

Complete Name

  
 

e-mail

  
 

Telephone

  
 


Especifications

  
       
     
   
<%rsSem.Close set rsSem = Nothing oConn.Close set oConn = nothing 'FIN CELDA CENTRAL MARCO ..............................................................................%>