Casi todos los servidores que soportan ASP suelen tener algún componente de envío de correo. Por ejemplo el ASPEmail de Persist Software. En este caso el código a utilizar sería el siguiente:
<%
'Creamos el objeto
Set Mail = Server.CreateObject("Persits.MailSender")
'Servidor SMTP
Mail.Host = "mail.miservidor.com"
'Cabecera del mensaje
Mail.From = "
[email protected]"
Mail.FromName = "Mi Nombre"
Mail.AddAddress "
[email protected]"
'Tema del mensaje
Mail.Subject = "Email saludando"
'Cuerpo del mensaje
Mail.Body = "Cuerpo del mensaje"
'Capturamos el posible error
On Error Resume Next
'Mandamos el mensaje
Mail.Send
If Err <> 0 Then
Response.Write(Err.Description)
else
Response.Write("Mensaje enviado satisfactoriamente")
End If
%>
Echale un vistazo a la página de Persist Software y bajate el componente ASPEmail (aspemail.com).
Espero que te sirva.
Salu2.
Línea de Código.