Problema con ASP y Ajax

[Adler]

Hola

Podría algo como esto

Código ASP:

Dim Arr()
cantCampos = 0
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()
Dim Arr3()
 
j = 0
for i = 1 to ubound(Arr) step 2
Redim preserve Arr2(j)
Arr2(j) = Arr(i)
j = j +1
next
 
x = 0
for i = 2 to ubound(Arr) step 2
Redim preserve Arr3(x)
Arr3(x) = Arr(i)
x = x +1
next
 
for i = 0 to 1
Response.Write Arr2(i) & ","
Response.Write Arr3(i) & "<br />"
next
 

Suerte