[求助]是关于在ASP中调用查询的给予RMB报酬

<%
Dim g_strConnection

g_strConnection = "Provider=SQLOLEDB;Data Source=sql;Initial Catalog=database1;User ID=user1;Password=user"

%>

<%dim strUserID, sLevel, byClass,ranking,rsDResult %>
<%
sql = "select strUserID ,sLevel ,byClass,ranking from GameUser order by ranking desc"
set rsDResult = Server.CreateObject("ADODB.Recordset")
rsDResult.Open sql, g_strConnection
do while not rsDists.EOF
......

rsDists.MoveNext
loop
rsDists.close
%>