求助，asp网站进入后台数据库连接出错！

本地调试能够成功进入后台，传到服务器就进不了，提示数据库连接出错，求助高手，谢谢
<%
 dim conn  
 dim connstr  
 on error resume next

 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("../db/data.mdb")
   
 set conn=server.createobject("ADODB.CONNECTION")
 if err.number<>0 then 
  err.clear
  set conn=nothing
  response.write "数据库连接出错！"
  Response.End
 else
  conn.open connstr
  if err then 
  err.clear
  set conn=nothing
  response.write "数据库连接出错！"
  Response.End 
  end if
 end if  
 
 sub CloseConn()
  conn.close
  set conn=nothing
 end sub  
'使用方法为：call CloseConn()
%>

<%
 dim conn  
 dim connstr  
 on error resume next

 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("../db/data.mdb")
 set conn=server.createobject("ADODB.CONNECTION")
 conn.open connstr
if err.number<>0 then  
  err.clear
  set conn=nothing
  response.write "数据库连接出错！"
  Response.End
 end if  
 
 sub CloseConn()
  conn.close
  set conn=nothing
 end sub  
'使用方法为：call CloseConn()
%>