Email Form - VBScript Runtime Error '800a0046'

my code:

dim msconn

DIM mail, objMail

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

objMail.From = "admin@abc.com"

objMail.Subject = "This is a test"

objMail.To = "webmaster@xyz.com"

objMail.Body = "this is a test email from abc.com"

objMail.Send

Set objMail = nothing


This code works perfectly well from any machine apart from the domain controller. On the domain controller, i get the following access denied error message:

Microsoft VBScript runtime error '800a0046'

Permission denied

/Emailer.asp, line 310

I have given full permission to the drop folder in the mail root as guided in other sites. It's still not working.

Can anyone tell me where i'm going wrong? anything else i can try?