我做了个asp页面，是一个填表发送邮件的功能。
可是我发到网上填写发送。
会提示我：
Microsoft VBScript 运行时错误 错误 '800a0046'

没有权限

/linhai/keane/baoming.asp，行234

234行的命令是"mail.send"

请各位高手指点一翻很急。

服务器是支持ASP服务的。

Dim sendmail,course,company,contact,dep,tel,fax,mail,name1,name2,name3,name4,duty1,duty2,duty3,duty4,pay,content
course=trim(request.form("course"))
company=trim(request.form("company"))
contact=trim(request.form("contact"))
dep=trim(request.form("dep"))
tel=trim(request.form("tel"))
fax=trim(request.form("fax"))
mail=trim(request.form("mail"))
name1=trim(request.form("name1"))
name2=trim(request.form("name2"))
name3=trim(request.form("name3"))
name4=trim(request.form("name4"))
duty1=trim(request.form("duty1"))
duty2=trim(request.form("duty2"))
duty3=trim(request.form("duty3"))
duty4=trim(request.form("duty4"))
pay=trim(request.form("pay"))
content="" & ""
content=content & "" & ""
content=content & "" & ""
content=content & "" & ""
content=content & "" & ""
content=content & "" & ""
content=content & "" & ""
content=content & "" & "" & ""
content=content & "" & "" & ""
content=content & "" & "" & ""
content=content & "" & "" & ""
content=content & "" & "

培训课程名称：	"& course & "
公司名称：	"& company & "
联系人：	"& contact & "
部门：	"& dep & "
电话：	"& tel & "
传真：	"& fax & "
E_mail：	"& mail & "
姓名：	"& name1 & "	职务：	"& duty1 & "
	"& name2 & "		"& duty2 & "
	"& name3 & "		"& duty3 & "
	"& name4 & "		"& duty4 & "
付款方式：	"& pay & "

"
set sendmail=Server.CreateObject("CDONTS.Newmail")
sendmail.From=mail
sendmail.To="oasis_f@sina.com "
sendmail.Subject=company & "需要培训" & course
sendmail.body=content
sendmail.send
set sendmail=Nothing            
response.write "您填写的信息："
response.write content
response.write "已经被正确发送。

"
response.write "谢谢您的Email，大知公司会尽快与您联系，请再继续访问这里的其他栏目."