Como ya me ha pasado, resulta que se debe a un problema de orden en las lineas.
<meta http-equiv="Content-Language" content="ca">
<%@ Language=VBScript %>
<%
Dim producto, Cantidad, productoTotal, Total, email, index
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "XXXXXX"
Mailer.FromAddress = "
[email protected]"
Mailer.AddRecipient"xxxxxx","
[email protected]"
Mailer.Subject = "XXXXXX"
Mailer.Bodytext = "XXXXXXXXXXXXXX"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.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 & " unitat/s " & VbCrLf & " " & Producto & VbCrLf & " " & "Total con IVA " + " : " & ProductoTotal & " Euros " & VbCrLf
next
Total = Request.form("Total")
Mailer.Bodytext = Cuerpo & " " & " " & " " & "TOTAL A PAGAR" + " . : " + Total + " Euros "
Mailer.Bodytext = Cuerpo & Request.Form.Count
Mailer.Bodytext = Cuerpo & "Nom . " + " . : " + Request.form("nombre") + VbCrLf
Mailer.Bodytext = Cuerpo & "Domicili. " + " . : " + Request.form("domicilio") + VbCrLf
Mailer.Bodytext = Cuerpo & "Ciutatsp. " + " . : " + Request.form("ciudad") + VbCrLf
Mailer.Bodytext = Cuerpo & "Codi Postal.... " + " . : " + Request.form("cp") + VbCrLf
Mailer.Bodytext = Cuerpo & "email.... " + " . : " + Request.form("email") + VbCrLf
Mailer.Bodytext = Cuerpo & "Telèfon.: " + " . : " + Request.form("telefono") + VbCrLf
Mailer.sendmail
if Mailer.SendMail then
response.write ("OK")
else
response.write ("NO OK.")+ Mailer.Response
end if
%>