titulorojo.gif (1245 bytes)

titmedicrojo.jpg (37809 bytes)

   Fórmula Homeopática - Ingrese medicamento y potencia:

    

Forma:

Gotas: Vaselina Lanolina:
Globulos: Gel:
Papeles: Cremas:
Papeles L.M.: Vaselina:
Tabletas: Otro: 
Tintura Madre:
Microdosis:
L.M.:

Cantidad:

20gr. 50gr.
30gr. 100gr.
40gr. 120gr.
60gr. Otro:
30cc.
45cc.
60cc.

Alcohol:

c/alcohol s/alcohol otro  [%]
¿Confirma Pedido?

Pedidos:

<% 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)) = 2 Then If ContadorColor Mod 2 = 0 Then sColor = "EAEAEA" ContadorColor = 1 Else sColor = "FFFFFF" ContadorColor = 2 End If %> <%End If%> <%Next%> <%End If%> <%End If%>
Formula Forma Alcohol Cant.
<%=tratarCRLF(Carrito.Parametro(i, 2))%> 
<%=Carrito.Parametro(i, 3)%> 
<%=Carrito.Parametro(i, 4)%> 
<%=Carrito.Cantidad(i)%> <%=Carrito.Parametro(i, 1)%> 
 Borrar 

Agregar a la Lista de Pedido

titulosinfrojo.gif (545 bytes)
si desea registrarse haga click aquí
Ver Lista de Pedido
haga click aquí