Problema con ASP y Ajax

[Adler]

Hola

En este caso Totus y Alameda son como identifico al proveedor, y están en medio de los campos de los productos...esto son los datos de los productos:

Esto no me dice nada.

Si lo que quieres es recibir los valores de 4 cuatros campos (Csr, txt, Serie y comentarios), lo puedes hacer así. También ha cada campo campo has de darle el nombre a todos los campos

Dim Arr() ' Valores de todos los campos recibidos
cantCampos = 0 ' cantidad de campos recibidos
For each campo in Request.Form
if Request.Form(campo) <> "" then
cantCampos = cantCampos +1
Redim preserve Arr(cantCampos)
Arr(cantCampos) = Request.Form(campo)
end if
Next

Dim Arr2() ' Valores del primer campo de cada tr
Dim Arr3() ' Valores del segundo campo de cada tr
Dim Arr4() ' Valores del tercer campo de cada tr
Dim Arr5() ' Valores del cuarto campo de cada tr

j = 0
for i = 1 to ubound(Arr) step 4
Redim preserve Arr2(j)
Arr2(j) = Arr(i)
j = j +1
next

x = 0
for i = 2 to ubound(Arr) step 4
Redim preserve Arr3(x)
Arr3(x) = Arr(i)
x = x +1
next


p = 0
for i = 3 to ubound(Arr) step 4
Redim preserve Arr4(x)
Arr4(p) = Arr(i)
p = p +1
next

z = 0
for i = 4 to ubound(Arr) step 4
Redim preserve Arr5(z)
Arr5(z) = Arr(i)
z = z +1
next



for i = 0 to j-1
strSQL =" INSERT INTO KARDEX_HISTORIAL_REP (Nro_CSR, MODELO, Nro_serie, COMENTARIO) VALUES('"&trim(Arr2(i))&" ',' "&trim(Arr3(i))&" ', ' "&trim(Arr4(i))&" ', ' "&trim(Arr5(i) )&" ') "
set rs = Cnn.Execute(strSQL)
next

Por cierto estaría bien que usaras transacciones, por si hubiera algún problema con algún insert

Suerte