<%@ 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: Google; Where the Beer Flows Like Wine<% if inStr(Path,"/labels") > 0 then %>: <%=Page%><%end if%>

 

Google; Where the Beer Flows Like Wine

Up until this month advertisers selling beer online or promoting the sale and/or consumption of beer on their website were banned from using paid search ads to promote their products. Google has recently decided to lift that ban, allowing purveyors of beer the same opportunities that wine and champagne distributors have enjoyed up to this point.

While Google has not commented on this change, analysts at Search Engine Land believe that Google is trying to increase their ad revenues during tough financial times.

Although beer ads have been given the go-ahead, hard alcohol and liqueurs remain Restricted Products and "cannot be promoted in ad text or be the purpose of your site" (occupying a significant portion of the site), according to the Google AdWords policy page.

It is unknown whether Google will continue to update it's paid search policies, but if current economic trends continue, it appears very plausible that Google will loosen their policies in order to gain additional revenue.

- Bill Holmes

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