rekursiv funksjon

her har jeg prøvd meg på min første rekursive funksjon...og trenger litt hjelp


kodeeksempel...
Function Threads(intID)

  For m = 1 to Ubound(arrID)

    ' Hvis svar til det indlæg som funktionen er kaldt med

    If Cint(arrRE(m)) = Cint(intID) Then

      ' Tilføj til liste og kald funktionen for at undersøge for svar

if arrSU(m) = Request.Querystring("t") then
bbcl = "#008080"
else
bbcl = "#CCCCCC"
end if

      Threads = Threads & "<tr><td bgcolor="""&bbcl&"""><a href=""test.asp?t="& arrSU(m) &"&id="&arrID(m)&"&rid="& arrRE(m) &""">" & arrSU(m) & "</a></td></tr>" & Threads(arrID(m)) & "</tr>" 
    End If
Next


End Function

' Kald funktionen med alle hovedindlæg
Response.Write "<table border=""1"">"
Response.Write Threads(0)
Response.Write "</table>"


Her klarte jeg å legge opp at den som var trykket på skulle få en annen farge enn resten...men nå kommer det jeg ikke fikk til..
for det første...jeg vil at dess lengre ned i kategoriene/leddene skal det bli mindre skrift...fra 3 til 1...1.kategori har fiont size="3" i skrift....3 kategori har font size="1" i skrift...
hvordan skal jeg klare å få det til med dn koden?