Prima di postarlo intanto ti dico che di solito faccio attenzionne a chiudere tutti i recordset. Potrebbe esserne scappato uno ma allo stato attuale non ho intenzione di andarlo a cercare. Vorrei quindi iniziare dal global.asa che nel mio caso è assolutamente opzionale.
Per cui l'ho eliminato momentaneamente.

Sub Application_OnStart
Application("visits")
Application("Active") = 0
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Session.Timeout = 30
Session("Start") = Now
Application.Lock
Application("visits") = Application("visits") + 1
intTotal_visitors = Application("visits")
Application.Unlock
Session("VisitorID") = intTotal_visitors
Application.Lock
Application("Active") = Application("Active") + 1
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("Active") = Application("Active") - 1
Application.Unlock
End Sub