大家快来帮忙看看这段代码！

我写了一段查询的代码，在浏览器上输不出结果，不知道是什么原因，大家帮忙看看
<%  Option Explicit  %>
<html>
<head>
      <title>在股票行情表中添加记录</title>
</head>
<boby>
     <%
 Dim db
     set db=server.createObject("ADODB.Connection")
     db.Open"Dbq=D:\ASP\jj.mdb;Driver={Microsoft Access Driver(*.mdb)}"
 Dim strSql,rs
     strSql="Select * From j"
     set rs=db.Execute(strSql)
     %>
     <center>
     <table border='1'>
       <%
       Do while Not rs.Eof
       %>
       <tr>
       <td><%=rs("代号")%></td>
       <td><%=rs("名称")%></td>
       <td><%=rs("收盘价")%></td>
       <td><%=rs("涨跌")%></td>
       <td><%=rs("最高价")%></td>
       <td><%=rs("最低价")%></td>
       <td><%=rs("成交量")%></td>
       </tr>
     <%
      rs.MoveNext
      Loop
     %>
     </table>
     </center>
</boby>
</html>