<% @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:

"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.

More reviews

A marketing dashboard can be your catalyst for success and credibility. But where do you start? What do you include? And how do you ensure that the marketing dashboard will add to marketing's accountability?

Patrick LaPointe's Marketing by the Dashboard Light: How to Get More Insight, Foresight, and Accountability from Your Marketing Investments gives you insight into planning, design, construction, and implementation of an effective marketing dashboard. And for those who already have one, Marketing by the Dashboard Light gives you the information you need to help retool and focus your dashboard for maximum effect.

Marketing by the Dashboard Light draws on the insights and experiences shared by CMOs from Fortune 100 companies including:

Allstate
Citibank
Charles Schwab
Home Depot
McDonald's Corporation
Pitney Bowes
Hewlett-Packard
Dow Corning
Wachovia
General Electric
 

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