<%@LANGUAGE="VBSCRIPT"%> <% Session.LCid = 2048 orden=request.queryString("orden") select case orden case "1" ordenar="order by tipo" case "2" ordenar="order by zona" case "3" ordenar="order by precioinmueble" case "4" ordenar="order by nhabitaciones" end select %> <% Dim destacados__MMColParam destacados__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then destacados__MMColParam = Request("MM_EmptyValue") End If %> <% Dim destacados__MMColParam1 destacados__MMColParam1 = "1" If (Request("MM_EmptyValue") <> "") Then destacados__MMColParam1 = Request("MM_EmptyValue") End If %> <% Dim destacados Dim destacados_cmd Dim destacados_numRows Set destacados_cmd = Server.CreateObject ("ADODB.Command") destacados_cmd.ActiveConnection = MM_acityapart_STRING destacados_cmd.CommandText = "SELECT * FROM ventas WHERE destacada = ? and activa=?" destacados_cmd.Prepared = true destacados_cmd.Parameters.Append destacados_cmd.CreateParameter("param1", 5, 1, -1, destacados__MMColParam) ' adDouble destacados_cmd.Parameters.Append destacados_cmd.CreateParameter("param2", 5, 1, -1, destacados__MMColParam1) ' adDouble Set destacados = destacados_cmd.Execute destacados_numRows = 0 %> <% Dim ofertas Dim ofertas_cmd Dim ofertas_numRows Set ofertas_cmd = Server.CreateObject ("ADODB.Command") ofertas_cmd.ActiveConnection = MM_acityapart_STRING ofertas_cmd.CommandText = "SELECT * FROM ventas "&ordenar ofertas_cmd.Prepared = true Set ofertas = ofertas_cmd.Execute ofertas_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 destacados_numRows = destacados_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 ofertas_numRows = ofertas_numRows + Repeat2__numRows %> A city apart: ventas

 

<% While ((Repeat1__numRows <> 0) AND (NOT destacados.EOF)) %>
<%=(destacados.Fields.Item(" src="fotos/fotosth<%=(destacados.Fields.Item("Imagen1").Value)%>" style="margin: 0px 10px 5px 0px;">
<%=(destacados.Fields.Item("referencia").Value)%>
<%=(destacados.Fields.Item("descripcionbreve").Value)%> <%if destacados.fields.item("precioinmueble").value<>"" then%> - <%= formatNumber(destacados.Fields.Item("precioinmueble").Value, 2, -2, -2, -1) %> € <%end if%> - <%if destacados.fields.item("nhabitaciones").value<>"" then%><%=(destacados.Fields.Item("nhabitaciones").Value)%> habitaciones <% end if %><%if destacados.fields.item("mdisponibles").value<>"" then%>- <%=(destacados.Fields.Item("mdisponibles").Value)%> m2<% end if %>
">[+información] 

  <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 destacados.MoveNext() Wend %>
ordenar listado por  tipo ,zona ,precio ,nº habitaciones
<% While ((Repeat2__numRows <> 0) AND (NOT ofertas.EOF)) %>
<%=(ofertas.Fields.Item(" src="fotos/fotosth/<%=(ofertas.Fields.Item("Imagen1").Value)%>" style="margin: 0px 10px 5px 0px;">
<%=(ofertas.Fields.Item("referencia").Value)%> <%=(ofertas.Fields.Item("descripcionbreve").Value)%> <%if ofertas.fields.item("precioinmueble").value<>"" then%> - <%= formatNumber(ofertas.Fields.Item("precioinmueble").Value, 2, -2, -2, -1) %> € <%end if%> - <%if ofertas.fields.item("nhabitaciones").value<>"" then%><%=(ofertas.Fields.Item("nhabitaciones").Value)%> habitaciones <% end if %><%if ofertas.fields.item("mdisponibles").value<>"" then%>- <%=(ofertas.Fields.Item("mdisponibles").Value)%> m2<% end if %>
">[+información] 

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 ofertas.MoveNext() Wend %>
<% destacados.Close() Set destacados = Nothing %> <% ofertas.Close() Set ofertas = Nothing %>