<%
response.write "Correo enviado ....."
Dim Producto, Cantidad, ProductoTotal, Total, Mail, index
..........
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "
[email protected]"
Mail.From = "
[email protected]"
Mail.FromName = "Cibertienda"
Mail.AddAddress "
[email protected]", "Cibertienda"
Mail.Subject = "Cibertienda - Orden de Compra"
Mail.Body = "Cibertienda v1.0 - Orden de Compra" & VbCrLf & VbCrLf
For index = 1 to Request.Form.Count
Producto = Request.Form("Producto" & index)
Cantidad = Request.Form("Cantidad" & index)
ProductoTotal = Request.Form("ProductoTotal" & index)
Mail.Body = Mail.Body & "Producto" & index & ": " & Producto & VbCrLf
Mail.Body = Mail.Body & "Cantidad" & index & ": " & Cantidad & VbCrLf
Mail.Body = Mail.Body & "ProductoTotal" & index & ": " & ProductoTotal & VbCrLf & VbCrLf
next
Total = Request.Form("Total")
Mail.Body = Mail.Body & "Total: " & Total & VbCrLf & VbCrLf
Mail.Body = Mail.Body & "Datos Personales:" & VbCrLf
Mail.Body = Mail.Body & "Nombre " & Request.Form("nombre") & VbCrLf
Mail.Body = Mail.Body & "Apellido " & Request.Form("apellido") & VbCrLf
Mail.Body = Mail.Body & "Domicilio " & Request.Form("domicilio") & VbCrLf
Mail.Body = Mail.Body & "Ciudad " & Request.Form("ciudad") & VbCrLf
Mail.Body = Mail.Body & "Provincia " & Request.Form("provincia") & VbCrLf
Mail.Body = Mail.Body & "Código Postal " & Request.Form("cp") & VbCrLf
Mail.Body = Mail.Body & "País " & Request.Form("pais") & VbCrLf
Mail.Body = Mail.Body & "E-mail " & Request.Form("email") & VbCrLf
Mail.Body = Mail.Body & "Teléfono " & Request.Form("telefono") & VbCrLf
Mail.Body = Mail.Body & "Fax " & Request.Form("fax") & VbCrLf
Mail.Send
..........
If Err = 0 Then response.write "Exitosamente!! " else response.write "Error en el envio. consulte su error<br/>"
Response.Write Err.Description
End If
%>