- <%
- On Error Resume Next
- dim GuConn,GuProvider,GuMDB
- GuMDB="Include/#Article.mdb"
- Set GuConn=Server.CreateObject("ADODB.Connection")
- GuProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(GuMDB)
- GuConn.Open GuProvider
- Function CloseDatabase
- GuConn.close
- Set GuConn=Nothing
- End Function
- %>