tæl og distinct

strSQL = "SELECT DISTINCT postnummer FROM dinTabel "
Set rs = Connect.Execute(strSQL)

Do While not rs.eof

  strSQL = "SELECT COUNT(*) as antal FROM dinTabel WHERE postNummer=" & rs("postnummer")
  Set rs2 = Connect.Execute(strSQL)

  Response.Write "Postnr.:" & rs("postnummer") & " Antal: " & Int(rs2("antal")) & "<br />"

  Set rs2 = Nothing

rs.MoveNext
Loop

Set rs = Nothing

Tak...svar ?

Svar.