<%@ 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.
Application.Lock
Application("AppPageCountVB") = Application("AppPageCountVB") + 1
Application.UnLock
%>
Users have visited this page
<%=Application("AppPageCountVB")%> times!
Click here to visit it again