database funktion

Jeg har denne kode:

<%
SQLserveradr="****"
    SQLdatabase="***"   
    SQLlogin="*****"
    SQLpassword="****"



Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword

set rs = Conn.execute("select count(*) as antal from tracker_user where points > 0 order by points desc")
Antal = rs("antal")
set rs = Conn.execute("select * from tracker_user where points > 0")

RandomNummer = int((antal) * rnd)

rs.Move(RandomNummer)
response.Write rs("name")
Conn.execute("update tracker_user set points = " & rs("points")-1 & " where id = " & rs("id"))
set antal = nothing
set randomnummer = nothing
conn.Close
set conn = nothing
%>

den skulle gerne vælge en tilfældig men den vælger ( rækkefølge) 4,3,2,1,5 plus den tager den samme til den ikke har flere points

min tabel:
  tracker_user
    -id - primær nøgle
    -name
    -password
    -points
    -url