<%
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

'-----------下以是网站全站信息-----------
set res=server.CreateObject("adodb.recordset")
sql="select top 1 * from company"

res.open sql,con,1,1'这是第九行。

if not res.eof then
dim web_name,web_address,web_url,web_tel,web_fax,web_email
web_name=res("web_name")                           '网站名称
web_address=res("web_address")                     '公司地址
web_url=res("web_url")                             '公司网址
web_tel=res("web_tel")                             '公司电话
web_fax=res("web_fax")                             '公司传真
web_email=res("web_email")
gywn=res("gywn")
companyhao=res("companyhao")                   '公司邮箱
end if
res.close
%>


错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/bbs/conn.asp, 第 9 行

谢啊！

我改好了。。

如下变更
<%
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
dim strSql,rs
strSql="select top 1 * from company"
Set rs=db.Execute(strSql)
dim web_name,web_address,web_url,web_tel,web_fax,web_email
web_name=rs("web_name")                           '网站名称
web_address=rs("web_address")                     '公司地址
web_url=rs("web_url")                             '公司网址
web_tel=rs("web_tel")                             '公司电话
web_fax=rs("web_fax")                             '公司传真
web_email=rs("web_email")
gywn=rs("gywn")
companyhao=rs("companyhao")                   '公司邮箱
rs.close
%>