---
title: "Lista poster från databas del 2"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/81286-lista-poster-från-databas-del-2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Magic"
published: "2003-07-04T10:57:16.000Z"
updated: "2003-07-04T11:03:34.000Z"
replies: 2
views: 156
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/81286-lista-poster-från-databas-del-2"
---

# Lista poster från databas del 2

## #1 — Magic, 2003-07-04T10:57Z

Nu är jag här igen! Jag är nämligen lite otålig, så förlåt mig.

Här nedan ser du koden jag jobbar med för att lista mina poster i databasen. Problemet jag har är att alla poster kommer med. Det verkar inte som om variablerna får rätt värden och nu behöver jag hjälp med detta.

1\. Jag vill bara visa 20 poster. I loopen kör jag till EOF, vilket är rätt. Men jag vill ju bara visa 20 i taget. Hur bär jag mig åt?

2\. If-satsen för att "bläddra" till nästa och föregående se lite skum ut. Vad hamnar i variabeln "i" som ska leda till nästa? Den verkar alrig bli uppfylld.

Kan någon hygglig människa förklara vad felet är?

Här är koden i sin helhet:

```
<% 
strSQL = "SELECT * FROM medlem ORDER BY Enamn"
RecSet.PageSize = 20
RecSet.CursorLocation = 3
RecSet.CursorType = 3
RecSet.Open strSQL, Connect, 3

if not RecSet.EOF then
	if Request.QueryString("page")<>"" then
		RecSet.AbsolutePage = Request.QueryString("page")
	else
		RecSet.AbsolutePage = 1
	end if

	intPageNbr = RecSet.AbsolutePage
	intPageSize = RecSet.PageSize
else
	intPageNbr = 1
	intPageSize = 20
end if

'Response.Write(intPageNbr)

strSQL = "SELECT Count(*) AS antal FROM medlem"
set RecSetCounter = server.CreateObject("adodb.recordset")
RecSetCounter.Open strSQL, Connect
if not RecSetCounter.EOF then
	intCount = RecSetCounter("antal")
else
	intCount = 0
end if
RecSetCounter.Close
set RecSetCounter = nothing
%>
<div align="left" class="bread"> 
<%
    Do while not RecSet.EOF
       Response.Write "<p><a HREF='mailto:" & RecSet("Epost") & "'>" & RecSet("Enamn") & ", " & RecSet("Fnamn") & "</a><br><i>" & RecSet("Yrke") & "</i><br>" & RecSet("Adress") & "<br>" & RecSet("Postnr") & "  " & RecSet("Padress") & "<br>Tel bost " & RecSet("Bost") & ", Tel arb " & RecSet("Arb") & ", Tel mob " & RecSet("Mob") & ""
       RecSet.MoveNext
    Loop
%>
<%
if intPageNbr > 1 then
%>
<p>
<a href="medlem.asp?what=oversikt&open=yes&page=<%=intPageNbr-1%>">« Föregående</a>
<%
else
%>
<p>
«  Föregående
<%
end if
%>
 | 
<%
if i=intPageSize then	  
%>
<a href="medlem.asp?what=oversikt&open=yes&page=<%=intPageNbr+1%>">Nästa »</a>
<%
else
%>
Nästa »
<%
end if
%>
</div>
<% 
  RecSet.Close
%>
```

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

## #2 — ekke_t, 2003-07-04T10:59Z

kolla svaret i den andra tråden...

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

## #3 — Magic, 2003-07-04T11:03Z

Stort jäkla tack! Det fungerar jättebra!

Här är hela koden i sin helhet!

```
<% 
strSQL = "SELECT * FROM medlem ORDER BY Enamn"
RecSet.PageSize = 20
RecSet.CursorLocation = 3
RecSet.CursorType = 3
RecSet.Open strSQL, Connect, 3

if not RecSet.EOF then
	if Request.QueryString("page")<>"" then
		RecSet.AbsolutePage = Request.QueryString("page")
	else
		RecSet.AbsolutePage = 1
	end if

	intPageNbr = RecSet.AbsolutePage
	intPageSize = RecSet.PageSize
else
	intPageNbr = 1
	intPageSize = 20
end if

'Response.Write(intPageNbr)

strSQL = "SELECT Count(*) AS antal FROM medlem"
set RecSetCounter = server.CreateObject("adodb.recordset")
RecSetCounter.Open strSQL, Connect
if not RecSetCounter.EOF then
	intCount = RecSetCounter("antal")
else
	intCount = 0
end if
RecSetCounter.Close
set RecSetCounter = nothing
%>
<div align="left" class="bread"> 
<%
    i=0
	Do while not RecSet.EOF and i < intPageSize
	i=i+1
       Response.Write "<p><a HREF='mailto:" & RecSet("Epost") & "'>" & RecSet("Enamn") & ", " & RecSet("Fnamn") & "</a><br><i>" & RecSet("Yrke") & "</i><br>" & RecSet("Adress") & "<br>" & RecSet("Postnr") & "  " & RecSet("Padress") & "<br>Tel bost " & RecSet("Bost") & ", Tel arb " & RecSet("Arb") & ", Tel mob " & RecSet("Mob") & ""
       RecSet.MoveNext
    Loop
%>
<%
if intPageNbr > 1 then
%>
<p>
<a href="medlem.asp?what=oversikt&open=yes&page=<%=intPageNbr-1%>">« Föregående</a>
<%
else
%>
<p>
«  Föregående
<%
end if
%>
 | 
<%
if i=intPageSize then	  
%>
<a href="medlem.asp?what=oversikt&open=yes&page=<%=intPageNbr+1%>">Nästa »</a>
<%
else
%>
Nästa »
<%
end if
%>
</div>
<% 
  RecSet.Close
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/81286-lista-poster-från-databas-del-2