<%
Set rs = Baglanti.Execute("Select TOP 5 * from uyeler order by giris DESC")

Do While Not rs.Eof
%>
<%=rs("kullaniciadi")%>
<%
rs.MoveNext
Loop
rs.Close : Set rs = Nothing
%>

kalın olarak yazdığım kısımlar sırasıyla
Baglanti (Veritabanı bağlantı tanımı)
TOP 5 (veri sayısı)
uyeler (tablo adı)
giris (puanların toplandığı tablo)

eğer puanlamayı düşündüğüm gibi kaydettiyseniz bu kod işinizi görecektir.