Jag har en databas som jag hämtar nyheter från. Nu är det så att rubrikerna är uppradade och man klickar på den rubrik man vill läsa. Det resulteterar givet i att man kan läsa nyhten. NU är det så att jag vill att man skall kunna gå till föregående eller efterkommande artikel utan att behöva gå ut till översikten? Hur löser jag det? recset.next/recset.prev? Tack på förhand! Nån som har en kodsnutt för detta?

Om du använder dig av Recordset:

recset.movenext
recset.moveprevious
recset.movelast
recset.movefirst

Danke schön. prövar lyckan när jag kommer hem! =)

Du kan även lägga till en villkorssats som kontrollerar postpekaren om du försöker gå förlångt åt det ena eller det andra hållet.

If recset.BOF Then
recset.MoveFirst
Elseif recset.EOF Then
recset.MovePrevious
End If

Enklast är att lägga till två underfråger för att hämta deras id.
Här är ett exempel som visar hur man plockar fram posten som kommer före och efter:
<code>
<%
Dim NewsID

NewsID = Request.QueryString("NewsID")

strSQL = "SELECT *, " & _
" (SELECT Max(NewsID) FROM News WHERE NewsID < " & NewsID & ") As PreviousID, " & _
" (SELECT Min(NewsID) FROM News WHERE NewsID > " & NewsID & ") As NextID " & _
"FROM News " & _
"WHERE NewsID = " & NewsId

RecSet.Open strSQL, Connect

If RecSet.EOF Then
Response.Write "<H3>Post ej funnen!</H3><BR>" & vbCrLf
Else
Response.Write "<B>" & RecSet("NewsCaption") & "</B><BR>" & vbcrlf
Response.Write RecSet("NewsText") & "<BR>" & vbcrlf

If IsNull(RecSet("PreviousID")) Then
Response.Write "[Föregående saknas]"
Else
Response.Write "[Föregående post]"
End If

If IsNull(RecSet("NextID")) Then
Response.Write "[Efterkommande saknas]"
Else
Response.Write "[Efterkommande post]"
End If
End If
RecSet.Close
%>
</code>