Kategori visning

Jeg har føglende:
rsKK.MoveFirst
do while not rsKK.EOF

    response.write rsKK.Fields("KompetenceKategori") & "<br>"

        rsK.MoveFirst
        do while not rsK.EOF
   
        if rsKK.Fields("KompetenceKategori") = rsK.Fields("KompetenceKategori") then
   
        response.write "<li>" & rsK.Fields("Kompetence") & "<br>"
   
        end if

        rsK.MoveNext
        loop

rsKK.MoveNext
loop

Som giver dette resultat:
Belysning
Bygningsintallationer
Datakommunikation (Bruger)
- Billedebehandling-AdobePhotoShop
- E-Mail-MicrosoftOutlook
Datakommunikation (IT-Sikkerhed)
Datakommunikation (Netværk)
Datakommunikation (Server)
Sporg

Jeg vil gerne havde at Kategorier som ikke har nogle emner ikke vises.