home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 September / PCWorld_2000-09_cd.bin / Software / Topware / aspedit / _SETUP.1 / counter3.asp < prev    next >
Text File  |  1998-07-02  |  279b  |  13 lines
  1. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  2. Sub Session_OnStart
  3.   ' Lock the Application object
  4.   Application.Lock
  5.  
  6.     ' Increment the count
  7.      Application("Visits") = Application("Visits") + 1
  8.  
  9.   ' Unlock the Application object
  10.   Application.Unlock
  11. End Sub
  12. </SCRIPT>
  13.