Hvordan samler jeg ens overskrifter?

Hej

Når jeg laver en søgning på min tabel annoncer, så finder jeg nogle data som udskrives. Måden de bliver udskrevet på er at der er et id som passer til en kategori og der er et andet id som passer til en underkategori.

Derfor bliver min data nu udskrevet sådan:

Kategori1 >> underkategori3
Kategori1 >> underkategori3
Kategori3 >> underkategori5
Kategori5 >> underkategori8

Men jeg vil gerne have skrevet det ud sådan at både de kategori og underkategorier der er ens, de skal udskrives sådan:

Kategori1 >> underkategori3 (2)
Kategori3 >> underkategori5 (1)
Kategori5 >> underkategori8 (1)


Sådan udskrives der lige nu fra tabellerne, men hvordan for jeg lavet sådan at det står som ovenfor????


<% Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString
StrSql2 = "SELECT kategoriNavn FROM kategori WHERE kategoriId=" &
objrec("Kategori")
Set objRec2 = Conn2.Execute(StrSql2)
%>
<%=objRec2("kategoriNavn")%>&nbsp;>>
<%
objRec2.movenext()
Conn2.Close
Set Conn2 = Nothing
Set objRec2 = Nothing
%><% Set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open ConString
StrSql3 = "SELECT u_kategoriNavn, Count(u_kategoriNavn) AS Antal FROM
u_katagori WHERE id =" & objRec("u_kategoriId") & " GROUP BY u_kategoriNavn"
Set objRec3 = Conn3.Execute(StrSql3)
%>
<%=("<a onFocus=""this.blur()"" href=""seannonce.asp?id=" & objRec("id") &
""">" & objRec3("u_kategoriNavn") & "</a> (" & objRec3("Antal") & ")")%>
<%
objRec3.movenext()
Conn3.Close
Set Conn3 = Nothing
Set objRec3 = Nothing
%>