插入数据验证库存问题

Question

插入10行记录，前2行库存够，第3行库存不够，但是前2条就插入数据库了，第3行及以后的都没有插入，如何才能验证完10行记录再插入数据库？代码如下：

<%
for i=1 to 10
call inseartinto
next
sub inseartinto()
dim db,conn,connstr
db="../Data/test.mdb"
set Conn = server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath(""&db&"")
conn.Open connstr
dim cpbh,pm,sl
cpbh=request("cpbh"&i)
pm=request("pm"&i)
cksl=request("cksl"&i)
if not cpbh="" then
set rs=server.createobject("adodb.recordset")
sql="select 产品编号,品名,库存 from 库存查询 where 产品编号='"&cpbh&"'"
rs.open sql,conn,1,1
if rs("库存")-cksl <0 then
Response.Write ""
Response.End
else
sql="insert into 测试(产品编号,品名,数量)values('"&cpbh&"','"&pm&"','"&cksl&"')"
conn.execute(sql)
conn.close
set conn=nothing
end if
end if
end sub
%>

运行结果及报错内容

我的解答思路和尝试过的方法

我想要达到的结果

Answer 1

把验证和插入分开就行了，当验证完成的时候在执行插入，拆成两个for循环