<% Set Conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=ilergrup.com.datoss" tipoinmueble=Request.Form("frmtipoinmuebele") if(tipoinmueble="") then tipoinmueble=-1 tipoinmueble=cstr(tipoinmueble) tipoinmueble=CDbl(trim(tipoinmueble)) SQLTipoIn="SELECT IdTipoInmueble,NombreTipoInmuebleCS FROM 1882_TipoInmueble" set objRS=Conn.Execute(SQLTipoIn) SQLZonas="SELECT DISTINCT Situacion2 FROM 1882_UN ORDER BY Situacion2" set RSZona=Conn.Execute(SQLZonas) DIm zona(25) zona(0)="Indiferente" i=1 Do Until RSZona.EOF = True zona(i)=RSZona("Situacion2") i=i+1 RSZona.MoveNext loop rzona=Request.Form("frmzona") if(rzona="") then rzona=0 end if if(cint(rzona)>0) then sqlpoblacion="SELECT [1882_Población].NombrePoblación,[1882_Población].IdPoblación FROM 1882_Población WHERE [1882_Población].IdPoblación IN (SELECT IdPoblacion FROM 1882_UN WHERE Situacion2='"& zona(rzona)&"') ORDER BY [1882_Población].NombrePoblación;" else sqlpoblacion="SELECT [1882_Población].NombrePoblación,[1882_Población].IdPoblación FROM 1882_Población ORDER BY [1882_Población].NombrePoblación;" end if poblacion=Request.Form("frmpoblacion") if(poblacion="") then poblacion=-1 poblacion=CDbl(trim(poblacion)) ppoblacion=replace(poblacion,",",".") SQLModo="SELECT * FROM 1882_TipoOperación WHERE OperaciónCS<>''" precio=Request.Form("frmprecio") rzona=cint(rzona) accion=Request.Form("frmaccion") if (accion="consulta") then sqlconsulta="SELECT IdPiso,Expediente,IdTipoInmueble,IdTipoOperacion,Situacion2,Situacion1,SuperficieTotal,PrecioPts,PrecioEur,Nuevo,BanoC_num,BanoA_num,HDobles_num,Shdobles_num,HSimples_num FROM 1882_UN " sqlconsulta=sqlconsulta &" WHERE ( 1=1" if not(tipoinmueble=-1) then tipoinmueble=replace(tipoinmueble,",",".") sqlconsulta=sqlconsulta&" AND IdTipoInmueble="&tipoinmueble &" " end if if not(rzona=0) then sqlconsulta=sqlconsulta&" AND situacion2='"&zona(rzona)&"'" end if if not(poblacion=-1) then sqlconsulta=sqlconsulta&" AND IdPoblacion="&ppoblacion end if Modo=Request.Form("frmModo") if not(Modo="-1") then sqlconsulta=sqlconsulta&" AND IdTipoOperacion="&Modo&"" end if if not(precio="") then sqlconsulta=sqlconsulta&" AND PrecioEUR<"&precio end if sqlconsulta=sqlconsulta&")ORDER BY Expediente" end if function capitalize(str) If Len(Trim(str))>0 Then prts = split(str, " ") for each item in prts if len(trim(item)) > 0 then capitalize = capitalize & " " & Ucase(left(item, 1)) & lcase(right(item, len(item)-1)) end if next capitalize = trim(capitalize) Else capitalize = str End IF end function %>
 
 
 
 
 


En nuestra base de datos encontrará la información necesaria para elegir adecuadamente el inmueble ideal a sus necesidades. Seleccione el tipo de información que desee ver para poder empezar la búsqueda

Tipo Zona Població
Modo Preu Maxim
 Preu Maxim
<%if (accion="consulta") then set objRS=Conn.Execute(sqlconsulta) %> <%color=true Do Until objRS.EOF = True%> <% if color=true then response.write "" else response.write "" end if response.Write ("") numero=cstr(objRS("idTIpoInmueble")) numero=replace(numero,",",".") SQLTIpoIn="SELECT NombreTipoInmuebleCS FROM 1882_TipoInmueble WHERE idTipoInmueble="&numero set objRSTipo=Conn.Execute(SQLTIpoIn) numero=cstr(objRS("IdTipoOperacion")) numero=replace(numero,",",".") SQLTipoOperacion="SELECT OperaciónCS FROM 1882_TipoOperación WHERE IdTipoOperación="&numero set objRSTipoOp=Conn.Execute(SQLTipoOperacion) response.Write ("") response.Write ("") if objRS("HDobles_num")="" then hd=0 else hd=objRS("HDobles_num") end if if objRS("Shdobles_num")="" then sd=0 else sd=objRS("Shdobles_num") end if if objRS("HSimples_num")="" then hs=0 else hs=objRS("HSimples_num") end if habitataciones=cint(hd)+cint(sd)+cint(hs) response.Write ("") if objRS("BanoA_num")="" then ba=0 else ba=objRS("BanoA_num") end if if objRS("BanoC_num")="" then bc=0 else bc=objRS("BanoC_num") end if ban=cint(ba)+cint(bc) response.Write ("") response.Write ("") response.Write ("") %> <% objRS.MoveNext color=not color loop%>
"&objRS("Expediente")&"") if(objRS("Nuevo")=1) then response.Write ("  N  ") else response.Write ("     ") End If response.write(""&objRSTipo("NombreTipoInmuebleCS")&", "&objRSTipoOp("OperaciónCS")&""&objRS("Situacion2")&","&objRS("Situacion1")&""& habitataciones &""& ban &""&objRS("SuperficieTotal")&""& FormatNumber(objRS("PrecioEur")) &"€
<% end if%>