<% @LANGUAGE ="VBSCRIPT" %> <% Option Explicit %> <% HitCount %> Marketing by The Dashboard Light Home Read Excerpt Order About the Author

Marketing by The Dashboard Light

 

About the Author

At MarketingNPV, Pat LaPointe directs the development of client solutions for CMOs in the areas of skills, structure, processes, and tools to improve marketing measurement through greater alignment and accountability. His book Marketing by the Dashboard Light: How to Get More Insight, Foresight, and Accountability from Your Marketing Investments is a pioneering work on the topic of marketing dashboard development.

Prior to launching MarketingNPV in 2003, Pat was an equity partner and senior vice president at Frequency Marketing Inc., a consulting and software company known for design and operation of large-scale customer retention and loyalty programs. Pat also directed the operation of a marketing department at Bell Atlantic (now Verizon), creating and implementing customer acquisition and development programs for both B2B and consumer markets. He started his career in advertising in the Y&R network and at Ketchum, where he managed large client portfolios in all aspects of marketing strategy and communications. Pat is an MBA graduate of Stern School at NYU and holds a B.Comm. from McGill University in Montreal.


To find out more, visit www.MarketingNPV.com.

 

© 2008 MarketingNPV LLC
<% ' -------------- Simple ASP Counter ------------------- Sub HitCount Dim sPath, filesys, count, getValue, update, twohrs sPath = Request.ServerVariables("Path_Translated") sPath = Left(sPath,InStrRev(sPath,"\")) & "../data/counter.txt" 'Response.Write sPath 'Response.End Set filesys = CreateObject("Scripting.FileSystemObject") Set getValue = filesys.OpenTextFile(sPath,1,0) ' get the current value count = getValue.ReadLine If Request.Cookies("website_name")("recentvisitor") <> "yes" Then ' increment by 1 before displaying, 'cos they're a newbie count = Int(count) + 1 End If ' close file getValue.Close If Request.Cookies("website_name")("recentvisitor") <> "yes" Then ' only update the value in the text file if they're a newbie ' overwrite old text file with new one Set update = filesys.CreateTextFile(sPath) ' put new value in text file update.WriteLine(count) update.Close ' give them a cookie to make sure it doesn't count them more than once Response.Cookies("website_name")("recentvisitor") = "yes" ' make it expire in 2 hours' time twohrs = DateAdd("h", 2, Now) Response.Cookies("website_name").Expires = twohrs End If ' ----------------- End ASP Counter --------------------------------------- End Sub %>