sql = "select * from 邮件列表 where 分数> '" & a & "' order by id desc"

上面是反序排序
我想降序排序要怎么改动，谢谢！

<%
a = request("fenshu")
'建立记录变量来记录读取库中记录的条数。
set conn = server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("账号.mdb")
set rs = server.createobject("adodb.recordset")
'建立库连接。
sql = "select * from 邮件列表 where 分数> 0 order by id asc"
rs.Open sql,conn,1,3
'打开从库中读出的记录集。
while not rs.eof
'While 循环语句，这里是条件，当记录集没有空时，执行后边的语句。
username = rs("分数") & " "
response.Write username
rs.MoveNext
'到下一条记录
wend
'返回到“while”
rs.close
'关闭记录集
set rs = nothing
set conn = nothing
%>

输出结果没有按照从大到小，指点一下错在那里
-- "1000018 22 183 2 250 67 39 7 88 42 37 23 12 11 17 23 45 57 78 15 33 8 12 4 33 41 3 3 10 39 46 2 7 "

谢谢！