分数说明错误，请高人帮忙

<%
'分数判断，并选择
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
%>