通过Asp显示数据库中的表记录

已有一个数据库bookstore，该数据库中包含书籍表book。表结构定义如下表所示：
字段名称 数据类型 主键 字段描述
Id Int 是 书号
Publisher Char(50) 否 出版社
BookName Char(50) 否 书名
Count Int 否 库存数量
Price Int 否 单价
若已设置ODBC数据源，数据源名称（DSN）为：bookstore，编写ASP程序list.asp，读取Bookstore数据库的book数据表的所有记录，并通过表格显示数据。

<%'第一步连接数据库，这里是access无密码的
set conn = Server.CreateObject("ADODB.Connection")
conn.open "bookstore"
'建立记录集
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from book"
rs.open sql,conn,1,3
%>
<table> <tr>
<td>书号</>
<td>出版社</td>
<td>书名</td>
<td>库存数量</td>
<td>单价</td></tr>
<%'循环显示出数据
do while not rs.eof%>
<tr>
<td><%=rs("id")%><td/>
<td><%=rs("Publisher")%></td>
<td><%=rs("BookName")%></td>
<td><%=rs("Count")%></td>
<td><%=rs("Price")%></td>
</tr>
<%rs.movenext
loop%>
</table>
<%rs.close
conn.close
set rs=nothing
set conn=nothing