do an order by score (desc), then loop it ten times with a counter each going up once each time, something like this:
counter = 0
vrec.open
do until counter = 10
counter = counter + 1
if vrec("score") = score then
response.write "Your ranking is " & score
end if
vrec.movenext
loop
vrec.close
however, if you wanted to get rankings for multiple scores, and have them accessed regularly, it might be worth adding a rank field to the database, then do this whenever you add new data (say add a button to click after you've finished adding it)
sql = "select id from tbl1 order by score desc"
counter = 0
vrec.open sql,adoCon
do until vrec.eof
counter = counter + 1
id = vrec("id")
sql = "update tbl1 SET rank = " & counter & " WHERE id =" & id
adoCon.execute sql
vrec.movenext
loop
vrec.close
This will give each of the records a rank based on their score, and then you can just display the rank field instead of having to process the rank each time you want to display it.
Topic Options
Post Options
Thanks(0)
