«

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

You can only redimension the last dimension of an array.

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

Ray at work

"GeckoNewsgroup" <> wrote in message
news:BC512DD7.838%...
> 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
>