---
title: "Numrerad lista"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74108-numrerad-lista"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SannyW"
published: "2003-04-14T20:21:14.000Z"
updated: "2003-04-15T13:16:02.000Z"
replies: 7
views: 236
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/74108-numrerad-lista"
---
# Numrerad lista
## #1 — SannyW, 2003-04-14T20:21Z
Tjenixen,
Hur i hela världen löser man numrering när man hämtar posterna från databasen. Kör man med count på getrows() eller?
Ex.
1\. Nisse
2\. Johan
3\. Carl-Henrik
osv.
Hittar inte lösningen......
Någon som har lust att förklara?
Tack på förhand.
Permalänk: https://www.webforum.nu/p/74108
## #2 — SannyW, 2003-04-14T20:35Z
Ni kan glömma min förra fråga, men nu har jag en ny. Det var så enkelt så att man nästa skäms, men här kommer nästa.
Dax att skämas lite mer kanske..... :)
\<%=number%\> \<- vad är skillnaden -\> \<%=RecSet("Namn")%\>
\<%=number%\> E detta på grund av vb-scripten ?
Har någon lust att förklara lite snabbt, bara så att jag vet att det är rätt tråd jag håller i.
Tack på förhand.
Permalänk: https://www.webforum.nu/p/1010899
## #3 — KoTTeN, 2003-04-14T20:45Z
Båda skriver ut infromation
Den första \<%=number%\> skriver ut värdet från strängen med, ja samma namn, number.
\<%=RecSet("Namn")%\> RecSet är en databaskoppling och skriver alltså ut kolumnen Namn från en databas.
Permalänk: https://www.webforum.nu/p/1010906
## #4 — K@llen, 2003-04-14T20:46Z
\<%=number%\> skriver ut variabeln number.
\<%=RecSet("Namn")%\> skriver ut variabeln Namn från objektet RecSet.
Permalänk: https://www.webforum.nu/p/1010907
## #5 — SannyW, 2003-04-14T20:55Z
Tack för svaret, då är jag med.
Då dök det upp ett problem med min numrering ändå, har sidan kopplad till paging. Vilket gör att den startar om från 1-30 för sida 2 osv. Det vill jag absolute INTE!
Hur löser man det?
```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Recset = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Const perSida1 = 30
If Request.QueryString("page") = "" then
page = 1
Else
page = Request.QueryString("page")
End If
RecSet.CursorLocation = 3
RecSet.CacheSize = perSida1
SQL = "SELECT * From tabell Order By namn
Recset.Open SQL, Conn, 1, 2
number = 1
If RecSet.EOF Then%>
| |
Inget registrerat i databasen. |
<% Else
RecSet.MoveFirst
RecSet.PageSize = perSida1
TotalPages = RecSet.PageCount
RecSet.AbsolutePage = page
Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize
%>
| |
<%=number%>. |
<%=RecSet("Namn")%> |
<%=RecSet("lag")%> |
<%=RecSet("division")%> |
<%=RecSet("mal")%> |
|
 |
<%
Count = Count + 1
number = number + 1
Recset.MoveNext
Loop
Recset.Close
Conn.Close
Set Recset = Nothing
Set Conn = Nothing
End If
%>
```
Permalänk: https://www.webforum.nu/p/1010912
## #6 — LarsG, 2003-04-14T21:09Z
istf
```
number=1
```
ät
```
number = (page-1)*pagesize+1
```
Permalänk: https://www.webforum.nu/p/1010921
## #7 — SannyW, 2003-04-14T21:18Z
:)
Grym du e!!!!!!!!!!!!!!!
Tack LarsG.
Hmmm.....du eller någon annan kanske kan svara på en sak till. Går det att spara count så att om man sorterar om listan:
3\. Nisse
1\. Carl-Henrik
2\. Johan
```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Recset = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Const perSida1 = 30
If Request.QueryString("page") = "" then
page = 1
Else
page = Request.QueryString("page")
End If
RecSet.CursorLocation = 3
RecSet.CacheSize = perSida1
typ = Request.Querystring("typ")
select case typ
case "1" : strSort = typ & " ASC, namn ASC"
case "2" : strSort = typ & " ASC, namn ASC"
case "3" : strSort = typ & " ASC"
case "4" : strSort = typ & " DESC, namn ASC"
end select
SQL = "SELECT * From tabell Order By "& strSort
Recset.Open SQL, Conn, 1, 2
number = (page-1)*pagesize+1
If RecSet.EOF Then%>
| |
Inget registrerat i databasen. |
<% Else
RecSet.MoveFirst
RecSet.PageSize = perSida1
TotalPages = RecSet.PageCount
RecSet.AbsolutePage = page
Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize
%>
| |
<%=number%>. |
<%=RecSet("Namn")%> |
<%=RecSet("lag")%> |
<%=RecSet("division")%> |
<%=RecSet("mal")%> |
|
|
<%
Count = Count + 1
number = number + 1
Recset.MoveNext
Loop
Recset.Close
Conn.Close
Set Recset = Nothing
Set Conn = Nothing
End If
%>
| |
| |
|
|
| |
<%
If TotalPages <> 1 Then
If (Int(page)) <> 1 Then
%>
« Bakåt
<%Else%>
<%End If%>
<%
For Pages = 1 To TotalPages
%>
<%If (Int(Pages)) = (Int(page)) Then%>[<%=Pages%>] <%Else%><%=Pages%> <%End If%><%Next%>
<%End If%>
<%
If (Int(page)) <> (Int(TotalPages)) AND Count > 0 Then
%>
Framåt »
<%Else%>
<%End If%>
|
|
| |
|
|
```
Vill då att case 4 skall bestämma var nummer 1 skall finnas, går det att spara count så att de ligger kvar i de andra sorteringarna?
Hoppas du orkar........
Tack på förhand.
Permalänk: https://www.webforum.nu/p/1010930
## #8 — SannyW, 2003-04-15T13:16Z
Det går inte att behålla count, eller? Någon som vet?
Permalänk: https://www.webforum.nu/p/1014224
---
Tråden på webben: https://www.webforum.nu/amne/asp/74108-numrerad-lista