.
<% Sub Counter Set myPageCnt = Server.CreateObject("MSWC.PageCounter") x = myPageCnt.PageHit n = len(x) b = 7 c = 0 %>
<% For c = 1 to (b - n) %> 0 <% next %> <%=myPageCnt.Hits%>
<% End Sub %> <% Counter %>