<%
Option Explicit
Dim MyCounter
set MyCounter = Server.CreateObject("MSWC.Counters")
MyCounter.Set "AllPageViews", 123
%>
