Problem med Child kode.

Jeg har lavet denne kode, som også virker udenmærket, men men jeg har et lille problem.
Hvis et parrent indlæg er gammelt vises childet ikke, hvilket jo er et problem, da child indlæget ikke er for gammelt.

Det kan godt være at det er fordi at det er for sent nu til aften, men er der nogen der har nogen konkrete kode forslage, eller ideer til hvad jeg kan gøre?

hvor hvordan jeg skal liste indlægene.

Det skal lige siges at koden er til et fora.

koden er:
Function child(id, niv, kat, old)
    For i=0 to niv-1
        str_mellemrum = str_mellemrum &"    "
    next
    if not (newdays<>"") then
        newdays = 14
    end if
    SQL = "SELECT indlaeg.id, indlaeg.titel, indlaeg.dato As da2, Format$([indlaeg.dato],'\d\. dd/mm/yyyy kl. hh:mm') AS FormDate, brugere.navn FROM indlaeg INNER JOIN brugere ON indlaeg.af = brugere.id WHERE indlaeg.parrent="&id &" AND gammelt="& old
    if (kat <> 0) then
        SQL = SQL &" AND kat = "& kat
    end if
    if (id = 0) then
        SQL = SQL &" ORDER BY indlaeg.id DESC"
    else
        SQL = SQL &" ORDER BY indlaeg.id ASC"
    end if
    set rs_child = conn.execute(sql)
    Do While not (rs_child.BOF or rs_child.EOF)
        if niv = 0 then
            response.write("<tr bgcolor=""#f0f0f0"">"&VbCrLf&"<td>"&VbCrLf)
        end if
        response.write(str_mellemrum)
        response.write("<a href=""sepost.asp?id="&rs_child("id")&""">")
        response.write rs_child("titel")
        response.write("</a> ")
        response.write(" af ")
        response.write("<i>"& rs_child("navn")&" </i>")
        response.write( rs_child("Formdate") &"")

        if (datediff("d", rs_child("da2"), date()) < newdays) then
            response.write(" <font color=""RED""><b>NY</b></font>")
        end if
        response.write("<br>"&vbCrlf)

        child rs_child("id"), (niv+1), kat, old
        if niv = 0 then
            response.write("</td>"&VbCrLf&"</tr>"&VbCrLf)
        end if
        rs_child.movenext
    loop

end function

mvh
Christian