<%@ 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 :
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>"
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