Rekursiv Träd-Sub med Array

Försöker hämta till ett forum med GetRows och sedan jobba genom arrayen med denna lilla rekursiva funktion. Problemet är att den inte vill "stega bakåt", det blir bara
tråd
svar
svar på svar
...sen går den som sagt inte bakåt. Nån som ser någe fel? Mitt huvud värker.... ;)

	Sub Childs(intParent, intDepth, intIndent)
		For X = 0 To intDepth
			If arrRows(1,X) = intParent Then
				For Z = 0 To intIndent
					Response.Write("  ")
				Next
				Response.Write("<a href='zb_read.asp?id=" & arrRows(0,X) & "'>" & arrRows(2,X) & "</a><br>")
				Call Childs(arrRows(0,X), intDepth, intIndent + 1)
			End If
		Next
	End Sub

------------------
--// Mattias \\--
Portfolio
Prometheus

intDepth ökas väl aldrig på, eller?

Call Childs(arrRows(0,X), intDepth [b]+ 1[/b], intIndent + 1)

[r] ... och For X = 0 To intDepth, gör väl att den startar på samma ställe hela tiden.

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

[Redigerat av Pace den 07 feb 2002]

Nejdå, intDepth är antalet rader i arrayen och ska inte ändras, men jag löste det precis.
Det var bara att deklarera variablerna X och Z lokalt i suben istället. :r
Tack för hjälpen ändå, Pace! :)

------------------
--// Mattias \\--
Portfolio
Prometheus

[Redigerat av Prometheus den 08 feb 2002]