jmail问题，本地机器测试正常，上传到服务器后无法发送

<%

'标题
mailtopic="注册成功-" & now() & "-" & Request.ServerVariables("REMOTE_ADDR")
'mailtopic="hi"

'内容
mailbody="尊敬的用户：" & vbcrlf & vbcrlf &"欢迎您加入，很高兴您成为我们的新会员。"
'mailbody="hi"


'签名
addtext=""

if Request.ServerVariables("HTTP_HOST")<>Local_Host_Mine then
response.write SendMail("info","info@xxxxx.com","发送人名称","1123@msn.com",mailtopic,mailbody,addtext)
end if
%>
<%
function SendMail(fromname,frommail,toname,tomail,mailtitle,mailbody,mailfoot)
dim JMail
set JMail=server.CreateObject("Jmail.message")

JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName = fromname
JMail.from = frommail
JMail.AddRecipient tomail,toname
JMail.Subject = mailtitle
jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot

JMail.MailServerUserName = "info@xxxxx.com"
JMail.MailServerPassWord = "密码"
JMail.MailDomain = "mail.xxxxx.com"

sendok=JMail.send("mail.xxxxx.com")
if sendok then
msg="  已经成功发送了注册通知邮件！"
else
msg="发送注册通知邮件失败，可能是您填写了错误的邮件地址。<br>" & _
"如果您确信没有写错邮件地址，则可能是发信程序出了" & _
"故障，请与管理员联系。"
end if
SendMail = msg
end function
%>


服务器已经正常安装jmail，请问如何解决？