<%
GirisYapanKulAdi=Session("kullaniciadi")

Set rs = Baglanti.Execute("Select TOP 5 * from uyeler order by puan DESC")
i=1
Do While Not rs.Eof
SiralananKullaniciAdi=rs("kullaniciadi")

If SiralananKullaniciAdi=GirisYapanKulAdi Then
response.write i&". sıradasınız"
End If

i=i+1
rs.MoveNext
Loop
rs.Close : Set rs = Nothing
%>

test etmedim ama çalışır.

kullancıcıları puana göre listeledim ve her birine i değişkenine bağlı sıra numarası verdim. sıralanan kullanıcıadlarını kontrol ettim, oturum açanh kullanıcı adıyla aynı ise sıra numarasını gösterdim.

Not: Eğer sistemde çok fazla üye var ise bunu yapmak sakıncalı daha hızlı çalışan alternatif bi yol bulmak gerek, aksi taktirde sayfanın açılışı yavaşlar çünkü tüm kullanıcılar listeleniyor