在网页的文本框中输入分数从数据库中检索比此权值小的学校。如何做？

dim grades,rsobj,sqlstr
grades=cint(request.form("grades"))
set rsobj=server.createobject("ADODB.RECORDSET")
sqlstr="select * from schoolinfo where grades="&grades
rsobj.open sqlstr,conn,1,1
for i=1 to rsobj.recordcount
if not rsobj.eof then
response.write "＜li＞"&rsobj("grades")
else
exit for
end if
rsobj.movenext
next