ReDim Problem

[Wayne Wengert]

I am trying to add one column to an existing array (code below). The ReDim
command gives the error:
-----------------------------------------------
Microsoft VBScript runtime error '800a0009'

Subscript out of range

/ListCGShowsGrou ped.asp, line 58

------------------------------------------------

The Response.Write shows that the array has 9 rows and 3 cols (it displays 8
and 2) before the redim and I want a 9 x 4 after the redim.

What am I doing wrong here?

============ Code ===============

........
aryShows = myRS.GetRows
intRows = Ubound(aryShows ,2)
intCols = Ubound(aryShows ,1)
MyRS.Close

Response.Write( "Rows: " & introws & " - Cols: " & intcols & "<br>")
Redim Preserve aryShows(intCol s + 1, introws)
--
------------------------------------
Wayne Wengert
wa***@wengert.o rg

[Chris Barber]

You can only redimension the last dimension of an array.

<quote source="google search">
When using multi dimensional arrays, it is only possible to redim the last
dimension.

Say you array looks like this:

Dim myArr()
Redim myArr(5,5)

You will be able to do

Redim myArr(5,10)

But you won't be able to do

Redim myArr(10,5)

This behaviour is by design, so you can't get around it...
</quote>

Hope this helps (or not of course).

Chris.

"Wayne Wengert" <wa********@wen gert.com> wrote in message
news:uR******** ******@tk2msftn gp13.phx.gbl...
I am trying to add one column to an existing array (code below). The ReDim
command gives the error:
-----------------------------------------------
Microsoft VBScript runtime error '800a0009'

Subscript out of range

/ListCGShowsGrou ped.asp, line 58

------------------------------------------------

The Response.Write shows that the array has 9 rows and 3 cols (it displays 8
and 2) before the redim and I want a 9 x 4 after the redim.

What am I doing wrong here?

============ Code ===============

........
aryShows = myRS.GetRows
intRows = Ubound(aryShows ,2)
intCols = Ubound(aryShows ,1)
MyRS.Close

Response.Write( "Rows: " & introws & " - Cols: " & intcols & "<br>")
Redim Preserve aryShows(intCol s + 1, introws)
--
------------------------------------
Wayne Wengert
wa***@wengert.o rg

[Wayne Wengert]

Thanks Chris. Now that you remind me of that I do remember reading that
before - I forgot about that (senility!). Oh well, I'll do it the hard way.

Wayne

"Chris Barber" <ch***@blue-canoe.co.uk.NOS PAM> wrote in message
news:u2******** ******@TK2MSFTN GP10.phx.gbl...

You can only redimension the last dimension of an array.

<quote source="google search">
When using multi dimensional arrays, it is only possible to redim the last
dimension.

Say you array looks like this:

Dim myArr()
Redim myArr(5,5)

You will be able to do

Redim myArr(5,10)

But you won't be able to do

Redim myArr(10,5)

This behaviour is by design, so you can't get around it...
</quote>

Hope this helps (or not of course).

Chris.

"Wayne Wengert" <wa********@wen gert.com> wrote in message
news:uR******** ******@tk2msftn gp13.phx.gbl...
I am trying to add one column to an existing array (code below). The ReDim
command gives the error:
-----------------------------------------------
Microsoft VBScript runtime error '800a0009'

Subscript out of range

/ListCGShowsGrou ped.asp, line 58

------------------------------------------------

The Response.Write shows that the array has 9 rows and 3 cols (it displays 8 and 2) before the redim and I want a 9 x 4 after the redim.

What am I doing wrong here?

============ Code ===============

.......
aryShows = myRS.GetRows
intRows = Ubound(aryShows ,2)
intCols = Ubound(aryShows ,1)
MyRS.Close

Response.Write( "Rows: " & introws & " - Cols: " & intcols & "<br>")
Redim Preserve aryShows(intCol s + 1, introws)
--
------------------------------------
Wayne Wengert
wa***@wengert.o rg