CDonts Error

[karent81]

I have the following script
<%
Call SendMail()
%>

<%

Sub SendMail()

Dim subjectTxt
Dim bodyTxt

Dim objCDO

On Error Resume Next

Set objCDO = Server.CreateObject("CDONTS.NewMail")


objCDO.To = "karent81@pacific.net.sg"
objCDO.From = "yuyestar@yahoo.com"

objCDO.Subject = "This is test"
objCDO.Body = "This is a ver simpel test"

objCDO.Send

set objCDO = nothing

End Sub

**************************************

The error occurs when i execute the objCDO.Send th error is
Error Type:
(0x80070003)
I tried to refer to the article for the http://support.microsoft.com/default.aspx?scid=kb;en-us;238956

is not use for me they throw this error while i execute the in command prompt
C:\Inetpub\AdminScripts>ADSUTIL enum SMTPsvc/1

C:\Inetpub\AdminScripts>ADSUTIL enum SMTPsvc/1
The path requested could not be found.
ErrNumber: -2147024893 (0x80070003)
Error Trying To ENUM the Object (GetObject Failed): SMTPsvc/1

I am running at windows 2000 advance server