<% ' Lock the application Application.Lock ' Get the name of the file name executed sFileName = Request.ServerVariables("SCRIPT_NAME") ' Increment the count for this file Application(sFileName) = Application(sFileName) + 1 ' Unlock the application Application.Unlock %>