two dimension all array going awry

[struth]

A dynamic two dimension all array not quite working out.....



dim arrNewChoice

While Not RS.EOF

Select Case iChoice

Case 1
Response.Write(strChoice)
Case 2
Response.Write(strChoice)
Case 3
Response.Write(strChoice)

Case Else

Redim arrNewChoice(1,d)

arrNewChoice(0,d) = RS("choicePath")
arrNewChoice(1,d) = RS("choiceName")

Redim Preserve arrNewChoice(1,d)

d = clng(d)+1

End Select

RS.MoveNext
Wend

'writing out

Dim a

For a = 0 to UBound(arrNewChoice,2)

Response.Write(arrNewChoice(0,a) & arrNewChoice(1,a))

Next



If there were two 'case else' choices these appear as:

elsechoice 1 = --blank--
elsechoice 2 = new choice two

if three

elsechoice 1 = --blank--
elsechoice 2 = --blank--
elsechoice 3 = new choice three

So only the last array variable is being preserved. Where am I going wrong?


TIA

"Away from the actual ... everything is virtual"

 

[ChrisHirst]

Just a guess but it's probably because you redim twice in the loop, one without preserve

Chris.

Indifference will be the downfall of mankind, but who cares?
Woo Hoo! the cobblers kids get new shoes.
People Counting Systems

So long, and thanks for all the fish.

 

[struth]

Tried that but if I preserve the first redim it just gives me an error

"Away from the actual ... everything is virtual"

 

[ChrisHirst]

I can't see why you have two in the loop.

d will be 0 on first iteration anyway so the initial redim should be before the loop entry point

Chris.

Indifference will be the downfall of mankind, but who cares?
Woo Hoo! the cobblers kids get new shoes.
People Counting Systems

So long, and thanks for all the fish.

 

[tsuji]

>[tt]dim arrNewChoice[/tt]
Dynamic?
dim arrNewChoice[red]()[/red]

 

[struth]

Tried putting the redim before the initial loop entry but again it just gave me errors including 'out of range'

The arrNewChoice() made no difference to performance.

By the way, thanks for all your input.

"Away from the actual ... everything is virtual"

 

[tsuji]

>The arrNewChoice() made no difference to performance
You're arguing against language definition.

 

[struth]

>You're arguing against language definition.<
oops no sorry that came out wrong. Quite right - amended my script but it didn't make it work as I hoped.

>Just a guess but it's probably because you redim twice in the loop, one without preserve<
Found the way to make it work with just one redim preserve.


dim arrNewChoice()
dim d
d=0

While Not RS.EOF

Select Case iChoice

Case 1
Response.Write(strChoice)
Case 2
Response.Write(strChoice)
Case 3
Response.Write(strChoice)

Case Else

d = clng(d)+1

Redim arrNewChoice(1,d)

arrNewChoice(0,d-1) = RS("choicePath")
arrNewChoice(1,d-1) = RS("choiceName")


End Select

RS.MoveNext
Wend

'writing out

Dim a

For a = 0 to (UBound(arrNewChoice,2)-)

Response.Write(arrNewChoice(0,a) & arrNewChoice(1,a))

Next

Now works perfectly

again thanks.

&quot;Away from the actual ... everything is virtual&quot;

 

[struth]

sorry should have read ...

Dim a

For a = 0 to (UBound(arrNewChoice,2)-1)

Response.Write(arrNewChoice(0,a) & arrNewChoice(1,a))

Next

&quot;Away from the actual ... everything is virtual&quot;