asp发邮件问题

<%

'========================================================

' 发送邮件

'========================================================

Sub SendMail(receive)

'On Error Resume Next

Dim JMail:Set JMail=Server.CreateObject("JMail.Message")'创建一个JMAIL对象

JMail.Logging = false'启用使用日志

JMail.silent = false'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE

JMail.Charset = "utf-8" '邮件文字的代码为简体中文

Jmail.ContentType = "text/html" '邮件的格式为HTML的

JMail.Priority = 1'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

JMail.From="xxx@163.com"'设置邮件的发送者-邮件地址。比如：yourmailname@163.com

JMail.FromName="管理员"'设置邮件的发送者-名称。比如：XXXX有限公司，或你的姓名等

JMail.MailServerUserName="xxx@163.com"             '比如：yourmailname

JMail.MailServerPassWord="***"             '比如：登陆邮箱的密码

JMail.AddRecipient tomail="xxx@qq.com"                 '对方的邮件地址。

JMail.Subject="ss"                     '邮件主题或叫邮件标题

JMail.HTMLBody ="<b>a</b>"               '邮件内容(支持html格式)

JMail.Body="cc"                       '邮件内容(文本格式)

smtp="smtp.163.com" '发件服务器

Dim flag:flag=JMail.Send(smtp)'发送（如果用的不是163，请换成其它的SMTP服务器，163的smtp服务器为：smtp.163.com）

Response.Write "<script>"

IF flag Then

  Response.Write "alert('成功发送邮件！');"

Else

  Response.Write "alert('邮件发送失败！');"

End IF

Response.Write "</script>"

JMail.Close '关闭邮件对象

Set JMail=Nothing

end sub







SendMail("")



%>

谁帮看看 有没有错误啊  确认smtp都已经开了  163  126  qq的都试了  本地一直不好使 
报服务器没有响应
------解决方案--------------------
本地确定安装了JMail插件？
如果没有就下载安装后再试http://www.scscms.com/software/2010-9/2910294408.html