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

Marketing by The Dashboard Light
 

Praise for Marketing by the Dashboard Light

"Marketing by the Dashboard Light provides an entire framework for measuring marketing's effectiveness, as well as very practical suggestions on what to do and what to avoid when measuring the various elements within the framework. Pat very clearly articulates the issues I wrestle with every day, and his book helps me to see where our team stands on the measurement journey. "
Karen Haefling, Chief Marketing Officer, KeyCorp

"The book’s clear framework helps us face the persistent challenges to marketers, from deficient measurement data to lack of accountability/credibility."
Gretchen Jezerc, Director, Corporate Marketing & Communications, PPG Industries, Inc.

"This is the best practical guide to the dashboard and the marketing metrics that should appear on it. Every business person concerned with their sources of cash flow should read it
several times."
Tim Ambler, Senior Fellow, London Business School, and author of Marketing and the Bottom Line

"Accountability is finally here. Tracking and measuring marketing and communication is finally possible and Pat tells you how."
Don E. Schultz, Professor Emeritus, Northwestern University, and author of IMC: The Next Generation

"I really enjoyed reading Marketing by the Dashboard Light. Its content is very useful and will certainly enable me to better assist our clients. Thank you for such a wonderful tool."
Greg Timpany, Director of Research, Wilkin Guge Marketing

 

© 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 %>