<% On Error Resume Next Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM Precios WHERE Principal = true ORDER BY PosicionPrincipal" 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. %>

• Zone traitée
• OFFRE 1ère
  séance
• Reste des
  séances
• Zone traitée
• OFFRE 1ère
  séance
• Reste des
  séances

<% 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_ZonaTratadaFra, i)%>
• <%=vPrimeraSesion%>€
• <%=vRestoSesion%>€
<% else %>
• <%=arrPrecios(k_ZonaTratadaFra, i)%>
• <%=vPrimeraSesion%>€
• <%=vRestoSesion%>€

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

voir plus de prix

VELASMOOTH

• 1 seances   10 + 2 seances

• Area locale
• 55€
• 400€

• Area générale
• 75€
• 650€

• Area faciale
• 40€
• 200€ (6 seances)