home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2001 March
/
PCWorld_2001-03_cd.bin
/
Software
/
Topware
/
aspedit
/
_SETUP.1
/
counter2.asp
< prev
next >
Wrap
Text File
|
1998-07-02
|
306b
|
12 lines
<%
' 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
%>