CDONTS.NewMail permission problem

[hmcheung]

I want to test the function of send email through asp. I've installed the SMTP Service and I'm using win2k Server. My asp page is like this:

<%@ language=VBScript %>

<%
dim mailObj

set mailObj = Server.CreateObject("CDONTS.NewMail")
     mailObj.BodyFormat = 0
     mailObj.MailFormat = 0
     mailObj.From = "[email protected]"
     mailObj.To = "[email protected]"
     mailObj.Subject = "aspmail test!!"
     mailObj.Body = " from Andy Cheung, Is this test alright???"
     response.write "asdlfjaspkljdfas;ldjf"    'for testing only
     mailObj.Send
set mailObj = nothing
%>

but the error message is:

asdlfjaspkljdfas;ldjf
Microsoft VBScript Execution Error '800a0046'

No Permission

/building/mailtest.asp, Line14

How can I set the permission of the SMTP Service? Thanks!