---
title: "Paging problem :) kod finns"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/112014-paging-problem-kod-finns"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "znyder"
published: "2004-09-20T21:30:22.000Z"
updated: "2004-09-23T11:13:26.000Z"
replies: 2
views: 212
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/112014-paging-problem-kod-finns"
---

# Paging problem :) kod finns

## #1 — znyder, 2004-09-20T21:30Z

```
<%
Dim objConn, strSQL, objRS, intPage, intCount

If Request.QueryString("pg") = "" OR IsNumeric(Request.QueryString("pg")) = False Then
  intPage = 1
Else
  intPage = Int(CInt(Request.QueryString("pg")))
End If

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/listmygames.mdb")

strSQL = "SELECT * FROM forum WHERE sektion=" & Request.QueryString("sektion") & " AND forums_typ='topic' ORDER BY nyaste_tid DESC"

'response.write strSQL

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 1, 3

With objRS
  .AbsolutePage = intPage
  .PageSize = 1
End With

If objRS.EOF Then
  Response.Write("Det finns inga poster...</TABLE>")
Else
  Do Until objRS.EOF OR intCount = objRS.PageSize
    With Response
      .Write "<TR>"
      .Write "<TD HEIGHT=""40"" BGCOLOR=""" & color7 & """ ALIGN=""center""><IMG SRC=""bilder/icoTOPIC.gif""></TD>"
      .Write "<TD HEIGHT=""40"" BGCOLOR=""" & color7 & """><FONT SIZE=""1""><IMG SRC=""bilder/inv.gif""> <A HREF=""forum.asp?sektion=" & Request.QueryString("sektion") & "&topic=" & objRs("ID") & """>" & addforum(objRs("titel")) & "</A></TD>"
      .Write "<TD HEIGHT=""40"" BGCOLOR=""" & color7 & """><FONT SIZE=""1""><IMG SRC=""bilder/inv.gif""> <A HREF=""profil.asp?anv_namn=" & objRs("skapad_anv") & """>" & objRs("skapad_anv") & "</A></TD>"
      .Write "<TD HEIGHT=""40"" BGCOLOR=""" & color7 & """ ALIGN=""center""><FONT SIZE=""1""> " & objRs("svar") & "</TD>"
      .Write "<TD HEIGHT=""40"" BGCOLOR=""" & color7 & """ ALIGN=""center""><FONT SIZE=""1""> " & objRs("besok") & "</TD>"

      tid = Left(Right(objRs("nyaste_tid"),8),5)
      datum = Left(objRs("nyaste_tid"),10)
      manad = MonthName(Month(datum))
      manad = Left(manad, 3)
      manad = Ucase(Left(manad, 1)) & Right(manad,2) & "."
      dag = Day(datum)
      datum = dag & " " & manad & " " & tid

      .Write "<TD HEIGHT=""40"" BGCOLOR=""" & color7 & """ ALIGN=""right""><FONT SIZE=""1""> " & datum & " <IMG SRC=""bilder/inv.gif""><BR><A HREF=""profil.asp?anv_namn=" & objRs("nyaste_anv") & """>" & objRs("nyaste_anv") & "</A> <IMG SRC=""bilder/inv.gif""></TD>"
      .Write "</TR>"
    End With
    objRS.MoveNext
    intCount = intCount + 1
  Loop

Response.Write "</TABLE><P>"

  If objRS.PageCount > 1 Then
    If intPage > 1 Then
      Response.Write("<a href=""forum.asp?sektion=" & Request.QueryString("sektion") & "&pg=1"">&lt;&lt;</a> ")
      Response.Write("<a href=""forum.asp?sektion=" & Request.QueryString("sektion") & "&pg=" & intPage - 1 & """>&lt;</a> ")
    Else
      Response.Write("&lt;&lt; ")
      Response.Write("&lt; ")
    End If

    For i = 1 To objRS.PageCount
      If i <> intPage Then
        Response.Write("<a href=""forum.asp?sektion=" & Request.QueryString("sektion") & "&pg=" & i & """>" & i & "</a> ")
      Else
        Response.Write(i & " ")
      End If
    Next

    If intPage < objRS.PageCount Then
      Response.Write("<a href=""forum.asp?sektion=" & Request.QueryString("sektion") & "&pg=" & intPage + 1 & """>&gt;</a> ")
      Response.Write("<a href=""forum.asp?sektion=" & Request.QueryString("sektion") & "&pg=" & objRS.PageCount & """>&gt;&gt;</a> ")
    Else
      Response.Write("&gt; ")
      Response.Write("&gt;&gt; ")
    End If
  End If
End If

objRS.Close : Set objRS = Nothing
objConn.Close : Set objConn = Nothing
%>
```

 

Satte pagesize till 1 eftersom jag ville testa om det funka (har bara 3 posts i databas). Men nu kommer det fina problemet...

När jag trycker på 2 (Nästa sida) så kommer jag till forum.asp och där säger den att det inte finns några poster... Vad kan vara fel?? Tack på förhand :)

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

## #2 — Sebbe, 2004-09-21T18:42Z

Vad säger den om du lägger in With-satsen innanför If-satsen som kontrollerar om objRS är EOF?

```
...

If objRS.EOF Then
  Response.Write("Det finns inga poster...</TABLE>")
Else
  With objRS
    .AbsolutePage = intPage
    .PageSize = 1
  End With

  Do Until objRS.EOF OR intCount = objRS.PageSize
    ...
```

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

## #3 — znyder, 2004-09-23T11:13Z

Det funkade tyvärr inte :/
Så jag trashade den och kör med en annan istället :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/112014-paging-problem-kod-finns