Inserindo multiplos registros com asp e access

Oi Boa Tarde,

Eu sou nova em desenvolvimento asp, e estou com uma dúvida, já pesquisei bastante, porém não consigo encontrar solução, espero que alguém possa me ajudar.

Eu tenho um form com checkbox (values = produtos) e textarea para digitar a respectiva quantidade dos produtos, sendo que os dois deveriam ser cadastrados em uma tabela chamada lista, cada um em um campo e em linhas diferentes; porém com o código que eu fiz, consigo cadastrar apenas os produtos do checkbox e a quantidade fica em branco, a não ser qdo eu digito todos os textareas com quantidades, se eu pulo uma quantidade, já não cadastra no BD. Será que alguém poderia me ajudar?

Código do form:

<%
Dim teste
Dim teste_cmd
Dim teste_numRows

Set teste_cmd = Server.CreateObject ("ADODB.Command")
teste_cmd.ActiveConnection = MM_pedido_STRING
teste_cmd.CommandText = "SELECT * FROM produtos ORDER BY nome_produto ASC"
teste_cmd.Prepared = true

Set teste = teste_cmd.Execute
teste_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
teste_numRows = teste_numRows + Repeat1__numRows
%>

<form action="teste2.asp" method="post" name="1" id="1">
<table border="1">
 <tr>
	<td>id_prod</td>
	<td>nome_produto</td>
	<td>mod_tam</td>
	<td>marca</td>
	<td>fornecedor</td>
 </tr>
 <% While ((Repeat1__numRows <> 0) AND (NOT teste.EOF)) %>
	<tr>

<td><input name="produtos" type="checkbox" value="<%=(teste.Fields.Item("nome_produto").Value)%><%=(teste.Fields.Item("mod_tam").Value)%>" />
 <td><input type="text" name="qtd_produtos" value="0" /></td>
 <td><%=(teste.Fields.Item("nome_produto").Value)%></td>
 <td><%=(teste.Fields.Item("mod_tam").Value)%></td>
 <td><%=(teste.Fields.Item("marca").Value)%></td>
 <td><%=(teste.Fields.Item("fornecedor").Value)%></td>
	</tr>
	<%
 Repeat1__index=Repeat1__index+1
 Repeat1__numRows=Repeat1__numRows-1
 teste.MoveNext()

Wend
%>

</table>
<p>
 <input type="submit" name="subim" id="subim" value="Submit" />
</p>
</form>

<%
teste.Close()
Set teste = Nothing
%>
Código para cadastro múltiplona tabela lista:

<%
qtd_produtos = split(Request.Form("qtd_produtos"),",")
produtos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

Set Command1 = Server.CreateObject ("ADODB.Command")
Command1.ActiveConnection = MM_pedido_STRING
Command1.CommandText = SQL
Command1.Prepared = true

Command1.Execute (SQL)
Next
%>