<% Sub Counter Dim MyPageCounter, Hits Set MyPageCounter = Server.CreateObject("MSWC.PageCounter") MyPageCounter.PageHit Response.Write MyPageCounter.Hits End Sub %>
<%Call Counter%>