<%
dim db
set db=server.createobject("ADODB.Connetion")
db.open"Dbq="&Server.Mappath("date/data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
if err then
err.clear
else
conn.open connstr
end if
%>

if err then
这是什么

conn.open connstr

conn是什么？都没创建
把
if err then
err.clear
else
conn.open connstr
end if
这些去掉吧

[IMG]http://www.cntianj.com/wwwroot/hyl/asperr/err.bmp[/IMG]
错误提示！~

谢谢拉。

if err then '当有错误的时候

<%
dim conn
dim connstr
db="Database/dfds.asp"
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
%>

那这个为什么对？

connstr="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

原来来这里还真没来错，谢谢各位拉。