Para algunas paginas he utilizado el siguiente codigo para enviar correos desde una pagina web funciona correctamente en servidores windows 2000.
<%
mensaje="Hola"
Set Message = CreateObject("CDO.Message")
Message.Configuration.load 1
Message.From = request.form("email")
Message.To = request.form("Txt_user_mail") & "," & request.form("email")
Message.BCC="
[email protected]"
Message.Subject ="Nuevo mensaje enviado desde la página web"
Message.HTMLBody = mensaje
If Len(aFrom) > 0 Then .From = aFrom
Message.Send
%>
Espero sea de ayuda