e quale sarebbe il problema? gli array si possono ridimensionare con REDIM

es

DIM a(0)

for i=1 to to 1000
REDIM PRESERVE a(i)
a(i)=i*2
next

for i=lbound(a) to ubound(a)
response.write a(i)
next