请求各位大哥大姐帮我看看我这段程序哪里出问题了 mail_email 表里面字段有：ID，email ，groupid ，…… mail_back表里面字段有：ID，email 我这是个邮件群发系统，这段代码我实现的功能是在发送前把要发送的邮件先保存在mail_back表里面（把所有 mail_email 表里面 groupid ＝groupids的邮件复制到mail_back表里面） groupids为我外部制定的一个变量 <% set rs=server.createobject("adodb.recordset") rs.open"select email frome mail_email where groupid = " & groupids & " ",conn,1,1 rs.movefirst

Do while not rs.eof call actAdd(rs("email")) rs.MoveNext Loop rs.close set rs=Nothing Sub actAdd(txt) dim ts,sql sql="insert into mail_back(email) values('"&txt&"')" set ts=Conn.Execute(sql) ts.Close Set ts=Nothing end Sub %> 希望能尽快得到高手们的指点，如果我还没有说明白请加我QQ：43667749 Email：mycooldream@eyou.com

     Sub actAdd(txt)
     dim sql
     sql="insert into mail_back(email) values('"&amp;txt&amp;"')"
     Conn.Execute (sql)
     end Sub

谢谢楼上的答复，可是程序还是故障依旧，好像不是下面问题，
我把循环里面的语句   call actAdd(rs("email"))  注释掉，让它空循环，问题依旧，
它也不是报告错误，而是好像程序死掉了没有运行，最后由于运行时间过长而中止
但是我如果把这段代码不要，那么这个邮件群发系统就没有问题，
我这段代码就是要把我所发的邮件记录下来。
我调试了几天了问题依旧，不知道错在哪里？
还希望大家帮我一起找问题！！
再次谢谢大家！！

用

Do Until rs.EOF

rs.MoveNext

Loop

来试试呢？

楼上的试过之后问题依旧
我真的感觉问题很纳闷