---
title: "bläddring av recordset"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7059-bläddring-av-recordset"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "McMiller"
published: "2000-11-07T17:13:00.000Z"
updated: "2000-11-08T12:07:00.000Z"
replies: 3
views: 169
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/7059-bläddring-av-recordset"
---

# bläddring av recordset

## #1 — McMiller, 2000-11-07T17:13Z

Jag har ett litet problem med en kod som jag håller på att modifiera. den delar upp en tabell i flera sidor med 10 poster på varje sida. Den visar bara 10 poster på sidan som den ska men den lägger inga länkar till nya sidor som skapas om det blir mer än 10.
Kan nån hjälpa mig?

//McMiller

Här är koden:

\<% OPTION EXPLICIT %\>
\<!-- #include virtual="/jelly/adovbs.inc" --\> 
\<% 
	dim Connect
	dim Addera
	dim next_record_count
	dim the_start
	dim the_last
	dim RecSet
	dim rs

	if Request.QueryString("the_start") \<= 0 then
		the_start=1
	else
		the_start=Request.QueryString("the_start")+1
	end if	
    the_last=the_start + 9
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("/jelly/jellyn.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT \* FROM names where id between  "& the_start &" and "& the_last &" " 
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	 %\> 
\<form action=navigate.asp method=get name=frm1\>
	\<h2\> Paging Through Recordset \</h2\>
	\<TABLE WIDTH=50% BORDER=1 CELLSPACING=1 CELLPADDING=1\>
		\<TR\>
			\<td width=20%\>\<h4\>Employee ID \</h4\>\</td\>
			\<td width=30%\>\<h4\>First Name\</h4\>\</td\>
			\<td width=30%\>\<h4\>Last Name \</h4\>\</td\>
		\</TR\>
		\<TR\>
	\<%
		do until RecSet.EOF
			Response.Write "\<td\>" & RecSet("ID") & "\</td\>" 
			Response.Write	"\<td\>" & RecSet("Firstname") & "\</td\>"
			Response.Write "\<td\>" & RecSet("Lastname") & "\</td\>"
			Response.Write "\</TR\>"
			RecSet.MoveNext
		loop
		if the_start\>=11 then
			Response.Write "\<a href=" & "navigate.asp?the_start=" & the_start-6 & "\>" & "Föregående & "\</a\>" & "&nbsp&nbsp 10 poster" 
		end if
		Response.Write "&nbsp&nbsp&nbsp"
		if the_last \<= RecSet.RecordCount-1 then
			if (the_last + 9) \> RecSet.RecordCount then
				next_record_count = RecSet.RecordCount mod 10
				Response.Write "\<a href=" & "navigate.asp?the_start=" & the_last & "\>" & "Nästa" & "\</a\>" & "&nbsp&nbsp" & next_record_count & "poster" 
			else
				Response.Write "\<a href=" & "navigate.asp?the_start=" & the_last & "\>" & "Nästa" & "\</a\>" & "&nbsp&nbsp" &  "poster"	
			end if
		end if
	%\>
	\</TABLE\>
\</form\> 		
\<%	

	
	RecSet.Close

	connect.Close

%\>

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

## #2 — emission, 2000-11-07T18:00Z

I vår FAQ finns en väl fungerande version.

mvh

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

## #3 — McMiller, 2000-11-08T11:37Z

FAQ:n??? Där finns ju bara frågor om webforum. och jag hittade inte den under scripts heller. kanske missat den nånstans....

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

## #4 — Vide, 2000-11-08T12:07Z

FAQ:n för ASP, VBScript: <http://cgi.webforum.nu/wf/arkiv/asp_faq.html> 

Länken hittar du ganska långt upp när du kommer in till detta forum...

Mvh, Vide

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7059-bläddring-av-recordset