Numrera 5 poster

Hur gör man för att numrera 5 poster med 1,2,3 osv och när man lägger till en ny post så ska den få 1 och 5:an trilla ur i följande kod ?

<!-- #include file="adovbs.inc" -->

<%

		Set Connect = Server.CreateObject("ADODB.Connection")
		Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("link.mdb")
		Set RecSet = Server.CreateObject("ADODB.Recordset")

		Link = "SELECT TOP 5 * FROM tb ORDER BY ID DESC"
		RecSet.Open Link, Connect, adOpenDynamic
		Do Until RecSet.EOF

		Response.Write(RecSet("Namn") & "<BR>")

		RecSet.MoveNext
		Loop

		RecSet.Close
		Connect.Close
		Set RecSet=Nothing
		Set Connect=Nothing
%>

Plz help a newbie !

/ Nicklas

<!-- #include file="adovbs.inc" -->

<%
Dim i

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("link.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

i = 1
Link = "SELECT TOP 5 * FROM tb ORDER BY ID DESC"
RecSet.Open Link, Connect, adOpenDynamic
Do Until RecSet.EOF

Response.Write(i & " " & RecSet("Namn") & "<BR>")

RecSet.MoveNext
i = i + 1
Loop

RecSet.Close
Connect.Close
Set RecSet=Nothing
Set Connect=Nothing
%>

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?

Cnt = 1

Do Until RecSet.EOF
Response.Write""& Cnt &" & " RecSet("Namn") &"<br>""
RecSet.MoveNext
Cnt = Cnt + 1
Loop

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

Darn it, 20 sekunder före :e

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

:e

Tur att man inte är lika snabb i sängen :e

------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !

F-n ni e snabba :)

Tack !