Hola
Así a bote pronto se me ocurre que en el formulario podrías usar un campo hidden que indicara el número de campos ha recibir arreglo a la
opción (1 ó 2). Este campo lo colocas como último campo del formulario.
El valor de este campo lo recoges al principio de todo
Cita: tipo = Request.Form("campohidden")
Dim Arr() ' Valores de todos los campos recibidos
For each campo in Request.Form
valCampos = valCampos & Request.Form(campo)
Next
Después en este bucle
Cita: for i = 0 to UBound(division)-1
Redim preserve Arr(i+1)
Arr(i) = Trim(division(i))
next
Por último, creas un bucle, dentro creas otro bucle y le indicas la iteración con el valor del campo hidden y la matriz Arr1 la haces bidimensional
Cita: Dim Arr1()
for n = 0 to valor
j = 0
for i = 0 to ubound(Arr)-1 step valor
if Arr(i) <> "" then
Redim preserve Arr1(n,j)
Arr1(n,j) = Arr(i)
j = j +1
end if
next
next 'n
Puede que funcione
Suerte