关于CDONTS和Jmail的问题,请教高手

[equnasp]

我写了一段CDONTS和Jmail发邮件的程序,在本机调试成功了,但在虚拟主机上却不成功:程序执行完毕,但却收不到邮件,服务器上已经安装了CDONTS和Jmail组件了
代码如下:
<%
str=str&"您好!"
str=str&"　　由中国学生网所提供的劣质服务（ASP服务器瘫痪），导致本站连继两天不能访问。"
str=str&"站长向这段时间不能访问本站的朋友深表歉意！本工作室也正在考虑更换网络提供商！<br>"
str=str&"　　本站永久域名：www.chinabs.net　　主要面向B/S技术爱好者。<br>"
str=str&"　　建站的目的是为B/S爱好者提供一个学习交流的平台，同时也为商家建立企业上网平"
str=str&"台，企业内部B/S应用提供解决方案。<br>"
str=str&"　　主要内容包括：ASP,ASP.NET,JSP,PHP,C#,Java,JavaScript,XML学习文章，B/S技术"
str=str&"交流论坛及一些本工作室开发的一些B/S应用。<br>"
str=str&"　　本站的发展离不开大家的支持！<br>"
str=str&"　　谢谢！<br>"
str=str&" 站长：追风<br>"
str=str&" 深圳比艾思工作室<br>"
set mailobj = server.CreateObject("jmail.smtpMail")
mailobj.silent = true
mailobj.logging = true
mailobj.subject = "你好"
mailobj.body = str
mailobj.addrecipient "[e-mail]"
mailobj.serveraddress = "mail.qmedu.com" '这里是发邮件服务器的地址
mailobj.sender = "[e-mail]" '发件人的地址
mailobj.senderName = "病人天下" '发件人的姓名
mailobj.execute()
if err.number <> 0 then
response.write "邮件没有发送成功"
else
response.write "邮件发送成功"
end if
set mailobj = nothing

Set cdomail = Server.CreateObject("CDONTS.NewMail")
cdomail.Subject = "Mail Subject"
cdomail.From = "[e-mail]"
cdomail.To = "[e-mail]"
cdomail.BodyFormat=0
cdomail.Body = str
cdomail.Send '执行发送
%>

[equnasp]

求救呀,急!!!

[equnasp]

救命

[liwb]

服务器上stmp服务没启动