set mail=server.CreateObject("CDO.Message")
mail.From= Request("sender")
mail.To = "
[email protected]"
mail.Subject = Request("subject")
mail.TextBody = "Mensaje: " & body
'mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain
'mail.MailFormat = 1 ' 0 = MIME, 1 = Text
'mail.Importance = 1 ' 0 = High, 1 = Medium, 2 = Low
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXX.XXXXX.com"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "
[email protected]"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXX"
mail.Configuration.Fields.Update
mail.Send
set mail=nothing