home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 September / PCWorld_2000-09_cd.bin / Software / Topware / aspedit / _SETUP.1 / counter2.asp < prev    next >
Text File  |  1998-07-02  |  306b  |  12 lines
  1. <%
  2.   ' Lock the application
  3.   Application.Lock
  4.     ' Get the name of the file name executed
  5.     sFileName = Request.ServerVariables("SCRIPT_NAME")
  6.  
  7.     ' Increment the count for this file
  8.     Application(sFileName) = Application(sFileName) + 1
  9.  
  10.   ' Unlock the application
  11.   Application.Unlock
  12. %>