<%
Option Explicit
Dim MyPageCounter
Dim CompInfoCount
Dim WelcomeCount
Dim HitReportCount
Set MyPageCounter = Server.CreateObject("IISSample.PageCounter")
MyPageCounter.PageHit
If not isempty(Request.QueryString("ClearPage")) Then
  If Request.QueryString("ClearPage") = "Welcome" Then
    MyPageCounter.Reset("/aspbook/c10/pc/html/welcome.asp")
  ElseIf Request.QueryString("ClearPage") = "CI" Then
    MyPageCounter.Reset("/aspbook/c10/pc/html/company_info.asp")
  ElseIf Request.QueryString("ClearPage") = "Report" Then
    MyPageCounter.Reset
  End If   
End If
If MyPageCounter.Hits("/aspbook/c10/pc/html/company_info.asp") = 1 Then
  CompInfoCount = "1 raz"
else
  CompInfoCount = MyPageCounter.Hits("/aspbook/c10/pc/html/company_info.asp") & " razy"
End If
If MyPageCounter.Hits("/aspbook/c10/pc/html/welcome.asp") = 1 Then
  WelcomeCount = "1 raz"
else
  WelcomeCount = MyPageCounter.Hits("/aspbook/c10/pc/html/welcome.asp") & " razy"
End If
If MyPageCounter.Hits = 1 Then
  HitReportCount = "1 raz"
else
  HitReportCount = MyPageCounter.Hits & " razy"
End If
%>  
