asp access 无法读取数据库内容

<!--#include file="inc/top.asp"-->
<html>
<head>
<title>东亚农业资源环境研究中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>

<body topmargin="0" bgcolor="#FFFFFF">
<div align="center">
<table width="778" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF" background="../img1/100.gif" height="30">
<div align="center"><font color="#FFFFFF" style="font-size: 9pt"> <a href="../index.asp">
</a></font><%=zycy%></div>
</td>
</tr>
</table>
</div>
</body>
</html>





inc/top.asp


<%
sql="select * from main"
Set rs_main= Server.CreateObject("ADODB.Recordset")
rs_main.open sql,conn,1,1
contact=rs_main("Contact")
About=rs_main("About")
Lxwm=rs_main("Lxwm")
zzzc=rs_main("zzzc")
yfzx=rs_main("yfzx")
copyright=rs_main("copyright")
lxwm=rs_main("lxwm")
Historya=rs_main("Historya")
tcbd=rs_main("tcbd")
content=rs_main("content")
aboutae=rs_main("aboutae")
mrjh=rs_main("mrjh")
zycy=rs_main("zycy")
dzqk=rs_main("dzqk")
link=rs_main("link")
%>


Conn.asp


<%
dim conn
dim db
dim connstr
db="../Databases/myszw.mdb"
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

sub CloseConn()
conn.close
set conn=nothing
end sub
%>


conn 和 top在同一路径下。