Hur göra?

Jag försöker få fram en topplista, så här ska det vara:
1 Namn
2 Namn2
3 Namn3
osv, men med denna kod

<% 
		Set Connect = Server.CreateObject("ADODB.Connection")
		Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DBpath
		SQL = "SELECT TOP 10 * FROM Medlemmar ORDER BY f_Sidbesok DESC"
		Set RS= Server.CreateObject("ADODB.Recordset")
		RS.Open SQL, Connect, 3,3
		%>
		<table cellspacing="0" cellpadding="0">
		<% Do Until i=10 %>
		<% Do Until RS.EOF %>
		<tr>
                <td><% =basefont %>
		<% i=i+1  %><%=i%>.
		</td>
		<td>
		<% =basefont %>
		<% = RS("f_nick") %>
		</td>
		</tr>
		<% 
		Loop
		RS.Movenext
		Loop
		%>
		</table>

så blir det
1 samma namn
2 samma namn
3 samma namn
4 samma namn

det blir likadant med

	<table cellspacing="0" cellpadding="0">
		<% Do Until RS.EOF %>
		<% Do Until i=10 %>
		
		<tr>
		
		
		
		<td><% =basefont %>
		<% i=i+1  %><%=i%>.
		</td>
		<td>
		<% =basefont %>
		<% = RS("f_nick") %>
		</td>
		</tr>
		<% 
		Loop
		RS.Movenext
		Loop
		%>