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