<%
dim conn,connstr,db
db="../Data/#888llee666777e8data#&%$#.asp"
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
Function CloseDatabase
  Conn.close
  Set conn=Nothing
End Function
%></body></html>