循环查询更新问题

<%dim aa,bb,cc
aa="1,2,3,4"    '不一定是多少个
bb=Split(aa,",")
for i=0 to ubound(bb)
cc=bb(i)
  set rs=server.CreateObject("adodb.recordset")
sql="select * from wenshu where fafangid = '"&cc&"'"
rs.open sql,conn,1,2
if rs.eof then
call backmsg("没找到此文书编号")
response.end()
end if
rs("fafangid")="<font color=#000000>"&stripHTML(bb)&"</font>"
rs.update
rs.close
next
%>
请帮我看一下有什么问题，为什么每次更新时，只能更新第一个，当查询更新第二条信息时就提示没有此文书，也就是说当查询数据库与第一条信息对比如果不一样，数据库里其它信息都不查了，直接说没有，这是怎么回事啊．．．
急死了，请大家帮忙，谢谢．．