Gracias Monkyta por tu ayuda, ya pude enviar el mail, le cambie el STMP local por el de la empresa. Aqui esta el codigo para todo el foro. Y si envia sin error jaja.
<% Origen = Request.Form("origen")
Destino = Request.Form("destino")
Asunto = Request.Form("asunto")
Mensaje = Request.Form("mensaje")
Destino ="cuentarecepciona@dominio.com" Set myMail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "www.alumnos.abaco-corp.edu.pe"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With Set myMail.Configuration = Config myMail.Subject = asunto
myMail.From = origen
myMail.To=Destino
myMail.TextBody = mensaje
myMail.Send
set myMail=nothing %>
Ahora tengo que investiga para hacer otra aplicación pero enviando un correo con archvio adjunto.
Otra ves gracias Monkyta.