<%

dim connDG,dgconnstr
dgconnstr="DBQ="+server.mappath("database/#(music)#com.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conndg=server.createobject("ADODB.CONNECTION")
conndg.open dgconnstr 
set dgconnstr=nothing
function CloseDB()
connDG.close
set connDG=nothing
End Function	 
%>
