Arrays en ASP (VBS)

[Atonovich]

Pues mira yo tenìa un problema similar y lo solucione con este script:
<%
Dim k
Dim giros()


set registro_array = server.createobject("adodb.recordset")
sql="select * from productos order by des_producto asc"

registro_array.open sql,conn,1,3

if registro_array.eof then
k=0
else
k=Int(registro_array.recordcount-1)

ReDim giros(k)

contador=0
do until registro_array.eof
sujeto=registro_array.Fields("des_producto")
giros(contador)=sujeto
contador=contador+1
registro_array.movenext
loop

end if
%>
Donde redimensionas tu array y es totalmente dinàmico