<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
'Ensure that this page is not cached.
Response.Expires = 0
%>
Using Application Variables
Using Application Variables
<%
'If this is the first time any user has visited
'the page, initialize Application Value.
If (Application("AppPageCountVB") = "") Then
Application("AppPageCountVB") = 0
End If
'Increment the Application AppPageCount by one.
'Note that this AppPageCount value is being
'shared, locking must be used to prevent
'two sessions from simultaneously attempting
'to update the value. However, for a single statement you
'don't need to apply locks (it already is applied.)
'Application.Lock
Application("AppPageCountVB") = Application("AppPageCountVB") + 1
'Application.UnLock
%>
Users have visited this page
<%= Application("AppPageCountVB") %> times!
Click here to visit it again