Error al enviar mail con CDO, que hago mal?

[@padawan@]

Tengo un server win 2003 R2 y antes tenia un win 2000 con lo que en mis script de envio de emails usaba siempre el componente cdonts, ahora con win 2003 debo usar el cdo pero haga lo que haga el script no me anda, les dejo el codigo que tengo:

Código:

Sub Mail(sFrom,sTo,sCC,sSubject,sBody)

Set miMail = Server.CreateObject("CDO.Message")
	
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "11.111.11.11(IP) ó nombre de server"
.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 miMail.Configuration = Config


 
	
	miMail.From = sFrom
	miMail.To = sTo
	
	IF sCC<> "" then   miMail.cc = sCC
	
	miMail.Subject = sSubject
	
	miMail.HTMLBody = miBody
	
	miMail.Send
	
	Set miMail = Nothing

End sub

Cuando uso esta funcion me tira un error como este:

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

La verdad probe un montond de codigos que saque de la web, son todos parecidos y me parecen que todos hacen lo mismo, pero ninguno me anduvo, no se que puede ser, o si debo hacer otra cosa.

Tambien probe con este otro codigo, que a muchos les anduvo pero a mi no me anduvo para nada.
me tira el mismo error:

Sub Mail(sFrom,sTo,sCC,sSubject,sBody)

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "74.86.231.141"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = sFrom
.To = sTo
.Subject = sSubject
.TextBody = sBody
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing

End sub