<% ' Lock the Application object Application.Lock ' Increment the count Application("Count") = Application("Count") + 1 ' Unlock the Application object Application.Unlock %>