<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsImmoble Dim rsImmoble_numRows Set rsImmoble = Server.CreateObject("ADODB.Recordset") rsImmoble.ActiveConnection = MM_cnnCrisa_STRING rsImmoble.Source = "SELECT Immobles.idImmoble, Immobles.idTipusImmoble, TipusImmobles.szSingularCapitalitzat, TipusImmobles.szPluralCapitalitzat, Zones.szZona, Immobles.szCarrer, Immobles.iMetresQuadrats, Immobles.iHabitacions, Immobles.iBanys, Immobles.szQualificacio, Immobles.szSituacioActual, Immobles.fPreu FROM (Immobles INNER JOIN TipusImmobles ON Immobles.idTipusImmoble = TipusImmobles.idTipusImmoble) INNER JOIN Zones ON Immobles.idZona = Zones.idZona ORDER BY TipusImmobles.szSingularCapitalitzat, Immobles.fPreu" rsImmoble.CursorType = 0 rsImmoble.CursorLocation = 2 rsImmoble.LockType = 1 rsImmoble.Open() rsImmoble_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsImmoble_numRows = rsImmoble_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsImmoble_total Dim rsImmoble_first Dim rsImmoble_last ' set the record count rsImmoble_total = rsImmoble.RecordCount ' set the number of rows displayed on this page If (rsImmoble_numRows < 0) Then rsImmoble_numRows = rsImmoble_total Elseif (rsImmoble_numRows = 0) Then rsImmoble_numRows = 1 End If ' set the first and last displayed record rsImmoble_first = 1 rsImmoble_last = rsImmoble_first + rsImmoble_numRows - 1 ' if we have the correct record count, check the other stats If (rsImmoble_total <> -1) Then If (rsImmoble_first > rsImmoble_total) Then rsImmoble_first = rsImmoble_total End If If (rsImmoble_last > rsImmoble_total) Then rsImmoble_last = rsImmoble_total End If If (rsImmoble_numRows > rsImmoble_total) Then rsImmoble_numRows = rsImmoble_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsImmoble_total = -1) Then ' count the total records by iterating through the recordset rsImmoble_total=0 While (Not rsImmoble.EOF) rsImmoble_total = rsImmoble_total + 1 rsImmoble.MoveNext Wend ' reset the cursor to the beginning If (rsImmoble.CursorType > 0) Then rsImmoble.MoveFirst Else rsImmoble.Requery End If ' set the number of rows displayed on this page If (rsImmoble_numRows < 0 Or rsImmoble_numRows > rsImmoble_total) Then rsImmoble_numRows = rsImmoble_total End If ' set the first and last displayed record rsImmoble_first = 1 rsImmoble_last = rsImmoble_first + rsImmoble_numRows - 1 If (rsImmoble_first > rsImmoble_total) Then rsImmoble_first = rsImmoble_total End If If (rsImmoble_last > rsImmoble_total) Then rsImmoble_last = rsImmoble_total End If End If %>

	Actualmente tenemos <%=(rsImmoble_total)%> inmuebles en venta <% idTipusImmobleAnterior = -1 %> <% While ((Repeat1__numRows <> 0) AND (NOT rsImmoble.EOF)) %> <% If idTipusImmobleAnterior <> rsImmoble.Fields.Item("idTipusImmoble").Value Then idTipusImmobleAnterior = rsImmoble.Fields.Item("idTipusImmoble").Value %> <%=(rsImmoble.Fields.Item("szPluralCapitalitzat").Value)%> <% End If %> ','','status=yes,scrollbars=yes,resizable=yes,width=600,height=560')" onMouseOver="MM_swapImage('imgInfo1','','imatges/icona_info_over.gif',1)" onMouseOut="MM_swapImgRestore()"> <% If rsImmoble.Fields.Item("idTipusImmoble").Value <> 3 Then %> <%=(rsImmoble.Fields.Item("szSingularCapitalitzat").Value)%> en la zona <%=(rsImmoble.Fields.Item("szZona").Value)%> y calle <%=(rsImmoble.Fields.Item("szCarrer").Value)%>, con <%=(rsImmoble.Fields.Item("iMetresQuadrats").Value)%> m2, <%=(rsImmoble.Fields.Item("iHabitacions").Value)%> <% If rsImmoble.Fields.Item("iHabitacions").Value = 1 Then %> habitación <% Else %> habitaciones <% End If %> y <%=(rsImmoble.Fields.Item("iBanys").Value)%> <% If rsImmoble.Fields.Item("iBanys").Value = 1 Then %> baño <% Else %> baños <% End If %> por <%= FormatNumber((rsImmoble.Fields.Item("fPreu").Value), -1, -2, -2, -1) %> €<% Else %> <%=(rsImmoble.Fields.Item("szZona").Value)%> situado en <%=(rsImmoble.Fields.Item("szCarrer").Value)%><% If rsImmoble.Fields.Item("szQualificacio").Value <> "" Then %>, <%=(rsImmoble.Fields.Item("szQualificacio").Value)%><% End If %>, <%=(rsImmoble.Fields.Item("iMetresQuadrats").Value)%> m2<% If rsImmoble.Fields.Item("szSituacioActual").Value <> "" Then %>, <%=(rsImmoble.Fields.Item("szSituacioActual").Value)%><% End If %> por <%= FormatNumber((rsImmoble.Fields.Item("fPreu").Value), -1, -2, -2, -1) %>€<% End If %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsImmoble.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

<% rsImmoble.Close() Set rsImmoble = Nothing %>