Page Counter

<% set objPageCount = Server.CreateObject("MSWC.PageCounter") objPageCount.PageHit() Response.Write objPageCount.Hits() %> Hits

Cookie

<% dim numvisits response.cookies("NumVisits").Expires=date+365 numvisits=request.cookies("NumVisits") if numvisits="" then response.cookies("NumVisits")=1 response.write("Welcome! This is the first time you are visiting this Web page.") else response.cookies("NumVisits")=numvisits+1 response.write("You have visited this ") response.write("Web page " & numvisits) if numvisits=1 then response.write " time before!" else response.write " times before!" end if end if %>

Ad Rotator

<% url=Request.QueryString("url") If url<>"" then Response.Redirect(url) %> <% set adrotator=Server.CreateObject("MSWC.AdRotator") response.write(adrotator.GetAdvertisement("ads.txt")) %>