set RS = Server.CreateObject("ADODB.Recordset")
const adUseClient = 3
const adOpenKeyset = 1 ' Jeg mener det er hurtogere i dette tilfælde
sql = "SELECT * FROM NYHEDER ORDER BY Dato DESC"
RS.Open sql, conn, adOpenKeyset, adUseClient, &H0001 ' adCmdText
dim pos, returnid, forrige, naeste, valgte
' Find position for idnyhed i recordsettet
pos = -1
if not RS.EOF and RS("ID") = idnyhed then
pos = 0
else
pos = -1
do while not RS.EOF and RS("ID") <> idnyhed
pos = pos + 1
RS.MoveNext
loop
end if
' Sub der finder nyhed i henhold til position
sub CheckUdskriv(APos)
' Kontroller om næste og forrige nyhed ikke findes.
' Det sker når valgte nyhed (idnyhed) er den første eller sidste
if APos <> -1 and APos < RS.RecordCount then
RS.MoveFirst
if (APos > 0) then ' Må ikke Move -1 hvis første
RS.Move(APos)
end if
' Udskriv nyhed eller hvad der nu skal ske
returnid = rs("id")
else
returnid = -1
' Position findes ikke
end if
end sub
if idnyhed <> "" then
' Find position for idnyhed i recordsettet
if RS.EOF then
pos = -1 ' Ingen nyheder
else
pos = 0
do while not RS.EOF and RS("ID") <> CInt(idnyhed)
pos = pos + 1
RS.MoveNext
loop
end if
CheckUdskriv(pos + 1) ' Forrige nyhed
forrige = returnid
response.write "Forrige ID: " & forrige & "<br>"
CheckUdskriv(pos) ' Valgte nyhed
Valgte = returnid
response.write "Valgte ID: " & valgte & "<br>"
CheckUdskriv(pos - 1) ' Næste nyhed
naeste = returnid
response.write "Næste ID: " & naeste & "<br>"
end if ' til at finde en position i nyhedssættet
' Udskriv alle nyheder
RS.MoveFirst
do while not RS.EOF
response.write("<a href='sidste_nyt.asp?ID=" & RS("ID") & "'>" & RS("ID") & " " & RS(1) & " " & RS("dato") & "</a><br>")
RS.MoveNext
loop
%>
<a href='sidste_nyt.asp?id=<%=forrige%>'>Forrige</a> | <a href='sidste_nyt.asp?id=<%=naeste%>'>Næste</a>
<%
rs.close
set rs = nothing
%>
