<%
db="data/dodop#.asp"
set conn=server.createobject("adodb.connection")
dbpath=server.mappath(db)
conn.open"DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&dbpath
set rs =server.createobject("adodb.recordset")
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>