Visa ej det senaste

t.ex.

SELECT * FROM tabell where kolumnid NOT IN (SELECT TOP 1 kolumnid FROM tabell ORDER BY kolumnid DESC)

Eller...

Sätt in:
RecSet.Movenext
före du börjar loopen eller vad du nu använder för att skriva ut innehållet

Får det inte riktigt att funka.

	<%
	Set Connect2 = Server.CreateObject("ADODB.Connection")
	Connect2.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb"))

	Dim antal
	antal = 0

	Set RecSet2 = Server.CreateObject("ADODB.Recordset")
	Visa = "SELECT * FROM nyheter ORDER BY Id DESC"
	RecSet2.Open Visa, Connect2, adOpenStatic, adLockOptimistic
	Do Until RecSet2.EOF 
	%>

	<%=RecSet2("rubrik")%>

 	<%
	antal = antal + 1	
	RecSet2.MoveNext
	Loop
	RecSet2.Close
	Connect2.Close
	Set Connect2 = Nothing
	%>

Men du har ju inte lagt in Emissions kod.

------------------
http://www.tavlingar.se

Äh jag förklarar mig så dåligt, klippte in den gamla koden.
Det som händer är att trots att det är valt DESC så visar den sidan som ASC. Om man skriver ASC eller inget alls så visar den det senast inlagda.

<%
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb"))
Dim antal
antal = 0

Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM nyheter where Id NOT IN (SELECT TOP 1 Id FROM nyheter ORDER BY Id DESC)"
RecSet2.Open Visa, Connect2, adOpenStatic, adLockOptimistic
Do Until RecSet2.EOF 
%>

<%=RecSet2("rubrik")%><br>

<%
antal = antal + 1 
RecSet2.MoveNext
Loop
RecSet2.Close
Connect2.Close
Set Connect2 = Nothing
%>

[Redigerat av Bj den 02 aug 2001]

[Redigerat av Bj den 02 aug 2001]

Visa = "SELECT * FROM nyheter where Id NOT IN (SELECT TOP 1 Id FROM nyheter ORDER BY Id DESC) order by id desc"

------------------
essentitia preter non sans multiplicandum

Det är för att ingen sortering görs.

Visa = "SELECT * FROM nyheter where Id NOT IN (SELECT TOP 1 Id FROM nyheter ORDER BY Id DESC) ORDER BY Id DESC"

[r]Funderar på att lägga in en 3-minuters fördröjning på LarsG:s inlägg ;) [/r]

[Redigerat av emission den 02 aug 2001]

Tackar alla!