moveNext, movePrevious

granqvistMedlem sedan jan. 200412 inlägg

Frågan11 feb. 2004 00:10#1

SebbeMedlem sedan jan. 20032 285 inlägg

11 feb. 2004 09:54#2

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