Avanceret udtræk fra database? (paginering + rekursiv)

Hej alle!

Jeg har et langhåret spørgsmål, som jeg ikke kan løse selv.. Snøft.

Jeg vil lave en slags rekursiv funktion kombineret med en paging.

Databasen har følgende struktur:

=============================
Id, Relation, Content
=============================

Eksempel på databasen
Id        Relation    Content
1        0            Hello world..
2        0            RE: Hello world..
3        0            RE: Hello world..
4        0            RE: Hello world..
5        0            RE: Hello world..
6        0            RE: Hello world..
7        0            RE: Hello world..
8        0            RE: Hello world..
9        0            RE: Hello world..
10        0            RE: Hello world..

11        0            RE: World Hello..
12        11            RE: World Hello..
13        11            RE: World Hello..
14        11            RE: World Hello..
15        11            RE: World Hello..
16        11            RE: World Hello..


Det jeg så gerne vil gøre er at trække alle overskrifter ud med Relation = 0, for hver overskrift vil jeg have undersøgt om der er nogle børn (hvis så udskriv).
Så vidt så godt - det skal så kombineres med en paging, altså skal der kune udskrives 10 resultater pr. side.


Jeg har kigget lidt på JOIN og GROUP, men synes ikke jeg kan se løsningen for mig.

Er der nogle der er friske på et bud? :o)

Michael





UNDERSTÅENDE SCRIPT TRÆKKER HELT ALMINDELIGT UD MED PAGINERING..
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Comments Order By Id"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("demo.mdb")

rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then

  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
 
  Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
 
  Do While Not rs.EOF And intRecCount > 0
    Response.Write "<pre>" & rs("Id") & "/" & rs("Relation") & "<pre>"
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
 
End If

rs.Close
Set rs = Nothing

'-- Paginering
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=test.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=test.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=test.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>