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
%>
<!-- #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
%>