我用jmail发送邮件遇到个问题，使用群发的时候，页面出现服务器500错误，但是我可以收到群发的邮件，也就是mail.execute之后的语句不能够再页面显示了，我使用了循环从数据库中把收件人的地址拿出mail.addrecipient rs("mail")，然后用mail.execute发送的。

还请高手指点一二。谢谢了！

这是我的测试代码，没有问题的
content=changechr(request("content"))

email="....."

subject=trim(request("title"))
myemail=".****"
myname="*****"
myurl="****"
strMessage = regname & "　先生/女士：
    您好！
"
            strMessage = strMessage & "这封邮件来自 : " & myname & " (" & myemail & ")
"
            strMessage = strMessage & "我们的网站地址: " & " (" & myurl & ")
"
            strMessage = strMessage & content
for i=1 to 5
dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.silent = true '则errorcode包含的是错误代码
JMail.Logging=False '是否使用日志
JMail.Charset="gb2312"
JMail.ContentType = "text/html" 'text/html是超文本格式text/plain是文本格式
JMail.MailServerUserName = "****" '您的邮件服务器登录名
JMail.MailServerPassword = "***" '登录密码
JMail.From ="...." '发件人
JMail.FromName = "......." '发件人姓名
JMail.AddRecipient email '收件人
JMail.Subject = subject '主题
JMail.Body = strMessage '正文
JMail.Send "*******" 'smtp服务器地址
JMail.Priority=3 '1: 最高优先级.2:高 3:普通 4:低 5:最低
if err then err.description
Set JMail=nothing


response.write i&"、"
response.write email
response.write "发送成功！
"
next
response.write "发送完毕！"
%>