Código:
<%@ Language=VBScript %>
<%
Dim nombre, domicilio, email, producto ,index
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "CLIENTE"
Mailer.FromAddress = "[email protected]"
Mailer.AddRecipient"XXXXXXXXXXX"
Mailer.Subject = "ENCARGO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.Bodytext= "HOMEOPATIA - COMANDA"
Mailer.RemoteHost = "smtpMail.activeisp.com"
Mailer.BodyText = Cuerpo
//No consigo que en el email se cumplan las condiciones :
' Fijate que los atributos deben estar dentro de dos comillas dobles (""atributo"")
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""1""><TR><TD Align=""Center""></BODY></HTML>"
' Acá vos estás Redefiniendo el BodyText, por eso solo te va a tomar lo que pones a continuación
Mailer.Bodytext = "Nombre " + " : " & Request.form("nombre") & VbCrLf
Mailer.Bodytext = "Domicilio " + " : " & Request.form("domicilio") & VbCrLf
Mailer.Bodytext = "email " + " : " & Request.form("email") & VbCrLf
Mailer.Bodytext = "PRODUCTOS " + " : " & Request.form("select1") & VbCrLf
Mailer.sendmail
if Mailer.SendMail then
response.write ("OK")
else
response.write ("NO OK.")+ Mailer.Response
end if
El tema del BodyText te debería quedar así:
Código:
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""1""><TR><TD Align=""Center""></BODY></HTML>"
Cuerpo = Cuerpo & "Nombre " + " : " & Request.form("nombre") & VbCrLf
Cuerpo = Cuerpo & "Domicilio " + " : " & Request.form("domicilio") & VbCrLf
Cuerpo = Cuerpo & "email " + " : " & Request.form("email") & VbCrLf
Cuerpo = "PRODUCTOS " + " : " & Request.form("select1") & VbCrLf
De esta forma "Cuerpo" tendrá todos los valores que querés.
En cambio lo que vos hacías era redefinir la variable "BodyText" constantemente, entonces el valor final que tomaba "BodyText" era este
"PRODUCTOS " + " : " & Request.form("select1") & VbCrLf
Por eso a Mail.BodyText ponelo así:
Mail.BodyText = Cuerpo
Bueno probá y contame como te fué.
Espero haberte sido de ayuda.
Saludos!
