<%
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
- Area faciale
- 40€
- 200€ (6 seances)