|
|
|
|
|
| |
Formula Floral: |
|
| |
Forma: |
|
|
|
Cantidad: |
|
|
|
|
|
|
|
|
|
|
|
|
|
¿Confirma Pedido?
|
Pedidos: |
| Formula |
Forma |
Alcohol |
Cant. |
|
<%
Function tratarCRLF(sTexto)
tratarCRLF = sTexto
Posicion = InStr(1, tratarCRLF, Chr(13))
Do While Posicion > 0
tratarCRLF = Mid(tratarCRLF, 1, Posicion) & "
" & _
Mid(tratarCRLF, Posicion + 1, Len(tratarCRLF) - Posicion)
Posicion = InStr(Posicion + 5,tratarCRLF,Chr(13))
Loop
End function
%>
<%If Session("CarritoSeteado") <> "" Then%>
<%Set Carrito = Session("Carrito")%>
<%If Carrito.CantidadTotal > 0 Then%>
<%
ContadorColor = 2
For i = 0 To Carrito.CantidadTotal - 1%>
<%
If CInt(Carrito.Parametro(i, 0)) = 1 Then
If ContadorColor Mod 2 = 0 Then
sColor = "EAEAEA"
ContadorColor = 1
Else
sColor = "FFFFFF"
ContadorColor = 2
End If
%>
| <%=tratarCRLF(Carrito.Parametro(i, 2))%> |
<%=Carrito.Parametro(i, 3)%> |
<%=Carrito.Parametro(i, 4)%> |
<%=Carrito.Cantidad(i)%> <%=Carrito.Parametro(i, 1)%> |
Borrar |
|
|
|
|
|
<%End If%>
<%Next%>
<%End If%>
<%End If%>
|
|
|
|
|
|
Agregar a
la Lista de Pedido |
 |
|
|
 |
|
 |
| si desea registrarse haga click aquí |
|
|
 |
|
 |
Ver Lista de Pedido
haga click aquí |
|
|
|
|
|