老项目vb写的asp代码，陷入死循环，求大家帮看看

求助老项目vb写的asp代码，陷入死循环，求大家帮看看啊

sqlSmallClass="select * from SmallClass_new where BigClassID=3 order by smallclassid asc"
            Set rsSmallClass= Server.CreateObject("ADODB.Recordset")
            rsSmallClass.open sqlSmallClass,conn,1,1
			if not rsSmallClass.eof then%>
            <%do while not rsSmallClass.eof%>
            <li><a href="news.asp?biguid=3&smauid=<%=rsSmallClass("smallclassid")%>"><%=rsSmallClass("smallclassname")%></a></li>
             <%rsSmallClass.movenext
		    loop
	   	    rsSmallClass.close
		    set rsSmallClass=nothing
			end if

------解决方案--------------------
do while not rsSmallClass.eof 
在这句语句前面追加个rsSmallClass.MoveFirst试试？
或者看看rsSmallClass.RecordCount是不是0