---
title: "Paging"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/115568-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "bluespot"
published: "2004-11-10T15:01:18.000Z"
updated: "2004-11-10T15:01:18.000Z"
replies: 0
views: 222
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/115568-paging"
---

# Paging

## #1 — bluespot, 2004-11-10T15:01Z

Skulle behöva lite hjälp med paging, koden kommer från dreamweaver.

Om jag är på sidan ett ska det se ut såhär:
1 (2) (3) osv, siffran 1 ska även vara färgad.

```
<%
Dim Kundreferens__MMColParam
Kundreferens__MMColParam = "1"
If (Request.QueryString("KundId") <> "") Then 
  Kundreferens__MMColParam = Request.QueryString("KundId")
End If
%>
<%
Dim Kundreferens
Dim Kundreferens_numRows

Set Kundreferens = Server.CreateObject("ADODB.Recordset")
Kundreferens.ActiveConnection = MM_fisk_STRING
Kundreferens.Source = "SELECT * FROM Referenser WHERE KundId = '" + Replace(Kundreferens__MMColParam, "'", "''") + "'"
Kundreferens.CursorType = 0
Kundreferens.CursorLocation = 2
Kundreferens.LockType = 1
Kundreferens.Open()

Kundreferens_numRows = 0
%>
```

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

---

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