como enviar emails desde asp

[vpino]

Hola señores. estoy intentando enviar emails atraves de asp. pero la verdad no se nada en absoluto. buscando en el foro encontre un codigo pero no me fucniona. y no se que tiene de malo porque al correr el programa no se muestra nada en la pantalla. ejecute una rutina (tambien expuesta en el foro) y dice que esta instaldo CDOSYS (ISS 5/5.1/6).

espero me colaboren con algo.

<%
'<<<>>> Funcion de envio de mails <<<>>>
function SendEmail

on error resume next
Dim iMsg,iConf,Flds, TextoCuerpo, Cli_Mail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "201.130.2.58" 'aca va el server de salida
.Update
End With

With iMsg
Set .Configuration = iConf
To ="[email protected]" ' el mail del destinatario
.From = "[email protected]" 'el mail de evio
.Subject = "Novedades "
' .TextBody = mensaje 'en modo texto
.htmlBody = mensaje 'en modo html
.Send
End With
response.write("se envio")

end function
%>

mil gracias.

[JuanRAPerez]

no te aparece ni la frese

se envio


???????

[vpino]

no muestra la frase "se envio", pero al colocar en comentario las lineas
function SendEmail y end function si se muestra la frase.


gracias por responder