">Efterkommande

Funkar inte! =(

Är tänkt att ID skall hoppa till efterkommande värde i databasen. Om den stor på inlägg 1556, så vill ja att nästkommande skall komma. Om jag tagit bort en inlägg kan det vara så att ID 1555 saknas, därför vill jag att den skall hoppa till efterföljande, i mitt exempel 1554!

hmm...ge en rubrik som innehåller innehållet i frågan..många ignorerar inlägg med konstiga rubriker...

/bj

Recset.Movenext("id")????

Svara människan istället pojkar!

Recset.MoveNext

Kanske inte snyggaste lösningen. Men den funkar. ;O)
<code>
<%
If Request.QueryString("nyheter") = "visa" Then
Visa = "SELECT * FROM nyheter WHERE ID = " & Request.QueryString("ID") & " "
RecSet.Open Visa, Connect

%><P>
<% =RecSet("rubrik") %><BR>
<% =RecSet("text") %><BR>
<% RecSet.Close %>
Tillbaka till ÖVERSIKT.
<%
Visa = "SELECT Max(ID) AS ID FROM nyheter WHERE ID < " & Request.QueryString("ID")
RecSet.Open Visa, Connect

If IsNumeric(RecSet("ID")) Then
Response.Write "Till FÖREGÅENDE NYHET"
Else
Response.Write "FÖREGÅENDE NYHET SAKNAS"
End If
RecSet.Close

Visa = "SELECT Min(ID) AS ID FROM nyheter WHERE ID > " & Request.QueryString("ID")
RecSet.Open Visa, Connect

If IsNumeric(RecSet("ID")) Then
Response.Write "Till EFTERKOMMANDE NYHET"
Else
Response.Write "EFTERKOMMANDE NYHET SAKNAS"
End If
RecSet.Close
End If
%>
</code>

Är det verkeligen så som han vill ha det. Som du visar, så visar du det minsta ID:t och det största ID:t.
Jag tror att det är paging som han är ute efter. Är det så så kan jag visa en bra fungerande paging.

SAW har rätt. Jag är inte ute efter det största och det minsta ID:et, utan det föregående och det efterkommande. Men annars var kodsnutten väldigt bra! =)

Nu får du allt bakläxa SAW. Läs vilkoren i SQL satserna!
* Största ID av id'n som är mindre än aktuellt Id är ju föregående.
* Minsta ID av id'n som är större än aktuellt Id är ju nästkommande.

Du får kontrollera vad det är jag gör. Har mer erfarenhet än dig. Så jag vet för det mesta vad jag sysslar med. Fast jag såg ett syntaxfel tack var dig. Glömt id i den tredje SQL satsen. Men har fixat det nu.

Samma kod lite optmerad. Bara en SQL fråga. Samt kontrol så inga SQL satser skickas in med Request.QueryString("ID"):
<code>
<%
Dim NewsID

Function SQLNumber(Value)
If IsNumeric(Value) Then
SQLNumber = Value
Else
SQLNumber = "Null"
End If
End Function

NewsID = Request.QueryString("ID")

If Request.QueryString("nyheter") = "visa" Then
Visa = "SELECT *, (SELECT Max(ID) AS ID FROM nyheter WHERE ID < " & SQLNumber(NewsID) & ") As PreviousID, (SELECT Min(ID) AS ID FROM nyheter WHERE ID > " & SQLNumber(NewsID) & ") As NextID FROM nyheter WHERE ID = " & NewsId & " "
RecSet.Open Visa, Connect

If RecSet.EOF Then
Response.Write "<H3>Artikel finns ej i databasen!</H3><BR>" & vbCrLf
Response.Write "Tillbaka till ÖVERSIKT."
Else
Response.Write "<P>" & vbcrlf
Response.Write RecSet("rubrik") & "<BR>" & vbcrlf
Response.Write RecSet("text") & "<BR>" & vbcrlf
Response.Write "Tillbaka till ÖVERSIKT."

If IsNumeric(RecSet("PreviousID")) Then
Response.Write "Till FÖREGÅENDE NYHET"
Else
Response.Write "FÖREGÅENDE NYHET SAKNAS"
End If

If IsNumeric(RecSet("NextID")) Then
Response.Write "Till EFTERKOMMANDE NYHET"
Else
Response.Write "EFTERKOMMANDE NYHET SAKNAS"
End If
RecSet.Close
End If
%>
</code>