<%@ Language=VBScript %> <% BaseURL="http://www.ovrdrv.com" Path=Trim(lcase(Request.ServerVariables("Path_Info"))) nP=InStrRev(Path, "/") if nP > 0 then Page = lcase(mid(Path, nP + 1)) section="" end if %> Overdrive Online Marketing Blog: Overdrive Interactive: Taking the Leads<% if inStr(Path,"/labels") > 0 then %>: <%=Page%><%end if%>

 

Overdrive Interactive: Taking the Leads

posted by Harry Gold @ Friday, May 2, 2008 - 12:15 PM
Excerpt from the Boston Business Journal article by Joan Goodchild

It's an enviable place to be in during a sagging economy: In the last year, Overdrive Interactive hasn't been losing business.

Instead, the Brighton-based online marketing firm has seen clients boost spending with Overdrive at a time when many are cutting their budgets elsewhere.

"I think it's because our founding principles stay with us today," said Overdrive CEO Harry J. Gold. "We're going to do what works."

To read the full article click here.

Labels:

0 Comments:

Post a Comment

Subscribe to Post Comments [Atom]

<< Home

Blog Search

 

RSS Feeds

 Atom
 RSS

Subscribe to Overdrive eMarketing Blog by Email





Delivered by FeedBurner

Categories

<% '-- add your label directory here labelDir = "m:\web\users\V029U45EBY\html\ovrdrv\blog\labels\" '-- Check for Directory Set FSO = Server.CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(labelDir) Then Response.Write "
    " Set labelFolder = FSO.GetFolder(labelDir) Set labelBlogs = labelFolder.Files For each label in labelBlogs Set labelFile = FSO.GetFile(label) Set labelStream = labelFile.OpenAsTextStream (1, -2) iLabelCount = -1 '-- Read the file line by line Do While Not labelStream.AtEndOfStream Line = labelStream.readline LineCount = Sgn(InStr(Line,"blogger-labels")) iLabelCount = iLabelCount + LineCount Loop Response.Write "
  • " + Replace(labelFile.Name,".asp","") & " (" + CSTR(iLabelCount) & ")
  • " Set labelStream = nothing Set labelFile = nothing Next Response.Write "
" Else Response.Write "

No labels in folder: " & labelDir & "

" End If Set FSO = nothing %>