<%
startime=timer()
dim conn
dim connstr
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("music/hcmusicplay/music.asa")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
%>

