---
title: "moveNext, movePrevious"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/97078-movenext-moveprevious"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "granqvist"
published: "2004-02-11T00:10:22.000Z"
updated: "2004-02-11T09:54:55.000Z"
replies: 1
views: 225
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/97078-movenext-moveprevious"
---

# moveNext, movePrevious

## #1 — granqvist, 2004-02-11T00:10Z



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

## #2 — Sebbe, 2004-02-11T09:54Z

Du skulle kunna använda dig av vanlig paging, men det tycker jag är lite overkill för ändamålet. Testa det här, hinner inte testa själv.

```
<%
intID = Request.QueryString("id")

If NOT IsNumeric(intID) Then
  intID = ""
End If

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")

If intID = "" Then
  strSQL = "SELECT TOP 1 id FROM tabell ORDER BY id"
  intID = objConn.Execute(strSQL)(0)
End If

strSQL = "SELECT namn, bild, (SELECT TOP 1 id FROM tabell WHERE id > " & intID & " ORDER BY id), (SELECT TOP 1 id FROM tabell WHERE id < " & intID & " ORDER BY id DESC) FROM tabell WHERE id = " & intID
Set objRS = objConn.Execute(strSQL)

If NOT objRS.EOF Then
  Response.Write(objRS("namn") & "<br><img src=""" & objRS("bild") & """>")
End If

Response.Write("<br><a href=""?id=" & objRS(3) & """>Föregående</a> || <a href=""?id=" & objRS(2) & """>Nästa</a>")

objRS.Close : Set objRS = Nothing
objConn.Close : Set objConn = Nothing
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/97078-movenext-moveprevious