<% Set Conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=ilergrup.com.datos" tipoinmueble=Request.Form("frmtipoinmuebele") if(tipoinmueble="") then tipoinmueble=-1 tipoinmueble=cstr(tipoinmueble) tipoinmueble=CDbl(trim(tipoinmueble)) SQLTipoIn="SELECT IdTipoInmueble,NombreTipoInmuebleCT FROM 1867_TipoInmueble" set objRS=Conn.Execute(SQLTipoIn) SQLZonas="SELECT DISTINCT Situacion2 FROM 1867_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 [1867_Población].NombrePoblación,[1867_Población].IdPoblación FROM 1867_Población WHERE [1867_Población].IdPoblación IN (SELECT IdPoblacion FROM 1867_UN WHERE Situacion2='"& zona(rzona)&"') ORDER BY [1867_Población].NombrePoblación;" else sqlpoblacion="SELECT [1867_Población].NombrePoblación,[1867_Población].IdPoblación FROM 1867_Población ORDER BY [1867_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 1867_TipoOperación WHERE OperaciónCT<>''" 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 1867_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 %>

A la nostra base de dades trobarà la infomració necessària per elegir adeqüadament l´immoble ideal a les seves necessitats. Seleccioni el tipus d´informació que desitji per començar la recerca

Tipo	Zona	Població
Indiferente <% Do Until objRS.EOF = True if (objRS("IdTipoInmueble")=tipoinmueble) then response.Write (""&objRS("NombreTipoInmuebleCT")&"") else response.Write (""&objRS("NombreTipoInmuebleCT")&"") end if objRS.MoveNext loop %>	<% for i=0 to 15 if(rzona=i) then response.Write (""&zona(i)&"") else response.Write (""&zona(i)&"") end if next %>	Indiferente <% set objRS=Conn.Execute(sqlpoblacion) Do Until objRS.EOF = True if NOT(objRS("IdPoblación")=((poblacion))) then response.Write (""&capitalize(objRS("NombrePoblación"))&"") else response.Write (""&capitalize(objRS("NombrePoblación"))&"") end if objRS.MoveNext loop %>
Modo	Preu Maxim
Indiferente <% set objRS=Conn.Execute(SQLModo) Do Until objRS.EOF = True if NOT(objRS("IdTipoOperación")=Modo) then response.Write (""&capitalize(objRS("OperaciónCT"))&"") else response.Write (""&capitalize(objRS("OperaciónCT"))&"") end if objRS.MoveNext loop %>	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 NombreTipoInmuebleCT FROM 1867_TipoInmueble WHERE idTipoInmueble="&numero set objRSTipo=Conn.Execute(SQLTIpoIn) numero=cstr(objRS("IdTipoOperacion")) numero=replace(numero,",",".") SQLTipoOperacion="SELECT OperaciónCT FROM 1867_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("NombreTipoInmuebleCT")&", "&objRSTipoOp("OperaciónCT")&"	"&objRS("Situacion2")&","&objRS("Situacion1")&"	"& habitataciones &"	"& ban &"	"&objRS("SuperficieTotal")&"	"& FormatNumber(objRS("PrecioEur")) &"€

<% end if%>