---
title: "Pagin function"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51736-pagin-function"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "snake_vbg"
published: "2002-08-30T11:43:05.000Z"
updated: "2002-08-30T13:49:43.000Z"
replies: 2
views: 216
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/51736-pagin-function"
---

# Pagin function

## #1 — snake_vbg, 2002-08-30T11:43Z

Tjenare 
Jag skall göra en sida där 30 medlemmar skall visas åt gången
men jag har inte hittat något bra pagin script etc.

nån här som har ett bra paginscript eller nån koll på hur man skall
skriva det

Tackar på förhand

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

## #2 — Jörgen HP, 2002-08-30T12:20Z

Ta en titt här:

<http://www.webforum.nu/forumdisplay.php?s=&forumid=148>

Där finns garanterat. :)

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

## #3 — SPinckney, 2002-08-30T13:49Z

Med Ado

```
<%@ Language=VBScript %>
<% Response.Buffer=true %> 

<HTML>
<HEAD>

</HEAD>
<BODY> 

<%
dim rs,i,strConn,strTemp
set rs=server.CreateObject("adodb.recordset") 

rs.CursorLocation=3 'clientside
rs.CursorType=3 'staticrecordset
rs.PageSize=100 

strConn="Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=tex.mdb" 

rs.Open "select * from authors",strConn 

Response.Write "<table><tr>"
for i=1 to rs.PageCount
Response.Write "<td><ahref=paging.asp?pg=" & i & ">" & i & "</a></td>"
next
Response.Write "</tr></table><br>" 

if Request.QueryString("pg")="" then
rs.AbsolutePage=1
For i=1 to 100
Response.Write rs.Fields("author") & "<br>"
rs.MoveNext
Next
else
rs.AbsolutePage=cint(Request.QueryString("pg"))
For i=1 to 100
Response.Write rs.Fields("author") & "<br>"
rs.MoveNext
Next
end if 

%> 

</BODY>
</HTML>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/51736-pagin-function