ES UN PROBLEMA DE ORDEN, Y CON AYUDA LO HE RESUELTO EN PARTE
<%@ Language=VBScript %>
<%
Dim producto, Cantidad, productoTotal, Total, email, index
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "texto"
Mailer.FromAddress = "
[email protected]"
Mailer.AddRecipient"
[email protected]"
Mailer.Subject = "teto"
Mailer.Bodytext = "texto"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.dominio.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic; font-weight: bold""><br></BODY></HTML>"
For index = 1 to Request.Form.Count
producto = Request.form("producto" & index)
Cantidad = Request.form("Cantidad" & index)
productoTotal = Request.form("productoTotal" & index)
Mailer.Bodytext = Cuerpo & Cantidad & " unidad/es " & VbCrLf & " " & Producto & VbCrLf & " " & "Total " + " : " & ProductoTotal & " Euros " & VbCrLf
next
Total = Request.form("Total")
Mailer.Bodytext = Cuerpo & "TOTAL A PAGAR" + " . : " + Total + " Euros "
Mailer.Bodytext = Cuerpo & "Nombre . " + " . : " + Request.form("nombre") + VbCrLf
Mailer.Bodytext = Cuerpo & "Domicilio. " + " . : " + Request.form("domicilio") + VbCrLf
Mailer.Bodytext = Cuerpo & "Ciudad. " + " . : " + Request.form("ciudad") + VbCrLf
Mailer.Bodytext = Cuerpo & "Codigo Postal.... " + " . : " + Request.form("cp") + VbCrLf
Mailer.Bodytext = Cuerpo & "email.... " + " . : " + Request.form("email") + VbCrLf
Mailer.Bodytext = Cuerpo & "Telefono.: " + " . : " + Request.form("telefono") + VbCrLf
Mailer.sendmail
if Mailer.SendMail then
response.write ("OK")
else
response.write ("NO OK.")+ Mailer.Response
end if
%>