objmail.SEnd没有权限问题

[gdcba]

sender="[e-mail]"
emailto=trim(Request.Form("name"))
emailto2=BookContent

Dim objMail,mailbody,title
Set objMail = Server.CreateObject("CDONTS.NewMail")
title=trim(Request("body"))
objMail.From = sender
objMail.Subject = trim(Request("topic"))&"你有留言 "
objMail.To =sender '收件人邮箱
objMail.Body = "你好，"
objMail.Body =mailbody &"<br>网友 ["&emailto&" ] 给你的留言：<br>["&emailto2&" ] <br> <br>此邮件由<a href=http://www.555.cn/ target=_blank>55（http://www.55.cn/）</a>邮件系统发送，请勿直接回复此邮件！<br><br><br>*************************************************************************************<br>申明：该邮件内容只作网站推荐用，本站对邮件的内容不负任何法律责任！<br><br>"

objmail.bodyformat=0
objmail.mailformat=0
objmail.SEnd("")
ErrStr =objmail.errormessage
objmail.ClearAttachments
objmail.close
Set objmail=nothing

Microsoft VBScript 运行时错误 错误 '800a0046'

没有权限

/new/e55on_s.asp，行207 就是这行objmail.SEnd("")

但是这个就不行出错
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.Silent=TRUE
JMail.CharSet="gb2312"
'JMail.AddHeader "www.Donggan.net","Donggan_net"
JMail.From = FromMail
Jmail.FromName = FromName
JMail.Subject=MailSubject
JMail.AddRecipient ToMail
If ToMailcc <> "" Then JMail.AddRecipientCC ToMailcc
If ToMailbcc <> "" Then JMail.AddRecipientBCC ToMailbcc
If MailFormat = "html" Then
JMail.HTMLBody = MailBody
Else
JMail.Body = MailBody
End If
If Attachment <> "" Then JMail.AddAttachment(Attachment)
If URLAttachment <> "" Then JMail.AddURLAttachment URLAttachment
JMail.Priority = Priority
'If TimeMail Then JMail.DeferredDelivery = sendtime
If SMTPUser <> "" Then JMail.MailServerUserName = SMTPUser
If SMTPPass <> "" Then JMail.MailServerPassword = SMTPPass
If SMTPPass <> "" Then
JMail.SEnd("SMTPHost")
Else
JMail.SEnd("")
End If
ErrStr =JMail.errormessage
JMail.ClearAttachments
JMail.close
Set JMail=nothing

[笨笨兔兔兔兔兔]

那你把send去了算了