jmail错误：无效的类别字符串

flyolive 2004-01-06 01:18:50

错误类型：
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串
Set JMail=Server.CreateObject("JMail.SMTPMail")

下面是源代码：
sub sendusermail()

topic="您"
mailbody=mailbody &"<style>A:visited { TEXT-DECORATION: none }"
mailbody=mailbody &"A:active { TEXT-DECORATION: none }"
mailbody=mailbody &"A:hover { TEXT-DECORATION: underline overline }"
mailbody=mailbody &"A:link { text-decoration: none;}"
mailbody=mailbody &"A:visited { text-decoration: none;}"
mailbody=mailbody &"A:active { TEXT-DECORATION: none;}"
mailbody=mailbody &"A:hover { TEXT-DECORATION: underline overline}"
mailbody=mailbody &"BODY { FONT-FAMILY: 宋体; FONT-SIZE: 9pt;}"
mailbody=mailbody &"TD { FONT-FAMILY: 宋体; FONT-SIZE: 9pt }</style>"
mailbody=mailbody &"<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody &"<TD valign=middle align=top>"

mailbody=mailbody &"欢迎您注册本网站！<br>"
mailbody=mailbody &"下面是您的注册信息：<br>"
mailbody=mailbody &"注册名："& hdylm &" <br>"
mailbody=mailbody &"密码："& mm &" <br>"
mailbody=mailbody &"<br><br>"
mailbody=mailbody &"<center><font color=red>再次感谢您注册本站，！</font>"
mailbody=mailbody &"</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"

dim frommail
frommail="root@beesnet.com"

Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress="mail.beesnet.com"
JMail.Sender="root@beesnet.com"
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient dzyj
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if

end sub

...全文