'+++++++++++++++++++++++++
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/news/news.asp，行23
++++++++++++++++++++++++++
'以上为错误提示
'网页代码如下
<%@language = VBScript%>
<!--#include file=include/conn.asp-->
<html>
<head>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
--></style>
</head>
<body background="file:///C:\Inetpub\wwwroot\news\images\bg01.gif">
<table width="750" align="center">
<tr>
<td width="750" align="center">
<!--#include file="include/head.htm"--></td>
</tr>
</table>
<table width="750" align="center" ID="Table1">
<%do while not RecordsettNewsSubject.eof%>
<tr>
<td align="center" width="750"><%=(RecordsettNewsSubject.Fields.Item("fSubjectName").Value)%>
</td>
<%move.next%>
<% loop %>
</td>
</tr>
</table>
'include的数据库文件如下
'==============================
Function CreateMdbRecordset(tNewsSubject)
Dim conn,Provider,DBPath
'建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
'Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
'DBPath = "Data Source=" &Server.MapPath( "data/news_data.mdb" )
'打开数据库
conn.Open Provider &DBPath
Set CreateMdbRecordset = Server.CreateObject("ADODB.Recordset")
'打开数据表，参数二为Connection对象
CreateMdbRecordset.Open "tNewsSubject", conn, 2,2
End Function
'==============================
请教，错在哪里，怎么改？
第23行是
<%do while not RecordsettNewsSubject.eof%>
