<% On Error Resume Next Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM Precios ORDER BY Posicion" rs.Open strSQL, cn If Err Then Response.Write("Se ha producido un error
" & err.description) Response.End() End If if rs.BOF and rs.EOF then rs.Close else arrPrecios = rs.GetRows rs.Close k_Id = 0 k_ZonaTratada = 1 k_PrimeraSesion = 2 k_RestoSesion = 3 k_Posicion = 4 k_Principal = 5 k_PosicionPpal = 6 k_ZonaTratadaCat = 7 k_ZonaTratadaIng = 8 k_ZonaTratadaFra = 9 'Mostramos todos los inmuebles paginados. %>

• Treated zone
• OFFER 1st
  session
• Rest of
  sessions
• Treated zone
• OFFER 1st
  session
• Rest of
  sessions

<% For i = 0 To Ubound(arrPrecios, 2) If arrPrecios(k_PrimeraSesion, i) < 100 Then vPrimeraSesion = "  " & arrPrecios(k_PrimeraSesion, i) Else vPrimeraSesion = arrPrecios(k_PrimeraSesion, i) End If If arrPrecios(k_RestoSesion, i) < 100 Then vRestoSesion = "  " & arrPrecios(k_RestoSesion, i) Else vRestoSesion = arrPrecios(k_RestoSesion, i) End If res = i mod 2 if res = 0 then %>

• <%=arrPrecios(k_ZonaTratadaIng, i)%>
• <%=vPrimeraSesion%>€
• <%=vRestoSesion%>€
<% else %>
• <%=arrPrecios(k_ZonaTratadaIng, i)%>
• <%=vPrimeraSesion%>€
• <%=vRestoSesion%>€

<% end if Next end if Set rs = Nothing %>

see more prices