---
title: "Webstudios gästbok"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7524-webstudios-gästbok"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bj"
published: "2000-12-26T22:10:00.000Z"
updated: "2000-12-28T22:33:00.000Z"
replies: 1
views: 173
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/7524-webstudios-gästbok"
---

# Webstudios gästbok

## #1 — Bj, 2000-12-26T22:10Z

Har följt webstudios kurs i tre delar av en gästbok. Gjort i ordning det hela efter mitt eget tycke och smak men saknar en funktion.
Finns det något sätt att modifiera koden så den visar t.ex 5 inlägg i taget och en "nästa" och "föregående" -länk?

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

## #2 — PelleJ, 2000-12-28T22:33Z

Nu har jag inte läst hans kurs men principen jag använder på mina sidor är följande:

Förutsättningar: En SQL-sats som tar ut alla posterna:

rst.Open sql, con, 3, 3 , openType	
	
	rst.pagesize = maxrows			' sätter varje block till x records
	pages = rst.pagecount			' hur många sidor får vi 
	pageid = request("pageid"): if pageid = "" then pageid = 1

if pages \> 1 then
		rst.absolutepage = pageid		' börjar på block page_id
		' bygger navigeringsbar för flera sidor
		
		if searchtext \<\> "" then stext = "&searchtext=" & server.urlencode(searchtext)
		
		' visar 2 sidor före och efter (specialare)..
		DrawNavBar = "\<b\> "
		for a = 1 to pages
			if a \> pageid - 3 then
		   		if pageid + 3 \> a then
	  				DrawNavBar = DrawNavbar & "\<a href=" & chr(34) & "maintips7.asp?grp=" & grp & "&subj=" & subj & "&oid=" & usertipsid & "&action=" & action & stext & "&pageid=" & a & chr(34) & "\>" & a & "\</a\>&nbsp;"
	  			end if
  			end if
  		next
		DrawNavBar = DrawNavBar & "\</b\>"
		DrawNavBar = "navigering \[" & DrawNavBar & "\]"
		PageInfo = "Träffar: \<b\>" & rst.recordcount & "\</b\>  Sida: (\<b\>" & pageid & "/" & pages & "\</b\> )"
	else
		PageInfo = "Träffar: \<b\>" & rst.recordcount & "\</b\>"
		DrawNavbar = ""
	end if

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7524-webstudios-gästbok