求助，JMail发送邮件统计发送次数

下面是我的一个asp页面用jmail的邮件发送代码，代码没有问题。这个邮件发送对象是动态的从数据库读取出来的。现在想邮件发送成功后统计显示发送成功邮件多少条，失败的多少条。总共发送了多少条。或者发送状态做成动态的 进度条形式 10...20...30....50...

Server.ScriptTimeOut=1000000



Dim JMail

Set JMail = Server.CreateObject("JMail.Message")



smtpserver = "mail.aaa.cn" '支持外发的邮件服务器

smtpuser = "aaa@aaa.cn" '你的邮箱用户名

smtppwd = "11111" '你的邮箱密码



Jmail.Silent = true

JMail.Charset = "gb2312"

JMail.Logging = true

JMail.Priority = 3



JMail.From = "aaa@aaa.cn"

JMail.FromName = "多多臭臭的"

Jmail.ReplyTo ="qq@qq.com"



JMail.AddRecipient(rs("p_email"))//动态发送对象



JMail.Subject = "啊啊"& vbcrlf & vbcrlf & tbody

JMail.Body = "祝贺你成功!"



Jmail.MailServerUserName = smtpuser

Jmail.MailServerPassWord = smtppwd



isgo = Jmail.Send(smtpserver)

if isgo then

RESPONSE.WRITE(" 提交成功！谢谢你的支持。")

RESPONSE.WRITE("<pre>"&JMail.log&"</pre>")

else

RESPONSE.WRITE("<pre><font color=#ff0000 face=arial>"&JMail.log&"</font></pre>")

end if



JMail.Close()

Set JMail = Nothing



rs.close

set rs=nothing