Vill kolla igenom 3 kolumner och räkna hur många namn av varje det finns

tex om första namnet är 'Kristian' kollar man hur många Kristian det finns i de 3 kolumnerna och gör en COUNT på dom, sen ta nästa namn i kolumnen

vill heller inte ha dubletter

<%
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/sheep.mdb")

strSQL = "SELECT map1,game FROM wars WHERE game = 'ctf' ORDER BY map1"
Set objRS = objConn.Execute(strSQL)

If NOT objRS.EOF Then
Do Until objRS.EOF
intAntal = objConn.Execute("SELECT COUNT(*) FROM wars WHERE map1 = '" & objRS("map1") & "'")(0)
Response.Write(objRS("map1") & " : " & intAntal & "<br>")
objRS.MoveNext
Loop
End If

Set objRS = Nothing
%>

nu blir det såhär:

tex Kristian finns 5 gånger i kolumnen

Kristian : 5
Kristian : 5
Kristian : 5
Kristian : 5
Kristian : 5
Andra namn : 3
Andra namn : 3
Andra namn : 3

vill inte ha dubletter...sen e koden bara för en kolumn. men jag har 3 :/