---
title: "uppräkning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/93124-uppräkning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Frexuz"
published: "2003-12-20T13:43:36.000Z"
updated: "2003-12-20T22:29:49.000Z"
replies: 3
views: 247
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/93124-uppräkning"
---

# uppräkning

## #1 — Frexuz, 2003-12-20T13:43Z

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

sen kan det ju hända att 'Kristian' finns i alla kolumner, då ska man hoppa över den eftersom den redan ska vara räknad. alltså inga dubletter

Permalänk: https://www.webforum.nu/p/93124

## #2 — Sebbe, 2003-12-20T14:07Z

Kanske såhär?

```
strSQL = "SELECT DISTINCT namn FROM tabell ORDER BY namn"
Set objRS = objConn.Execute(strSQL)

If NOT objRS.EOF Then
  Do Until objRS.EOF
    intAntal = objConn.Execute("SELECT COUNT(*) FROM tabell WHERE namn = '" & objRS("namn") & "'")(0)
    Response.Write(objRS("namn") & " finns det " & intAntal & "st av.")
    objRS.MoveNext
  Loop
End If

Set objRS = Nothing
```

Permalänk: https://www.webforum.nu/p/1232120

## #3 — Frexuz, 2003-12-20T14:57Z

det fungerar nästan till 1 kolumn.. men jag har 3 :(

hur kan jag göra det utan att få dubletter

<http://frexuz.dyndns.org/sheepheads/stats.asp>

här ser ni hur det blir

Permalänk: https://www.webforum.nu/p/1232138

## #4 — Frexuz, 2003-12-20T22:29Z

\<%
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 :/

Permalänk: https://www.webforum.nu/p/1235305

---

Tråden på webben: https://www.webforum.nu/amne/asp/93124-uppräkning