Och så får du kanske hämta ID-värdet med en request.querystring först.
Detta förutsätter förstås att "nästa" och "föregående" ID-nummer existerar. Man kan ev. göra det lite krångligare och ta reda på vad som "egentligen" är nästa post, om man t ex har raderat en post, så att serien blir t ex 1, 2, 3, 5, 6, 7...
Tack, det fungerar utmärkt!
förutom en sak...
(testade emission's kod)
när man är på den allrasenaste posten, då finns ju det förstås ingen post efter... Då visar den detta fula felemddelande. Och den vill man ju inte ha där.. SÅ finns det något sätt at undkomma detta?
Dett händer förstås oxå om man är på den första posten..
ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/visa.asp, line 239
Skulle det på något sätt gå att skriva såhär typ:
If RS.EOF Then
Response.write("<font face='Arial' size='1'><font color='CCCCFF'>här tar det slut!</font>")
Var skulle jag sätta den isånafall?
Jag använder detta ibland.
Nu vet jag inte hur din övriga kod ser ut, men jag antar att du först hämtar id från "nästa" artikel med en selectsats och sedan skriver ut en länk på skärmen med rätt id.
Då skulle du kunna lägga in en:
<% If Not RS.EOF Then %>
<a href="blabla.asp?id=<%=RS("ID")%>">Nästa artikel</a>
<% End If %>
Då skrivs inget ut på skärmen om det inte finns någon "nästa" artikel.
hej cf,
jag testade din kod, men den verkade inte fungera så bra för mig :(.
högst upp på sidan hämtar jag id',.
SQL = "SELECT * FROM TestTabell WHERE ID =" & Request("ID")
SQL = SQL & " Order by ID Desc"
Set RS = Connection.Execute(SQL)
sedan för att visa : föregående och nästa post använder jag denna kod (emission's)
'DETTA ÄR KODEN FÖR NÄSTA POST
SQL = "SELECT Top 1 rubrik, ID FROM TestTabell WHERE ID> " & Request("ID")
SQL = SQL & " Order by ID Desc"
Set RS = Connection.Execute(SQL)
a href = visa.asp?id=<%= rs("ID")%>><%= RS("Rubrik")%></a>
----
'DETTA ÄR KODEN FÖR FÖREGÅENDE POST
SQL = "SELECT Top 1 rubrik, ID FROM TestTabell WHERE ID< " & Request("ID")
SQL = SQL & " Order by ID Desc"
Set RS = Connection.Execute(SQL)
a href = visa.asp?id=<%= rs("ID")%>><%= RS("Rubrik")%></a>
Så här blir första kodsnutten. Motsvarande för föregående post.
'DETTA ÄR KODEN FÖR NÄSTA POST
<%
SQL = "SELECT Top 1 rubrik, ID FROM TestTabell WHERE ID> " & Request("ID")
SQL = SQL & " Order by ID Desc"
Set RS = Connection.Execute(SQL)
if not RS.eof then %>
<a href = "visa.asp?id=<%= rs("ID")%>"><%= RS("Rubrik")%></a>
<%end if%>
Hmm... Du bör nog använda olika recordsets för säkerhets skull RS1, RS2, RS3... Glöm inte att stänga alla databasanslutningar efter dig.