<% Dim lngHits Dim objCounter Set objCounter = Server.CreateObject("MSWC.PageCounter") objCounter.PageHit lngHits = objCounter.Hits Set objCounter = Nothing %>

You are viewer # <%IngHits%>