怎么先循环判断在循环插入

  想做个多条记录同时插入的，但在多记录插入的时候，先对每条记录的某个字段（如下面代码的EQ_code)先做下判断，只有都符合的时候 才开始进行多条记录的插入，并更新另一个表。但下面的代码只能判断一条记录 插入一条记录。如过有某条记录不符合判断，才停止，但前面符合判断的记录已经插入数据库了。
   怎么修改才能先全部判断完所有记录后，再把多条记录插入！ 下面是代码
<%
set conn=server.createobject("adodb.connection")
conn.Open"provider=Microsoft.jet.oledb.4.0;data source="&Server.MapPath("table.mdb")
dim sql,num
num=request.form("EQ_code").count
for i=1 to num
Sql= "Select count(*) From EQ Where  EQ_code ='"&request.form("EQ_code")(i)&"'"
set rs=conn.execute(sql)
if rs(0)=0 then
response.write("<script>alert('入库的元件中有 未被维护的');history.go(-1);</script>")
else
riqi=date()
      exec="insert into ruku (EQ_code,vendor,qty,price,riqi) values('"&request.form("EQ_code")(i)&"','"&request.form("vendor")(i)&"','"&request.form("qty")(i)&"','"&request.form("price")(i)&"','"&riqi&"')"
      conn.execute exec
 
exec="select EQ_qty,new_price,vendor from EQ where EQ_code='" &request.form("EQ_code")(i)&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("EQ_qty")=rs("EQ_qty")+request.form("qty")(i)
rs("new_price")=request.form("price")(i)
rs("vendor")=request.form("vendor")(i)
rs.update
rs.close
set rs=nothing
end if   
next
conn.close   
set conn=nothing 
                   
%>
<div align="center"><a href="/item2.asp" target="mainFrame">继续入库</a></div>