PidaSamento

<% Const stradmin = "bionatus@porta.net" If Request.Form("DeVuelta") = 1 Then strNombre = Request.Form("requiredNombre") strEmpresa = Request.Form("requiredEmpresa") strDireccion = Request.Form("requiredDireccion") strCiudad = Request.Form("requiredCiudad") strTelefono = Request.Form("requiredTelefono") strEmail = Request.Form("requiredEmail") strPais = Request.Form("requiredPais") strUnidades = Request.Form("requiredUnidades") strDetallesPedido = Request.Form("requiredDetallesPedido") ' Armo los parametro que necesito para enviar el email.. strCuerpoMensaje = "" strCuerpoMensaje = strCuerpoMensaje & "Tiene un pedido nuevo: " & VbCrLf strCuerpoMensaje = strCuerpoMensaje & "Nombre: " & strNombre &VbCrLf strCuerpoMensaje = strCuerpoMensaje & "Empresa: " & strEmpresa &VbCrLf strCuerpoMensaje = strCuerpoMensaje & "Dirección: " & strDireccion &VbCrLf strCuerpoMensaje = strCuerpoMensaje & "Ciudad: " & strCiudad &VbCrLf strCuerpoMensaje = strCuerpoMensaje & "Teléfono: " & strTelefono &VbCrLf strCuerpoMensaje = strCuerpoMensaje & "Email: " & strEmail &VbCrLf strCuerpoMensaje = strCuerpoMensaje & "País: " & strPais &VbCrLf strCuerpoMensaje = strCuerpoMensaje & "Unidades: " & strUnidades &VbCrLf strCuerpoMensaje = strCuerpoMensaje & "Detalles Pedido: " & strDetallesPedido &VbCrLf strCuerpoMensaje = strCuerpoMensaje & "Nos contactaremos con Usted tan pronto sea posible. " & VbCrLf strCuerpoMensaje = strCuerpoMensaje & "Samento. " & VbCrLf strRemitenteEmail = strEmail strDestinatarioEmail = stradmin strAsunto = "Nuevo Pedido Samento" EnviarEmail strRemitenteEMail, strDestinatarioEmail, strAsunto, strCuerpoMensaje End If%> PidaSamento <%If Request.Form("DeVuelta")=1 Then%> <%End If%>

Formulario de Pedidos Samento

Puede realizar sus pedidos, o solicitar información adicional, por teléfono (593-4-2562139 ), por e-mail o rellenado y enviándonos este formulario.

Samento Extra Strength 600 mg x 30 Caps ($30.00). Precio de Ecuador, más gastos de envío.

Nombre:

Empresa:

Dirección:

Ciudad:

País:

Teléfono:

E-mail:

Si desea realizar un Pedido indique el número de unidades:

Producto

Unidades

Samento Extra Strength 600 mg x 30 Caps ($30.00)

Al solicitar un pedido especifique los detalles aqui:

<% Sub EnviarEmail(strRemitenteEMail, strDestinatarioEmail, strAsunto, strCuerpoMensaje) Dim objNewMail Set objNewMail = CreateObject("CDONTS.NewMail") objNewMail.Send strRemitenteEmail, strDestinatarioEmail, strAsunto, _ strCuerpoMensaje, 2 ' high importance Set objNewMail = Nothing ' canNOT reuse it for another message End Sub %>