---
title: "Konstigt pagin fel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44551-konstigt-pagin-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "FIgg3"
published: "2002-05-25T22:08:58.000Z"
updated: "2002-05-26T15:54:30.000Z"
replies: 5
views: 243
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/44551-konstigt-pagin-fel"
---

# Konstigt pagin fel

## #1 — FIgg3, 2002-05-25T22:08Z

Hejsan...

Jag har stött på ett mycket konstigt problem må jag säga...

```
 <%
 file = Server.MapPath("book.mdb") 
 Set Connect = Server.CreateObject("ADODB.Connection") 
 Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file 

 Set RecSet = Server.CreateObject("ADODB.Recordset") 
 SQL = "SELECT * FROM book ORDER BY ID DESC" 
 RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 

' ####### - PAGIN SCRIPTET STARTAR HÄR - #######

RecSet.pagesize = 10
sida = Request.QueryString("sida") 

If sida = "" then sida = 1 

if RecSet.EOF then 
Response.write "Det finns inga poster att hämta i databasen" 
Else 

Do until RecSet.EOF or fldcounter = RecSet.pagesize 
fldcounter = fldcounter + 1 

RecSet.AbsolutePage = sida 
totalPages = RecSet.PageCount 

%>
                    <b><%=RecSet("Rubrik")%></b><br>
                    <%=RecSet("mess")%><br>
                    <%=RecSet("namn")%> 
                    <%If RecSet("hemsida") = "" then 
Response.write " - H"
ElseIf RecSet("hemsida") = "http://" then 
response.write " - H"
Else
%>
                    - <a href="<%=RecSet("hemsida")%>" target="_blank">H</a> 
                    <%End If%>
                    <%If RecSet("mail") = "" then 
Response.write " - M"
ElseIf RecSet("mail") = "@" then 
response.write " - M"
Else
%>
                    - <a href="mailto:<%=RecSet("mail")%>"> M</a> 
                    <%End If%>
                    - <%=RecSet("datum")%> <br>
                    <br>
<%
RecSet.MoveNext 
Loop 
End If
 %>

                    </font><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">br>
                    </font></p>
                  <p>&nbsp;</p>
                  </div>
              </td>
            </tr>
          </table>
        </td>
      </tr>
      <tr> 
        <td><img src="down.gif" width="264" height="6"></td>
      </tr>
      <tr> 
        <td>&nbsp;</td>
      </tr>
      <tr> 
        <td> <img src="top.gif"></td>
      </tr>
      <tr> 
        <td background="tb_bg.gif"> 
          <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center" height="16">
            <tr> 
              <td><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">

<%
Response.write "<a href=book.asp?sida=1>Första sidan</a> &nbsp;" 

i = 0 
For i = 1 to RecSet.PageCount 
Response.write "<a href=book.asp?sida="& i &">"& i &"</a> &nbsp;" 
Next 

Response.write "<a href=book.asp?sida="& totalPages &">Sista sidan</a>" 

RecSet.Close 
Set RecSet = Nothing 
Connect.close 

%>
```

Denna koden fungera bra så länge pagesize är 1 men sätter man det till två t.ex så vissas samma inlägga två gånger och inte två olika, byttar man sida så är det samma där fast med ett nytt inlägg... är det någon som kan hitta vad jag har gjort fel tro?

Mvh

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

## #2 — FIgg3, 2002-05-25T23:03Z

Ingen?

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

## #3 — trexter.com, 2002-05-26T07:03Z

Förstår inte! Det finns ju ingen variabel som heter Pagesize den heter ju Recset.Pagesize.. sen så förstår jag inte vad du snackar om när du säger att det fungerar då den är ställd till 1... 

Du har ju deklarerat den som 10!
 :)

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

## #4 — FIgg3, 2002-05-26T08:41Z

Jag menar Recset.Pagesize men jag skrev bara pagesize....
Och ja den är ställd på 10 för att jag testade scriptet först när det var ställt till 1 sedan ställde jag det till 10 och då funkar det inte och nu står 10 kvar....

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

## #5 — LarsG, 2002-05-26T13:12Z

Flytta dessa rader

```
RecSet.AbsolutePage = sida 
totalPages = RecSet.PageCount
```

så att de ligger innan din do-loop börjar

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

## #6 — FIgg3, 2002-05-26T15:54Z

Tack larsG det funkar nu...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/44551-konstigt-pagin-fel