Rekursion - hvilket niveau?

Hejsa
Jeg har en funktion som jeg bruger til at danne min menu med:
******************
Function tjekForUnderpunkter(idTemp)
For j = UBound(arCatIDs) to 0 Step - 1
  if (arParentIDs(j) = idTemp AND not arParentIDs(j) = 0) then
  Response.Write "-"
  Response.Write "<a href=""default.asp?catid="&arCatIDs(j)& "&parentId="& arParentIDs(j) &"""><nobr>"&arCatTitles(j)& "</nobr></a>"
  Response.Write "<br>"
  idTemp2 = arCatIDs(j)
  Call tjekForUnderpunkter(idTemp2)
  end if
Next
End Function
***************************

Linien Response.Write "-" skal sætte en - hver gang jeg går ét niveau ind, men hvordan dælen får jeg det til at virke? Jeg ved godt at som den står nu sker der ingenting, men jeg aner ikke hvordan jeg løser det.

Det skal gerne komme til at se således ud, ex:
**************
Hovedpunkt1
-Underpunkt1.10
-Underpunkt1.11
--underpunkt1.20
---underpunkt1.30
---underpunkt1.31
---underpunkt1.32
--underpunkt1.21
-Underpunkt1.12
-Underpunkt1.13
-Underpunkt1.14
Hovedpunkt2
Hovedpunkt3
Hovedpunkt4
********************

Det jeg har brug for at vide er, hvordan jeg finder frem til hvilket niveau, jeg er på i ovenstående eksempel vil en "niveautæller" skulle give

1,1,2,3,3,3,2,1,1,1

hver plads repræsenterer et kald til funktionen, hvordan styrer jeg om niveautæller skal være = niveautæller+1 eller = niveautæller - 1 ????

Er spørgsmålet klart nok?