求救：第一次成功加入记录后，再加就会出错？？？！！！

[Jeroki]

<% Set con = Server.CreateObject("ADODB.Connection")
con.Open "link"
sql="select * from consultant_add where "
select_count=request("chk").count
if select_count=0 then
response.write "<BR><BR><CENTER><B><FONT SIZE='6' COLOR='#FF6600'>WARNING</FONT></B><BR><BR>You haven't select consultant,Please select again!<BR><BR>"
response.write "<a href='consultantadd_getdata.asp'>GO BACK</a></CENTER>"
else%>
<%for i=1 to select_count
sql=sql+"staffname='"&request("chk")(i)&"' or "
next
sql=left(sql,len(sql)-4)
set rs=server.createobject("adodb.recordset")
rs.open sql,con,1,1
rs.movefirst
while not rs.eof
%>
<hr><%

set rs1=server.createobject("adodb.recordset")
sql1="select * from consultant "
rs1.open sql1,con,2,2
rs1.movelast
cno=rs1("consultantno")
rs1.addnew
rs1("staffname")=rs("staffname")
rs1("consultantno")=cno+1
rs1("consultantno1")="TEST1"
rs1("citycode")="112"
%>
<%
set rs2=server.createobject("adodb.recordset")
sql2="select * from consultant_accountinfo"
rs2.open sql2,con,2,2
rs2.addnew
rs2("consultantno")=rs1("consultantno")
rs2("consultantno1")="TEST2"
rs2("agency")=rs("agency")
rs2.update
rs1.update
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
rs.movenext
wend
rs.close
set rs=nothing
response.write "<CENTER>SUCCEED</CENTER>"
end if%>