G
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
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