---
title: "Dela upp i sidor...igen!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8377-dela-upp-i-sidor-igen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jörgen HP"
published: "2001-03-02T14:21:00.000Z"
updated: "2001-03-02T18:41:00.000Z"
replies: 3
views: 141
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/8377-dela-upp-i-sidor-igen"
---

# Dela upp i sidor...igen!

## #1 — Jörgen HP, 2001-03-02T14:21Z

Tjena listan!

Försökte använda ASP/ FAQ: ens kod att dela upp informationen från en DB i flera sidor med 10 poster på var sida. Har ca 80 poster i databasen, men den visar sida 1 av 1 och enbart 10 poster och då en länk till en sida 01.

Vad ska jag ändra för att dela upp alla poster? får inte rätt på det.

Mvh 

Jörgen

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

## #2 — Vide, 2001-03-02T14:34Z

halloj...

... visa lite kod på de relevanta delarna så kanske vi kan hjälpa... :)

Mvh, Vide

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

## #3 — jorgen, 2001-03-02T18:40Z

Hej!

Här är adressen till en provsida prestentationen ska ju snyggas till betydligt. Kod:

mvh
jörgen

\<table\>
\<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 10

SQL = "Select \* From gastbok order by Id"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.open SQL, "DSN=a.namn,lösenord"
If rstemp.EOF then
   Response.write "Där fanns det ju inget... " & sok
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs \< rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "CCCC99"
   Else
      color = "CCCC66"
   End If
   Response.write "\<tr bgcolor='" & color & "'\>\<td\>" & RStemp("Namn") & "\</td\>\</tr\>"

   rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rstemp.close
   Set rstemp = nothing
   %\>
   \<tr\>\<td\>\<hr\>\</td\>\</tr\>
   \<tr\>\<td\>\<p\>
   \<%
   If maxcount \<\> 0 then
   response.write "sida " & mypage & " av " & maxcount & "\<br\>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter \>= 10 then
      pad = ""
   End If
   ref = "\<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'\>" & pad & counter & "\</a\> "
   response.write ref & " "
   if counter mod 10 = 0 then
      response.write "\<br\>"
   End If
   Next
   End If
End If
%\>
\</td\>\</tr\>
\</table\>

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

## #4 — jorgen, 2001-03-02T18:41Z

Glömde klistra in länken:
 <http://checkit.nu/hundportalen/guestbookviewprov.asp> 

// Jörgen

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8377-dela-upp-i-sidor-igen