a高手请进在线等待,急急急~~!!!

<!-- #include file="../db/database_connection.asp" -->
<%
'Check the Session("strID")



Sub OrderList()
'Exact the order list
Dim rsOrder 'as New ADODB.Recordset
Set rsOrder=Server.CreateObject("ADODB.Recordset")
Dim strSql 'as String
strSql="select itrID ,strChineseName from tbl_book order by dteGenerate DESC"
rsOrder.Open strSql,m_con,1,1
if rsOrder.RecordCount>0 then

%>
<table width="1015" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="973" height="54"></td>
<td width="42"></td>
</tr>
<tr>
<td valign="top" height="82">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="22" width="388" valign="top">
<div align="center">书名</div>
</td>
<td valign="top" width="257">
<div align="center">编号</div>
</td>
<td width="328" valign="top">
<p align="center">修改</p>
</td>
</tr>
<%
while not rsOrder.BOF and not rsOrder.EOF
%>
<tr>
<td height="30" valign="top">
<%=strChineseName%>
</td>
<td valign="top">
<% =rsOrder("strID") %>
</td>
<td valign="top">
<% =rsOrder("strBID") %>
</td>
</tr>
<%
rsOrder.MoveNext
wend
%>
</table>
</td>
</tr>
</table>
<%
end if
rsOrder.Close
Set rsOrder=Nothing
end sub
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<% OrderList %>

</body>
</html>
然后出现下列问题
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/bat/admin/searchbook.asp，行13