---
title: "Rekursiv Träd-Sub med Array"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14275-rekursiv-träd-sub-med-array"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Prometheus"
published: "2002-02-07T22:29:00.000Z"
updated: "2002-02-07T23:19:00.000Z"
replies: 2
views: 272
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/14275-rekursiv-träd-sub-med-array"
---

# Rekursiv Träd-Sub med Array

## #1 — Prometheus, 2002-02-07T22:29Z

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

Permalänk: https://www.webforum.nu/p/14275

## #2 — Pace, 2002-02-07T22:34Z

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.

Permalänk: https://www.webforum.nu/p/309754

## #3 — Prometheus, 2002-02-07T23:19Z

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! :)

Permalänk: https://www.webforum.nu/p/309755

---

Tråden på webben: https://www.webforum.nu/amne/asp/14275-rekursiv-träd-sub-med-array