Using BrowserHawk Objects in Global.asa Efficiently

I've got a GLOBAL.ASA file that is presently counting Active Users (see below). However, now I have Browser Hawk installed on my dedicated server and I would like to add code to GLOBAL.ASA that records in an Access database for each user session whether the user has FLASH installed or not. The code to do this is basically this:

Dim objConn
Dim ConnectionString
Set objConn = Server.CreateObject("ADODB.Connection")
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=path to database;"

objConn.Open ConnectionStringset bhObj = Server.CreateObject("cyScape.browserObj")
bhObj.SetExtProperties "plugin_flash"
bhObj.GetExtPropertiesEx
flash = bhObj.Plugin_Flash

if flash = 0 Then
  objConn.Execute(" INSERT INTO browserstats ( flash ) SELECT -0 AS flashinst")
else
 objConn.Execute("INSERT INTO browserstats ( flash ) SELECT -1 AS flashinst")
end if

objConn.Close
Set objConn = Nothing

What I'm unsure about is how to put this code into my present GLOBAL.ASA efficiently so that I only open the BrowserHawk object once, etc. Here is my present GLOBAL.ASA:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
      ' Set our user count to 0 when we start the server
      Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
      ' Change Session Timeout to 20 minutes (if you need to)
      Session.Timeout = 20
      ' Set a Session Start Time
      ' This is only important to assure we start a session
      Session("Start") = Now
      ' Increase the active visitors count when we start the session
      Application.Lock
            Application("ActiveUsers") = Application("ActiveUsers") + 1
      Application.UnLock
End Sub

Sub Session_OnEnd
      ' Decrease the active visitors count when the session ends.
      Application.Lock
            Application("ActiveUsers") = Application("ActiveUsers") - 1
      Application.UnLock
End Sub

</SCRIPT>

Any suggestions very much appreciated!

Kathryn