教下我````ASP的题目

<%
dim   connstr
set   conn=server.createobject( "ADODB.CONNECTION ")
conn.open   "Provider=SQLOLEDB.1;UID=stu;Password=dgxystu; "&_  
          "Initial   Catalog=stu;Data   Source=localhost "
Set   rst=Server.CreateObject( "ADODB.Recordset ")
rst.CursorLocation=2
rst.CursorType=3

strSQL= "SELECT   *   FROM   books "
rst.Open   _______________


I=0
Response.Write   " <table   border   cellspaceing=1   cellpadding=7> "
Do   while   not   rst.____________
    Response.Write   " <TR> <TD> "&   I+1   &_
        " <TD> "&rst( "bookname ")   & " </TD> "   &_
        " <TD> "&rst( "authorname ")   & " </TD> "   &_
        " <TD> "&rst( "unitprice ")   & " </TD> "
    ______________  
    I=I+1
Loop
Response.Write   "___________ "
rst.___________
%>


------解决方案--------------------
strSQL
eof
rst.movenext
</tr> </table>
close
------解决方案--------------------
strSQL,conn
eof
</table>
close

现在居然有学校教asp？