<%
Dim db, List, x
Set db = Server.CreateObject("ADODB.Connection")
db.Open Application("VMGN_ConnectionString")
Set List = db.Execute("SELECT * FROM UserLog ORDER BY Score desc")
x=0
While not List.eof AND x < 10 %>
<%= List(1) %> <%= List(2) %>
<%= List(6) %>
<% x = x+1
List.movenext
Wend
Set List = nothing
db.Close
%>
