LO HE PROBADO Y NO HA FUNCIONADO HASTA QUE HE CAMBIADO ,Cuerpo = Cuerpo, por Mailer.Bodytext = Cuerpo. !!!!. Ahora funciona. Además en la definición de Cuerpo le he tenido que cambiar border=""1"" por border=""0"" para que no me apareciera una tabla dentro de otra tabla
<%@ Language=VBScript %>
<%
Dim nombre, domicilio, email, producto, index
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "XXXX"
Mailer.FromAddress = "
[email protected]"
Mailer.AddRecipient"DDDDDDDDDDDDDD"
Mailer.Subject = "HHHHHHHHH"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""0""><TR><TD Align=""Center""></BODY></HTML>"
Mailer.BodyText = Cuerpo
Mailer.Bodytext = Cuerpo & "ZZZZZZZZZ" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "Nombre " + " : " & Request.form("nom") & VbCrLf
Mailer.Bodytext = Cuerpo & "Domicilio " + " : " & Request.form("domicili") & VbCrLf
Mailer.Bodytext = Cuerpo & "email " + " : " & Request.form("email") & VbCrLf
Mailer.Bodytext = Cuerpo & "PRODUCTO " + " : " & Request.form("select1") & VbCrLf
Mailer.sendmail
if Mailer.SendMail then
response.write ("OK")
else
response.write ("NO OK")+ Mailer.Response
end if
%>
Muchas gracias