找个ASP高手帮我看看哪里出错了？

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session("CurrentPosition")="流言列表"%>
<!-- #include file="top.asp" -->
<%
Dim rs,conn,strSQL,currentpage
'使用Server对象的CreateObject方法建立一个记录对象
set rs=Server.CreateObject("ADODB.Recordset")
Conn="Provider=Microsoft.Jet.OLEDB.4.0;Date Source="& Server.MapPath("教务信息数据库.mdb")
strSQL="Select * From GuestBook Order By ID desc"
'打开记录集对象'
rs.open strSQL conn, ADOpenKeySet, ADLockOptimistic, ADCmdText
'判断记录集是否为空，如果为空，则重定向到添加留言页面
If rs.Eof Then
Response.Redirect "AddMsg.asp"
End If
'设置Recordset对象的每一页的大小（数据记录条数）'
rs.PageSize=10
'设置当前页数'
currentpage=Request.QueryString("Page")
'如果用户输入的页码非法或超出了页码范围，则将其修改为第一页或最后一页'
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)

rs.open strSQL conn,1,1 是以只读方式打开，rs.open strSQL conn,1,3是以可读可写方式打开

rs.open strSQL conn, ADOpenKeySet, ADLockOptimistic, ADCmdText

ASP 里边好像没有此写法吧？

rs.open strSQL conn,1,1
试试

rs.open strSQL conn, ADOpenKeySet, ADLockOptimistic, ADCmdText
没听过有这样写法的！！！

rs.open strSQL conn,1,3

我写ASP程序，出错了，高手帮我看看 找个配置 高手帮我看看！ 找个高手帮我看看显卡 看看ASP哪里出错？ 来个ASP高手帮我看看我的程序 ASP高手帮我看看~~~~ ASP高手帮我看看？ (asp高手来帮我看看)登陆页面出错的问题。 找个高手帮我看看这个程序是否正确 iexplore出错 高手帮我看看