Vis næste foto

set rsPrev = conn.execute("select id from picTabel where id<"& rs("id") &" order by id desc")
if not rsPrev.eof then response.write "<a href...>Prev</a>"

set rsNext = conn.execute("select id from picTabel where id>"& rs("id") &" order by id")
if not rsNext.eof then response.write "<a href...>Next</a>"

Genialt!! Mange tak... Troede ikke det kunne gøres så simpelt, men kan godt se det er noget nemmere end skal begynde at ligge til og fra id.. :-) Databaser er nu genialt..

Den kommer dog med en fejl når jeg prøver følgende:


<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM seneste where id=" & klikid
strDSN = "Provider=Microsoft.Jet.OleDb.4.0;Data Source="&Server.MapPath("/datadb/database.mdb")

rs.Open strSQL, strDSN, 1
%>

<%

set rsPrev = conn.execute("select id from seneste where id<"& rs("id") &" order by id desc")
if not rsPrev.eof then response.write "<a href...>Prev</a>"

set rsNext = conn.execute("select id from seneste  where id>"& rs("id") &" order by id")
if not rsNext.eof then response.write "<a href...>Next</a>"

%>

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/showpic.asp, line 44

(Det er linjen hvor set rsPrev osv. er)

Du bruger ikke et connection objekt, så koden skal være sådan i stedet:

Set rsPrev = Server.CreateObject("ADODB.RecordSet")
rsPrev.Open "select id from seneste where id<"& rs("id") &" order by id desc", strDSN, 1
if not rsPrev.eof then response.write "<a href...>Prev</a>"

Set rsNext = Server.CreateObject("ADODB.RecordSet")
rsNext.Open "select id from seneste  where id>"& rs("id") &" order by id", strDSN, 1
if not rsNext.eof then response.write "<a href...>Next</a>"

Okay super.
Jeg er lidt i tvivl om hvordan jeg skal håndterer linket til "Prev" og "Next"... Den skal vel vise næste side med et nyt ID eller hvad gør man?
Hvis siden hedder: http://www.hyggestedet.dk/billedersjove.asp?id=1431 skal jeg så ikke have id til at stige med en variabel eller hvordan?

Det kunne jo være at ID'et var blevet slettet. Men vi har allerede valgt det næste/forrige billed med selecten, og derfor har vi også ID'et:

rsPrev.Open "select id from seneste where id<"& rs("id") &" order by id desc", strDSN, 1
if not rsPrev.eof then response.write "<a href=""billedersjove.asp?id="& rsPrev("id") &""">Prev</a>"

Kanon.... Det virker bare... Jeg siger mange tak... Og jeg skylder dig en lakridspibe! ;-)
Men du kan jo lige starte med at sende svar... Og god weekend.. :-)