<%@ Language=VBScript %>
<% Option Explicit %>
<%
' Ensure that this page is not cached
Response.Expires = 0
%>
Page Counter
Page Counter Component
<%
' Instantiate Page Counter Component
Dim MyPageCounter
Set MyPageCounter = Server.CreateObject("MSWC.PageCounter")
' Determine the number of page hits
Dim HitMe
HitMe = MyPageCounter.Hits("/iissamples/sdk/asp/components/PageCounter_VBScript.asp")
' Output the number of hits to the page
Response.Write "Times visited: " & HitMe
%>
Click here to revisit Page