rekursiv sub med array

Har en sub som ser ut ungefär så här:

sub getLoop( intId, indent )
	 Set Visa = Server.CreateObject("Webshop.Admin_Products")
	 categories = Visa.GetCatProdList(Session("Webshop"), intId)
	 Set Visa = Nothing
	 If Not IsNull(categories) Then
	 	For j = 0 To Ubound(categories,2)
			For k = 0 To indent
				'mellanrum
			Next
			
			Response.write categories(1,j)
			call getLoop( categories(0, j) , indent+1 )
		Next
	 End If
end sub

Problemet är att det visas bara en "tråd" med sub katergorier, dom andra försvinner

tråd
----sub1
---------sub1-1
----sub2

blir endast

tråd
----sub1
---------sub1-1

Förmodar att det är array'n som ställer till det, men hur ska jag lösa det?

vad menas med " ubound() "?

Ubound tar fram antalet i array'n

dvs
myArray(0)="hej"
myArray(1)="hej"
myArray(2)="hej"

så skulle Ubound(myArray) bli 3
Har jag starkt för mig :e

thnx..

Ursprungligen av aleborg **Ubound tar fram antalet i array'n

dvs
myArray(0)="hej"
myArray(1)="hej"
myArray(2)="hej"

så skulle Ubound(myArray) bli 3
Har jag starkt för mig :e**

Nej, Ubound anger sista indexet i en array, det vill säga att det hade resulterat i 2 i detta fallet. Notera att första indexet i en array är 0.

thnx igen..

Om du lägger till en

dim j,k

i din sub

?

Jag testade logiken och det fungerar som det skall tycker jag.

Du har rätt LarsG, Ubound ger sista indexet :r

Jag hade dimmat det redan i början av dokumentet, men när jag flyttade det till subben så fungerade allt som det skulle!

TACK :e