Samle titler der er ens!!

Jeg har nogle output fra en db,  - men jeg vil gerne have samlet de navne der er ens! Men hvordan gør jeg?

Dette:

Hus >> tilbehør
Hus >> tilbehør
Hus >> andet

Hvor hus er (kategori) og tilbehør er (u_kategori)
 
Skal blive til dette:

Hus >> tilbehør(2)
Hus >> andet(1)

Jeg har lige skrevet sådan nu:

<% Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString
StrSql2 = "SELECT kategoriNavn FROM kategori WHERE kategoriId=" & objRec("Kategori") & " GROUP BY kategoriNavn"
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 FROM u_katagori WHERE id =" & objRec("u_kategoriId")
Set objRec3 = Conn3.Execute(StrSql3)
%>
<%=("<a onFocus=""this.blur()"" href=""seannonce.asp?id=" & objRec("id") & """>" & objRec3("u_kategoriNavn") & "</a>")%>
<%
objRec3.movenext()
Conn3.Close
Set Conn3 = Nothing
Set objRec3 = Nothing
%>