set rs = Conn.execute("select count(*) as antal from tracker_user where points > 0") Antal = rs("antal") set rs = Conn.execute("select * from tracker_user where points > 0")
RandomNummer = Int((Antal) * Rnd + 1)
rs.Move(RandomNummer)
Conn.execute("update tracker_user set points = " & rs("points")-1 & " where id = " & rs("id")) %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.