数据库连接问题
conn.asp
<%
connstr="DBQ="+server.mappath("lanshizi.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
%>
indx.asp
<!--#include file=./conn/conn.asp-->
<%
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from t_users"
rs.open sqlstr,conn,1,3
rs.movefirst
while not rs.eof
response.write(rs("user_name"))
rs.movenext
wend
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
出错提示
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/conn/conn.asp,行4
为什么