<%@ 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: Get Ready for the Good News and a Lot More Work<% if inStr(Path,"/labels") > 0 then %>: <%=Page%><%end if%>

Overdrive Services

Archives

  

Get Ready for the Good News and a Lot More Work

posted by Harry Gold @ Tuesday, October 2, 2007 - 4:34 PM
Are you busy? If you're like most shops, including my own, I'm sure you are. Brace yourself. You're about to get busier. Whether you call it the coming "digital storm" (as Sapient's Gaston Legorburu calls it), the digital tidal wave, or even the Internet's second coming, one thing's for sure: marketers of all stripes have woken up to the Web's power and promise of the Web, and online budgets are growing. We now ask ourselves whether this bountiful harvest will last, especially those of us who witnessed the last bubble burst.

Read more at http://www.clickz.com/showPage.html?page=3627166

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 %>
Blog Home  |  Social Media Map  |  Schedule a Seminar  |  eMarketing Blog  |  Contact Bloggers  |  © 2002-<%=Year(Date)%> Overdrive. All Rights Reserved.