Muchas gracias.....
Pero es algo diferente lo que quiero..... lo que pasa es que trate de hacerlo muy simple, realmente lo que quiero es lo siguiente:
Hice una tienda con sivertienda..... y el codigo que uasa para enviar el pedido es de PersitsMailSender.... y yo lo quiero hacer con Cdonts.....
Como puedo cambiar el codigo....
Este es el codigo que sale:
<%
Dim Producto, Cantidad, ProductoTotal, Total, Mail, index
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = ""
Mail.name= "
[email protected]"
Mail.From = "Cibertienda"
Mail.AddAddress "
[email protected]", "Cibertienda"
Mail.Subject = "Cibertienda - Orden de Compra"
Mail.Body = "Cibertienda v1.0 - Orden de Compra"
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.Send
Set mail = Nothing
If Err <> 0 Then
'Response.Write Err.Description
End If
%>
NOTA... el software de sivertienda tiene para generar este codigo para CDonts.... pero no me funciona
GRACIAS