ENVIO DE MAIL
<% On error resume next Dim mySmartMail Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") mySmartMail.Server = "mail.tudominio.com" mySmartMail.SenderName = Request("n1") mySmartMail.SenderAddress = Request("e1") mySmartMail.Recipients.Add Request("e2"), Request("n2") mySmartMail.Priority = Request("p") mySmartMail.Subject = Request("a") mySmartMail.Body = Request("m") mySmartMail.SendMail if err.number <> 0 then response.write("Error n " & err.number - vbobjecterror & " = " & err.description & "
") else Response.Write "Se ha enviado correctamente el mensaje." end if set mySmartMail = nothing %>