---
title: "hjälp med antal"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9716-hjälp-med-antal"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jonfor"
published: "2001-05-25T17:40:00.000Z"
updated: "2001-05-25T18:09:00.000Z"
replies: 2
views: 147
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/9716-hjälp-med-antal"
---

# hjälp med antal

## #1 — jonfor, 2001-05-25T17:40Z

har ett dagbokssript som koden ser ut så här på:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\clean\dagbok\db\db.mdb"
%>

<%
antal = 0
numer = 1
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter ORDER BY Id DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
%>

<table border="0" width="98%" cellspacing="0">
<tr>
<td class="rubrik3" width="35%" bgcolor="#E10057"><b><%=RecSet("datum")%></b></td>
<td class="rubrik3" width="45%" bgcolor="#E10057"><b><%=left(RecSet("Rubrik"),30)%></b></td>
<td align="right" class="text" width="20%" bgcolor="#E10057">inlägg nr <%= numer %>
</tr>
<tr>
<td class="text" width="492" colspan="3"><%=doIt(RecSet("Meddelande"))%><br>
<B>Skrivet av en </b><%=left(RecSet("Namn"),30)%><b> fluffy.</B><BR><BR></td>
</tr>
</table>

<%	
antal = antal + 1
numer = antal + 1
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>

Det finns <%= antal %> ointressanta dagboks anteckningar inlagda.
```

som det är nu så får det nyaste inlägget nr 1 men jag vill ha så att det nyaste inlägget får det högsta nr istället för det lägsta.
Hur gör man?

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

## #2 — Tobbster, 2001-05-25T18:03Z

Jag har ändrat lite i din kod det borde funka så här.....

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\clean\dagbok\db\db.mdb"
%>
<%
antal = 0
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter ORDER BY Id DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
numer=RecSet.RecordCount
Do Until RecSet.EOF
%>

<table border="0" width="98%" cellspacing="0">
<tr>
<td class="rubrik3" width="35%" bgcolor="#E10057"><b><%=RecSet("datum")%></b></td>
<td class="rubrik3" width="45%" bgcolor="#E10057"><b><%=left(RecSet("Rubrik"),30)%></b></td>
<td align="right" class="text" width="20%" bgcolor="#E10057">inlägg nr <%=numer %>
</tr>
<tr>
<td class="text" width="492" colspan="3"><%=doIt(RecSet("Meddelande"))%><br>
<B>Skrivet av en </b><%=left(RecSet("Namn"),30)%><b> fluffy.</B><BR><BR></td>
</tr>
</table>

<%
antal = antal + 1
numer = numer - 1
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>

Det finns <%=antal %> ointressanta dagboks anteckningar inlagda.
```

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

## #3 — jonfor, 2001-05-25T18:09Z

man tackar man tackar!!
Funkar utmärkt! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9716-hjälp-med-antal