Hejsan!
Jag använder följande kod:
<code>
<% Set RStop = Connect.Execute("SELECT * From bilder where kategori = '" & kat & "' and status = 'true' ORDER BY snitt desc LIMIT 0,20")
Do until RSTop.eof or i = 20
i = i + 1 %>

"><%= RStop("username") %><br>

<%
RStop.movenext
loop
rstop.close
set rstop = nothing %>
</code>

Det jag vill göra är att lägga nummer 1 på första, 2 på andra etc! Tex:

1: Ettan
2: Tvåan
3: Trean
4: Fyran
Osv
10: Tian

Menar du så här?
<code>
<%

Set RSTop = Server.CreateObject("ADODB.Recordset")
RSTop.Open "SELECT *" & vbCrLf & _
"FROM bilder" & vbCrLf & _
"WHERE kategori = '" & kat & "' and status = 'true'" & vbCrLf & _
"ORDER BY snitt desc" & vbCrLf & _
"LIMIT 0,20", Connect

Do until RSTop.eof Or i >= 20
i = i + 1
Response.Write i
%>
: "><%= RStop("username") %><br>
<%
RSTop.movenext
Loop
RSTop.close
Set RSTop = nothing
%>
</code>