一个页面要同时调用两个ACCESS数据库怎么写conn连接?

把以下代码放到CONN.ASP里
<%
dim conn
dim connstr
'on error resume next

connstr = "DBQ=" + server.mappath("db/db.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.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 endConnection()
conn.close
set conn=nothing
end sub

dim conn1
dim connstr1
'on error resume next

connstr1 = "DBQ=" + server.mappath("db/db1.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=