Problema con ASP y Ajax

[Adler]

Hola

Sí, lo había hecho al vuelo
Prueba ahora

Código ASP:

<&#37;
Dim Arr() ' Valores de todos los campos recibidos
For each campo in Request.Form
valCampos = valCampos & Request.Form(campo)
Next
 
division = Split(valCampos, ",")
 
for i = 0 to UBound(division)
Redim preserve Arr(i+1)
Arr(i) = Trim(division(i))
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 = 0 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr2(j) 
Arr2(j) = Arr(i) 
j = j +1 
end if
next
 
x = 0
for i = 1 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr3(x) 
Arr3(x) = Arr(i) 
x = x +1 
end if
next
 
 
p = 0
for i = 2 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr4(p) 
Arr4(p) = Arr(i) 
p = p +1 
end if
next
 
z = 0
for i = 3 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr5(z) 
Arr5(z) = Arr(i) 
z = z +1 
end if
next
 
' Tu conexión
 
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) )&" ') "
Cnn.Execute(strSQL)
next
Cnn.Close
set Cnn = nothing
 
Response.Write("Datos Insertados con &eacute;xito")
%>
 

Ten en cuenta que ahora todos los campos del form han de tener el mismo nombre

Suerte