asp+jmail这个代码为什么 不能发邮件呢，哪里有问题？

<%
'作者主页：www.zuoxinwu.com
'作者邮箱：zuoxinwu@gmail.com，对本程序有疑义，请发邮件联系作者。
    ReceiveMail="496470673@qq.com"  '接收邮件的邮箱，这里是本程序作者邮箱，请改成你的邮箱。可以用变量。
    ReceiveMailbody= Request.Form("MailContent") '接收表单内容
    usermail=Request.Form("usermail") '接收表单内容
    '你可以通过在后文的表单自定义其他字段来进行扩充，记得在此处定义接收表单内容的代码。
    if ReceiveMailbody="" then '判断邮件是否发送，用于返回按钮。
    %>
    <table>
    <form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">
    <tr><td>
    <p>电子邮箱：<input name="usermail" type="text"></p>
    <p>邮件正文内容：</p>
    <p style="text-align:center">
    <textarea rows="10" cols="50" name="MailContent"></textarea><br />
    <input name="Submit" type="submit" value="提交">  <input name="Submit" type="reset" value="重写">
    </p>
    </td></tr>
    </form>
    <%
    else
    dim JMail
    set jmail=server.CreateObject ("jmail.message")
    jmail.Silent =true
    jmail.Charset ="gb2312" '发送邮件的文字编码。
    jmail.From =usermail '用户邮箱，收到邮件的时候会作为回复地址，可以用常量，也可以用变量。
    jmail.FromName =usermail '发送者称呼，可以用常量，也可以用变量。
    jmail.Subject ="ASP发邮件测试" '地球人都知道，这里是邮件的标题。可以用常量，也可以用变量。
    jmail.AddRecipient ReceiveMail '定义邮件接收地址
    jmail.Body = "你好，本邮件来自："&usermail&VBCrLf '用&VBCrLf实现邮件正文的回车换行。
    jmail.Body = jmail.Body&ReceiveMailbody&VBCrLf '用&VBCrLf实现邮件正文内容的延续。
    jmail.MailServerUserName ="563463582@qq.com" '发送邮件的邮箱，请配置你发邮件的邮箱地址。
    jmail.MailServerPassWord ="***********" '发送邮件的密码，请配置你发邮件的邮箱密码。
    issuccess=jmail.Send("smtp.qq.com") 'SMTP服务器，请配置你发邮件的SMTP服务器地址。
'上述三项参数的正确与否是邮件发送是否成功的关键
    if issuccess then '本程序没有进行邮箱有效性判断，但邮箱格式不正确，邮件肯定发送不了。
    msg="邮件发送成功！" '发送成功提示语，可以在后文设置文字格式。
    else
    msg="发送失败，请检查邮箱地址是否正确！" '发送失败提示语，可以在后文设置文字格式。
    end if
    jmail.Close
    set jmail=nothing
    end if
    %>
    <tr><td>
    <p class="infomsg"><%=msg%><br><a href='javascript:history.back()'>【返回】</a></p>
    </td></tr>
</table> asp+jmai

补充：VB ,  网络编程