Error Asp y Codigo Asociado Gracias

Este es el Error
Error de Microsoft VBScript en tiempo de ejecución error '800a0046'

Permiso denegado

/asp/clasificados/inc_detail.asp, line 36

-

Este el Codigo

-

<%
If Request.QueryString("action") = "sent" Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = Request.Form("EMAIL")
objCDO.To = Request.Form("ad_email")
objCDO.cc = Request.Form("EMAIL")
objCDO.Subject = Request.Form("SUBJECT")
objCDO.Body = Request.Form("MESSAGE")
objCDO.Send() Linea 36 del error
Set objCDO = Nothing
End If
%>

gracias por la Help

Linux user: 58887 Red Hat - www.CreativNet.info

****************************** AVISO LEGAL
***********************************************
Este mensaje es solamente para la persona a la que va dirigido. Puede
contener
información confidencial o legalmente protegida. No hay renuncia a
la
confidencialidad o privilegio por cualquier transmisión mala/errónea. Si
usted
ha recibido este mensaje por error, le rogamos que borre de su sistema
inmediatamente el mensaje asi como todas sus copias, destruya todas las
copias
del mismo de su disco duro y notifique al remitente.
****************************** AVISO LEGAL
***********************************************
Anti-Spam@Anti-Spam.com