---
title: "Räkna antalet poster..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13098-räkna-antalet-poster"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nisslass"
published: "2001-12-09T00:05:00.000Z"
updated: "2001-12-09T15:27:00.000Z"
replies: 6
views: 206
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/13098-räkna-antalet-poster"
---

# Räkna antalet poster...

## #1 — nisslass, 2001-12-09T00:05Z

Står säkert någonannanstans men hur räknar jag antalet "records" i denna kod?

```
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open Application("nyhetsdatabasen")
SQL = "SELECT top 4 * FROM Nyheter Order by Id Desc"
Set RS = Connection.Execute(SQL)
Do until RS.EOF 
id= rs("id")
rubrik = rs("rubrik")	

RS.MoveNext
Loop

OSV
```

Det fungerar med:?

```
set conn = server.createobject("adodb.connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("forum.mdb") & ";pwd=;"
sqlstmt = "SELECT * from bocker ORDER BY DateTime ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, conn, 3, 3
antalbocker = rs.recordcount
```

Men då måste jag göra dubbla anrop till databasen? Vill ha allt i samma kod.

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

## #2 — LarsG, 2001-12-09T00:09Z

```
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open Application("nyhetsdatabasen")
SQL = "SELECT top 4 * FROM Nyheter Order by Id Desc"
Set RS = Connection.Execute(SQL)
antalNyheter = 0
Do until RS.EOF 
id= rs("id")
rubrik = rs("rubrik") 
RS.MoveNext
antalNyheter = antalNyheter + 1
Loop
```

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

## #3 — nisslass, 2001-12-09T00:16Z

Men "TOP 4" alltså blir svaret antalNyheter = 4

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

## #4 — LarsG, 2001-12-09T00:22Z

Nej, det är ingen garanti att det blir 4 poster. Det kan bli fler eller färre.

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

## #5 — nisslass, 2001-12-09T00:26Z

Fick svaret 4 även fast jag har garanterat fler...

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

## #6 — nisslass, 2001-12-09T13:20Z

Någon som har ett förslag?!

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

## #7 — LarsG, 2001-12-09T15:27Z

Vill du ha totala antalet rader i tabellen men bara visa de 4 senaste?

Alternativ 1

```
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open Application("nyhetsdatabasen")
set rs = connection.execute("select count(*) from nyheter")
antalNyheter = rs(0)
rs.close
SQL = "SELECT top 4 * FROM Nyheter Order by Id Desc"
Set RS = Connection.Execute(SQL)
Do until RS.EOF 
id= rs("id")
rubrik = rs("rubrik") 
RS.MoveNext
Loop
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13098-räkna-antalet-poster