<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsNoms__MMColParam rsNoms__MMColParam = "1" If (Request.QueryString("idTipusImmoble") <> "") Then rsNoms__MMColParam = Request.QueryString("idTipusImmoble") End If %> <% Dim rsNoms Dim rsNoms_numRows Set rsNoms = Server.CreateObject("ADODB.Recordset") rsNoms.ActiveConnection = MM_cnnCrisa_STRING rsNoms.Source = "SELECT * FROM TipusImmobles WHERE idTipusImmoble = " + Replace(rsNoms__MMColParam, "'", "''") + "" rsNoms.CursorType = 0 rsNoms.CursorLocation = 2 rsNoms.LockType = 1 rsNoms.Open() rsNoms_numRows = 0 %> <% Dim rsImmobles__MMColParam rsImmobles__MMColParam = "1" If (Request.QueryString("idTipusImmoble") <> "") Then rsImmobles__MMColParam = Request.QueryString("idTipusImmoble") End If %> <% Dim rsImmobles__paramIdZona rsImmobles__paramIdZona = "%" If (Request.Form("idZona") <> "") Then rsImmobles__paramIdZona = Request.Form("idZona") End If %> <% Dim rsImmobles__paramPreuMinim rsImmobles__paramPreuMinim = "0" If (Request.Form("fPreuMinim") <> "") Then rsImmobles__paramPreuMinim = Request.Form("fPreuMinim") End If %> <% Dim rsImmobles__paramPreuMaxim rsImmobles__paramPreuMaxim = "999000999" If (Request.Form("fPreuMaxim") <> "") Then rsImmobles__paramPreuMaxim = Request.Form("fPreuMaxim") End If %> <% Dim rsImmobles Dim rsImmobles_numRows Set rsImmobles = Server.CreateObject("ADODB.Recordset") rsImmobles.ActiveConnection = MM_cnnCrisa_STRING rsImmobles.Source = "SELECT Immobles.*, Zones.szZona FROM Immobles INNER JOIN Zones ON Immobles.idZona = Zones.idZona WHERE (Immobles.idTipusImmoble = " + Replace(rsImmobles__MMColParam, "'", "''") + ") AND (Immobles.idZona LIKE '" + Replace(rsImmobles__paramIdZona, "'", "''") + "') AND (Immobles.fPreu >= " + Replace(rsImmobles__paramPreuMinim, "'", "''") + ") AND (Immobles.fPreu <= " + Replace(rsImmobles__paramPreuMaxim, "'", "''") + ") ORDER BY Immobles.fPreu" rsImmobles.CursorType = 0 rsImmobles.CursorLocation = 2 rsImmobles.LockType = 1 rsImmobles.Open() rsImmobles_numRows = 0 %> <% Dim rsZona__MMColParam rsZona__MMColParam = "%" If (Request.Form("idZona") <> "") Then rsZona__MMColParam = Request.Form("idZona") End If %> <% Dim rsZona Dim rsZona_numRows Set rsZona = Server.CreateObject("ADODB.Recordset") rsZona.ActiveConnection = MM_cnnCrisa_STRING rsZona.Source = "SELECT * FROM Zones WHERE idZona LIKE '" + Replace(rsZona__MMColParam, "'", "''") + "'" rsZona.CursorType = 0 rsZona.CursorLocation = 2 rsZona.LockType = 1 rsZona.Open() rsZona_numRows = 0 %> <% Dim rsZones__MMColParam rsZones__MMColParam = "1" If (Request.QueryString("idTipusImmoble") <> "") Then rsZones__MMColParam = Request.QueryString("idTipusImmoble") End If %> <% Dim rsZones Dim rsZones_numRows Set rsZones = Server.CreateObject("ADODB.Recordset") rsZones.ActiveConnection = MM_cnnCrisa_STRING rsZones.Source = "SELECT Immobles.idZona, Zones.szZona FROM Immobles INNER JOIN Zones ON Immobles.idZona = Zones.idZona WHERE Immobles.idTipusImmoble = " + Replace(rsZones__MMColParam, "'", "''") + " GROUP BY Immobles.idZona, Zones.szZona ORDER BY Zones.szZona" rsZones.CursorType = 0 rsZones.CursorLocation = 2 rsZones.LockType = 1 rsZones.Open() rsZones_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsImmobles_numRows = rsImmobles_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsImmobles_total Dim rsImmobles_first Dim rsImmobles_last ' set the record count rsImmobles_total = rsImmobles.RecordCount ' set the number of rows displayed on this page If (rsImmobles_numRows < 0) Then rsImmobles_numRows = rsImmobles_total Elseif (rsImmobles_numRows = 0) Then rsImmobles_numRows = 1 End If ' set the first and last displayed record rsImmobles_first = 1 rsImmobles_last = rsImmobles_first + rsImmobles_numRows - 1 ' if we have the correct record count, check the other stats If (rsImmobles_total <> -1) Then If (rsImmobles_first > rsImmobles_total) Then rsImmobles_first = rsImmobles_total End If If (rsImmobles_last > rsImmobles_total) Then rsImmobles_last = rsImmobles_total End If If (rsImmobles_numRows > rsImmobles_total) Then rsImmobles_numRows = rsImmobles_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsImmobles_total = -1) Then ' count the total records by iterating through the recordset rsImmobles_total=0 While (Not rsImmobles.EOF) rsImmobles_total = rsImmobles_total + 1 rsImmobles.MoveNext Wend ' reset the cursor to the beginning If (rsImmobles.CursorType > 0) Then rsImmobles.MoveFirst Else rsImmobles.Requery End If ' set the number of rows displayed on this page If (rsImmobles_numRows < 0 Or rsImmobles_numRows > rsImmobles_total) Then rsImmobles_numRows = rsImmobles_total End If ' set the first and last displayed record rsImmobles_first = 1 rsImmobles_last = rsImmobles_first + rsImmobles_numRows - 1 If (rsImmobles_first > rsImmobles_total) Then rsImmobles_first = rsImmobles_total End If If (rsImmobles_last > rsImmobles_total) Then rsImmobles_last = rsImmobles_total End If End If %> www.Crisa.info - Pisos en venta (resultados de la búsqueda)
Quien somos _over<% end if %>.gif" border="0" alt="Pisos en venta" onload="<% if Request.QueryString("idTipusImmoble")=1 then %>MM_nbGroup('init','group1','imgOpcio2','imatges/opcio2.gif',1)<% end if %>"> _over<% end if %>.gif" border="0" alt="Torres en venta" onload="<% if Request.QueryString("idTipusImmoble")=2 then %>MM_nbGroup('init','group1','imgOpcio3','imatges/opcio3.gif',1)<% end if %>"> _over<% end if %>.gif" border="0" alt="Solares en venta" onload="<% if Request.QueryString("idTipusImmoble")=3 then %>MM_nbGroup('init','group1','imgOpcio4','imatges/opcio4.gif',1)<% end if %>"> _over<% end if %>.gif" border="0" alt="Geriátricos en venta" onload="<% if Request.QueryString("idTipusImmoble")=4 then %>MM_nbGroup('init','group1','imgOpcio5','imatges/opcio5.gif',1)<% end if %>"> Listado de todos los inmuebles Hipotecas Oportunidad
<% If Request.QueryString("idTipusImmoble") < 4 Then %>
" onsubmit="posaRangPreu()"> <% If Request.QueryString("idTipusImmoble") < 3 Then %>Zona<% Else %>Tipo de solar<% End If %>: <% If Request.QueryString("idTipusImmoble") < 3 Then %>Precio: <% End If %>
<% End If %>

Resultados de la búsqueda de <%=(rsNoms.Fields.Item("szPlural").Value)%> en venta:

Encontrado<% if rsImmobles_total<>1 then %>s<% end if %> <%=(rsImmobles_total)%> <% if rsImmobles_total=1 then %><%=(rsNoms.Fields.Item("szSingular").Value)%><% else %><%=(rsNoms.Fields.Item("szPlural").Value)%><% end if %> en <% if Request.Form("idZona")="%" or Request.Form("idZona")="" then %>cualguier zona<% else %><%=(rsZona.Fields.Item("szZona").Value)%><% end if %> y <% select case Request.Form("idPreu") case 0, "" %>con cualquier precio<% case 1 %>por menos de 180 000 €<% case 2 %>entre 180 000 € y 300 000 €<% case 3 %>entre 300 000 € y 600 000 €<% case 4 %>por más de 600 000 €<% end select %>
<% While ((Repeat1__numRows <> 0) AND (NOT rsImmobles.EOF)) %>
&szFoto=<%=(rsImmobles.Fields.Item("szFotoGran1").Value)%>','','status=yes,scrollbars=yes,resizable=yes,width=700,height=600')">" border="1"> <% If Request.QueryString("idTipusImmoble") < 3 Then %>Zona: <%=(rsImmobles.Fields.Item("szZona").Value)%>
Calle: <%=(rsImmobles.Fields.Item("szCarrer").Value)%>
Metros cuadrados: <%=(rsImmobles.Fields.Item("iMetresQuadrats").Value)%>
Habitaciones: <%=(rsImmobles.Fields.Item("iHabitacions").Value)%>
Baños: <%=(rsImmobles.Fields.Item("iBanys").Value)%>
<% Else %> Tipo de solar: <%=(rsImmobles.Fields.Item("szZona").Value)%>
Situación: <%=(rsImmobles.Fields.Item("szCarrer").Value)%>
Cualificación urbanística: <%=(rsImmobles.Fields.Item("szQualificacio").Value)%>
Superficie: <%=(rsImmobles.Fields.Item("iMetresQuadrats").Value)%>
Situación actual: <%=(rsImmobles.Fields.Item("szSituacioActual").Value)%>
<% End If %> <% If rsImmobles.Fields.Item("szObservacions").Value <> "" Then %> Observaciones: <%=(rsImmobles.Fields.Item("szObservacions").Value)%>
<% End If %> Precio: <%= FormatNumber((rsImmobles.Fields.Item("fPreu").Value), -1, -2, -2, -1) %> €		 Pedir más información ','','status=yes,scrollbars=yes,resizable=yes,width=600,height=560')" onMouseOver="MM_swapImage('imgInfo','','imatges/icona_info_over.gif',1)" onMouseOut="MM_swapImgRestore()">
Recomendar a un amigo/a ','','status=yes,scrollbars=yes,resizable=yes,width=600,height=525')" onMouseOver="MM_swapImage('imgAmic','','imatges/icona_amic_over.gif',1)" onMouseOut="MM_swapImgRestore()">
Ver una foto ampliada <% If rsImmobles.Fields.Item("szFotoPetita1").Value <> "" Then %>&szFoto=<%=(rsImmobles.Fields.Item("szFotoGran1").Value)%>','','status=yes,scrollbars=yes,resizable=yes,width=700,height=600')">" vspace="1" border="1" align="absmiddle"> <% End If %> <% If rsImmobles.Fields.Item("szFotoPetita2").Value <> "" Then %> &szFoto=<%=(rsImmobles.Fields.Item("szFotoGran2").Value)%>','','status=yes,scrollbars=yes,resizable=yes,width=700,height=600')">" vspace="1" border="1" align="absmiddle"> <% End If %> <% If rsImmobles.Fields.Item("szFotoPetita3").Value <> "" Then %> &szFoto=<%=(rsImmobles.Fields.Item("szFotoGran3").Value)%>','','status=yes,scrollbars=yes,resizable=yes,width=700,height=600')">" vspace="1" border="1" align="absmiddle"> <% End If %> <% If rsImmobles.Fields.Item("szFotoPetita4").Value <> "" Then %> &szFoto=<%=(rsImmobles.Fields.Item("szFotoGran4").Value)%>','','status=yes,scrollbars=yes,resizable=yes,width=700,height=600')">" vspace="1" border="1" align="absmiddle"> <% End If %> <% If rsImmobles.Fields.Item("szFotoPetita5").Value <> "" Then %> &szFoto=<%=(rsImmobles.Fields.Item("szFotoGran5").Value)%>','','status=yes,scrollbars=yes,resizable=yes,width=700,height=600')">" vspace="1" border="1" align="absmiddle"> <% End If %>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsImmobles.MoveNext() Wend %>
Copyright 2004 Crisa
Todos los derechos reservados		 Consultoría de Recursos Inmobiliarios, S.L.
C/ Gonzalez Tablas, 21 - 08034 Barcelona
B-62879754 		Web diseñada por Nautae.com
<% rsNoms.Close() Set rsNoms = Nothing %> <% rsImmobles.Close() Set rsImmobles = Nothing %> <% rsZona.Close() Set rsZona = Nothing %> <% rsZones.Close() Set rsZones = Nothing %>