<%
Option Explicit
Dim MyCounter
set MyCounter = Server.CreateObject("MSWC.Counters")
Response.Write "<B>Teraz tworzony jest nowy licznik.<P>"
Response.Write "Jego warto wynosi: "
Response.Write MyCounter.Get("Counter1") & "<P>"
MyCounter.Set "Counter1", 33
Response.Write "Teraz wpisana zostaa do niego warto: "
Response.Write MyCounter.Get("Counter1") & "<P>"
MyCounter.Increment "Counter1"
Response.Write "Licznik zosta inkrementowany: "
Response.Write MyCounter.Get("Counter1") & "<P>"
MyCounter.Remove "Counter1"
Response.Write " Licznik zosta usunity. " & "<P>"
MyCounter.Set "Counter2", 250
Response.Write "Ustawiona zostaa warto nowego licznika : "
Response.Write MyCounter.Get("Counter2") & "<P>"
%>
