被一个简单的问题卡住了,帮帮啊!!!
定义了一个函数
<%
Function   t_opendb(dbname)
    strconn   =   "DRIVER=Microsoft   Access   Driver   (*.mdb);DBQ= "   &   Server.MapPath(dbname)  
    set   conn   =   server.createobject( "adodb.connection ")
    conn.open   strconn
    t_opendb=   conn
End   Function
%>
在主程序中调用出错啊
<%
        conn=t_opendb   ( "\user\id.mdb ")
set   rs=   server.createobject( "adodb.recordset ")  
sql=   "select   *   from   manager   where   用户名= ' "&   loginame   & " '   and   密码= ' "&   passwd   & " ' "
Set   rs=   conn.Execute(sql)
...
%>
提示Set   rs=   conn.Execute(sql)出错啊!!!

错误类型：
Microsoft   VBScript   运行时错误   (0x800A01A8)
缺少对象:   'Provider=MSDASQL.1;E '
/check_login.asp,   第   28   行


------解决方案--------------------
function中
t_opendb= conn
改为
set t_opendb= conn

调用
set conn=t_opendb ( "\user\id.mdb ")