Create dynamic array multi-dimension

[GeckoNewsgroup]

Hi,

When a try this script:

NbrAuteur = 19

Dim arrTestArray()
intSize = 0

1: For x = 0 to (nbrAuteur - 1)
2: ReDim Preserve arrTestArray(intSize,3)
3: arrTestArray(intSize,0) = objRS("prenom")
4: intSize = intSize + 1
5: objRS.movenext
6: Next

I have this msg error:

Microsoft VBScript runtime error '800a0009'
Subscript out of range
Line 2

 

[Ray at]

You can only redimension the last dimension of an array.

Redim preserve anArray(2,4,2,43,VariableNumber)

Ray at work