跪求ASP链接ACCESS数据库代码!

<%

xuasmdb="inc/xian.mdb"

set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath(xuasmdb)
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
'response.write DBPath 
'response.end
sub closedb()
conn.close
set conn=nothing
end sub

%>

<%
path=server.mappath("data\adm\adgjlqetuozcbm.mdb")
set conn=server.createobject("adodb.connection")
conn.Open "provider=Microsoft.jet.oledb.4.0;data source="&Path
sub CloseConn()
conn.close
set conn=nothing
end sub

Sql="Select count(*) from asdf as countt "

set rs=conn.execute(sql)

%>