Microsoft VBScript 编译器错误 错误 '800a03f6'

 1   
 2dim objconn   
 3set objconn=server.CreateObject("adodb.connection")   
 4objconn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("mybook.mdb")   
 5objconn.Open   
 6dim objrs   
 7set objrs=server.CreateObject ("adodb.recordset")   
 8objrs.Open "mytable",objconn,adOpenKeyset,adLockOptimistic ,adCmdTable   
 9if not objrs.EOF then   
10Response.Write "id:"&objrs("id")&"

<br/>

1"   
2Response.Write "title:"&objrs("title")&"

<br/>

1"   
2Response.Write "content:"&objrs("content")&"

<br/>

1"   
2else   
3Response.Write "到达数据库尾部，无法打应记录"   
4end if   
5objrs.Clone   
6set objrs=nothing   
7objconn.Close   
8set objconn=nothing   

错误提示为：
-------------------------------------------------
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

Microsoft JET Database Engine 错误 '80004005'

找不到文件 'c:\inetpub\wwwroot\Project1\mybook.mdb'。

/Project1/mydb.asp，行11
-------------------------------------------------------------

我已经把数据库放在目录下了！

---------------------------------------------------------------

Server.MapPath("mybook.mdb")

mybook.mdb 和 mydb.asp在同一目录下吗？
---------------------------------------------------------------

文件路径不对
---------------------------------------------------------------

objrs.Clone
set objrs=nothing
objconn.Close
set objconn=nothing
%>

倒数第5行
改为

objrs.Close
...
---------------------------------------------------------------

楼主，先把上面的错误改了~~~
---------------------------------------------------------------

Server.MapPath("/mybook.mdb")

实验一下
---------------------------------------------------------------

objrs.Open "select * from mytable",objconn,3,2
---------------------------------------------------------------

Server.MapPath("mybook.mdb") 先这样测试吧！
再用这个地址测试！
---------------------------------------------------------------

objconn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("mybook.mdb")
objconn.Open

这里出错得吧？报的错好像运行不到objrs.Open "select * from mytable",objconn,3,2
其实后面的语句调用这么多游标也没用~~~~~~写的话按笨狼斑竹给的就可以~也不用那么麻烦~除非你自己定义
我没用过你这种方法取得过conn~俺笨~俺用笨办法。。。。
---------------------------------------------------------------

建立一个*.udl文件，可以取到连接字符串

这个站点是专门的连接数据库语句站点：
www.connectionstrings.com

这个站点是专门的asp常见问题站点：
http://www.aspfaq.com