---
title: "Paginproblem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/144894-paginproblem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tibunora"
published: "2006-04-01T17:51:04.000Z"
updated: "2006-04-01T17:51:04.000Z"
replies: 0
views: 268
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/144894-paginproblem"
---

# Paginproblem

## #1 — tibunora, 2006-04-01T17:51Z

Jag hittade en paginkod och jag får den nästan att fungera. Den räknar alla inlägg och visar hur många sidor det blir, problemet är när jag klickar på t ex sid 2 så visas det bara en tom sida (det är bara första sidan som fungerar)

  \<%
    'Här tar vi emot parametrar om vilken sida vi skall till. Om det inte finns någon destination skapar vi en genom att ange att sida ett skall visas
    intPageId = request.querystring( "pageid" )
	If intPageId = "" Then intPageId = 1

	With rs
  	 .cursorlocation = 3 'adUseClient
   	 .open SQL, objConn 'öppnar databasen och hämtar info.
  	 .pagesize = 2 'bestämmer hur många poster per sida.
  	 .absolutepage = intPageId 'bestämmer vilken sida som skall visas.
	End With

	intPages = cint( rs.pagecount ) 'Kollar hur många sidor som finns i recordsettet.
	intCurrentPost = 0 'Nollställer räknaren som skall hålla kolla på vilken post vi är på.

	Do While Not rs.EOF And intCurrentPost \< rs.PageSize
  	  strContents = strContents &\_
      "\<tr\>\<td width='15' align='center'\>\<img src='img/prick2.gif' width='7' height='7' align='absmiddle'\>\</td\>" &\_
      "\<td width='320' class='brodtext'\>\<a href='forumsv.asp?prat=svar&id="&rs("fldDiId")&"' class='menylankar'\>" & rs("fldDiRubrik") & "\</a\>\</td\>" &\_
      "\<td width='225' class='brodtext'\>" & rs("fldDiDatum") & " startad av " & rs("fldKonto") & "\</td\>\</tr\>"
	  intCurrentPost = intCurrentPost + 1
      rs.MoveNext
   Loop

   For i = 1 To rs.PageCount
  	 strNavigation = strNavigation & " \<a href='forumsv.asp?pageid=" & i & "' class='menylankar'\>" & i & "\</a\>"
   Next

	Response.Write "\<table width='560' border='0' cellpadding='3' cellspacing='0'\>" & strContents & "\</table\>"
	Response.Write "\<table\>\<tr\>\<td\>" & strNavigation & "\</td\>\</tr\>\</table\>" 

  %\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/144894-paginproblem