---
title: "Paging Igen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/117997-paging-igen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Nicklas"
published: "2004-12-14T08:58:48.000Z"
updated: "2004-12-14T08:58:48.000Z"
replies: 0
views: 182
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/117997-paging-igen"
---

# Paging Igen

## #1 — Nicklas, 2004-12-14T08:58Z

Hej

Finns de någon vänlig själ som har lust att titta på detta paging script.

Jag vill få Respons.Write strängen (intTemp) att skriva ut 1-10 på varje sida för att sedan på nästa sida skriva ut 11-20 osv osv.

Som det är nu skriver strängen ut 10 st 1:or och nästa sida 10 st 2:or osv.

```
<%@ Language=VBScript%>

<%
Dim intPage
Dim rst
Dim query
Dim i
Dim intPageSize
Dim strPage
Dim intTotalPages

strPage = Request.ServerVariables("SCRIPT_NAME")
intPageSize = 10
i = 1

intTemp = Request.QueryString("page")

intPage = Request.QueryString("page")
    If Len("" & intPage) = 0 OR Not IsNumeric(intPage) Then intPage = 1
    
Set databas = Server.CreateObject("ADODB.Connection")
databas.Open "provider=SQLOLEDB ;Data source=BHSN43;Initial Catalog=mediainfo;user id=mmuser; password=mmuser"

query = "SELECT * FROM Loggbok ORDER BY LogID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
        rs.ActiveConnection = databas
        rs.CursorLocation = 3
        rs.PageSize = intPageSize
        rs.Open query,,1,3
        rs.AbsolutePage = intPage
        intTotalPages = rs.PageCount
        rs.ActiveConnection = Nothing

Do While Not rs.EOF AND CLng(i) <= CLng(intPageSize)

	Response.Write "<a href=""index.asp?page2=" & intTemp &""">" & intTemp & "</a><BR>"
	
	rs.MoveNext
    i = i + 1
        Loop

Response.Write("<p>")

If CLng(intPage) > 1 Then
    Response.Write("<a href=""" & strPage & "?page=" & intPage - 1 & """>Föregående</a> | ")
End If

If Clng(intPage) < CLng(intTotalPages) Then
    Response.Write("<a href=""" & strPage & "?page=" & intPage + 1 & """>Nästa</a>")
End If

Set rs = NOthing
    databas.Close
Set databas = Nothing

%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/117997-paging-igen