分数说明错误，请高人帮忙
<%'分数判断，并选择
Set rs=Server.CreateObject("Adodb.RecordSet")
oSql="Select * from AboutResult where TestID="& TestID &" and Result1<="& score &" and Result2>="&score
'Response.Write oSql
rs.open oSql,Conn,1,1
If rs.eof Then Response.Write "无符合条件的分数说明！"
While Not rs.eof
Response.Write "<font color=red>说明：</font><font color=#009966>"&rs("Intro")&"</font>"
rs.MoveNext
Wend
rs.close()
Set rs=Nothing
%>
