---
title: "Sortering efter Antal"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/62580-sortering-efter-antal"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Eam"
published: "2002-12-18T21:55:38.000Z"
updated: "2002-12-18T22:18:55.000Z"
replies: 2
views: 222
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/62580-sortering-efter-antal"
---

# Sortering efter Antal

## #1 — Eam, 2002-12-18T21:55Z

Denna funktion skall räkna hur många gången av 54 ett namn "nick" förekommer i en databas. Så här ser koden ut. 

Nu har jag så den skriver Ut: 

Nickname - Procent av 54 - Antal av 54

Och den skall sortera efter Antal eller Procent Nu sorterar den efter Nick (a-z). 

Hur skall Order By kommandot se ut?

Set ConnObj = SErver.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
ConnObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../lost.mdb")
SQL = "Select distinct (Nick) from lost"
Set Rs = ConnObj.Execute(SQL)
Do Until Rs.EOF %\>
                    
\<% CountSQL = "Select Count(\*) AS nCount from lost Where Nick = '"& Rs("Nick") &"'"
	
Set antal = ConnObj.Execute(CountSQL)
	Do Until antal.EOF %\>

                      \<%Response.write Rs("Nick") %\> 

                      \<% Procent = antal("nCount")/54\*100 %\>
                      \<% =round(Procent,2) %\>
                      \<% Response.write antal("nCount") %\>

                  \<% 
	antal.MoveNext
	Loop
	
Rs.MoveNext
Loop
ConnObj.Close 
%\>

Tack på förhand !!

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

## #2 — LarsG, 2002-12-18T22:12Z

Varifrån kommer 54?

```
Set ConnObj = SErver.CreateObject("ADODB.Connection")

ConnObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../lost.mdb")
SQL = "Select count(*) as nCount,nick from lost group by nick order by 1 desc"
Set Rs = ConnObj.Execute(SQL)
Do Until Rs.EOF

Response.write Rs("Nick")
Procent = rs("nCount")/54*100 
response.write round(Procent,2) 
Response.write rs("nCount") 

rs.MoveNext
Loop
ConnObj.Close
%>
```

Frågan kommer att för varje nick returnera antalet förekomster sorterat så de nick som har flest förekomster kommer först.

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

## #3 — Eam, 2002-12-18T22:18Z

Tack så mycket för hjälpen. 

54 är bara där. :birp

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/62580-sortering-efter-antal