NEXT og PREVIOUS fra databasen

Du er faktisk nød til at lave to SQL opslag for at finde next og prvios netop som du skriver fordi man får huller i ID rækken..

'Fin næste ID
SQL = "SELECT TOP 1 ID FORM kontakt WHERE ID > " & SQLVal(kontaktID) & " ORDER BY ID ASC"
Set rs = Conn.Execute(SQL)
if rs.EOF then
  'Der er ikke nogen næste, så den sidste vises nu
  nextID = ""
else
  nextID = rs("ID")
end if
rs.Close
'Find forrige ID
SQL = "SELECT TOP 1 ID FORM kontakt WHERE ID < " & SQLVal(kontaktID) & " ORDER BY ID DESC"
Set rs = Conn.Execute(SQL)
if rs.EOF then
  'Der er ikke nogen forrige, så den føste vises nu
  prevID = ""
else
  prevID = rs("ID")
end if
rs.Close


Så har du ID på den sæte i nextID og den forrige i prevID. Hvis nextID er tom = "" så det den sidte som vise er prevID = "" så er det den første som vises.

TAK !!! :O) du får også point'ne fra i-går !!!

hhhmm var lige ved at se på overstående problem fordi jeg havde det sammen... løsning ser meget rigtigt ud men hvad er det at :
SQLVal(kontaktID)
skal gøre ?

Umiddeltbart laver den en ' om til to '' eller sikre kontaktID er et tal for undgå SQL fejl.

SQLVal er ikke defineret
SQLVal= ????

Det er en function eks

function SQLval (s)
  if s <> "" then SQLval = replace(s,"'","''")
end function

ikke helt med på hvad du siger...
men hvis jeg laver lidt om i det :
SQLval = Request.QueryString("id")
SQL = "SELECT TOP 1 ID FORM tabel WHERE ID > " & SQLVal & " ORDER BY ID ASC"

giver det nogen mening at gøre ? hvis jeg gør overstående kommer jeg forbi den fejl jeg havde... men så viser den fejl i linje:
Set rs = Conn.Execute(SQL)

Nå jeg kan se at det jeg skrev overstående virkede....
der var fejl i Set rs = Conn.Execute(SQL) fordi.... der skal stå "from" og ikke "form" i det allerførst indlæg

Ja det ser rigtigt ud.

;) ja FROM ikke FORM det var en smutter.