Træstruktur ved visning af meddelelser

Jeg er ved at lave en side der kan vise meddelelser fra nyhedsgrupper, som gemmes i en database. I den forbindelse skal jeg bruge noget kode som kan finde ud af hvilke meddelelser der er svar på andre meddelelser og hvilke meddelelser de er svar på. Måden hvorved jeg angiver hvilken meddelelse der er svaret på er vha. feltet parentid, hvor der står nummeret svarende til det id (autonummerering), den meddelelsee der er blevet svaret på.

Her er den kode jeg umiddelbart kunne komme frem til, men jeg synes at den virker en anelse langsom. Findes der en hurtigere/smartere måde?

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn_news

Set objRS = Server.CreateObject("ADODB.Recordset")
strQ = "SELECT * FROM messages"
objRS.Open strQ, strConn_news

While not objRS.EOF
    Conn.Execute "UPDATE messages SET parentid=" & objRS("id") & " WHERE not IsNull(References) and References <> '' and References <> ' ' and References LIKE '" & objRS("messageID") & "%'"

    objRS.MoveNext
Wend

objRS.Close
Set objRS = Nothing

Conn.Close
Set Conn = Nothing

Lige for at illustrere opbygningen i databasen:
id  parentid  subject
1  0  En ny meddelelse
2  1  Re: Svar på meddeelse 1
3  2  Re: Svar på meddelelse 2
4  1  Re: Svar på meddelelse 1