Calle & Company. Breakthrough consumer insight, strategic innovation & new product concept development.

Playboy weekly promo 3 - GND

Great minds like a good think.

Go to Calle & Company's Award-Winning New Products Website

Calle & Company

Thursday, March 20, 2008

Link

MADISON AVENUE Blog Makes it into AD AGE Pages!

Yippee! MADISON AVENUE Blog gets published in Advertising Age Magazine. What a thrill! Responding to editor Jonah Bloom's request for his Power 150 Crystal Ball 2.o article on what's hot and what's not in Digital Marketing, and what technology marketers should be looking out for in 2008. Our recommendations got mentioned - along with a link to our site. I haven't checked the print edition yet but Google analytics picked up a tremendous spike in readership. Thank you Jonah Bloom and Ad Age! Thank you readers!

Labels: , , , , , ,

posted by H. Martin Calle at 3:28 PM

0 Comments:

Post a Comment

Links to this post:

Create a Link

<< Home

Watch the latest videos on YouTube courtesy of Calle & Company New Products Development.com
Blogroll Me!

Blog Directory Submission - Human Edited
Google
 
Web advertising-age.blogspot.com
www.callecompany.com

<% Function googleColor(value, random) Dim colorArray colorArray = Split(value, ",") googleColor = colorArray(random Mod (UBound(colorArray) + 1)) End Function Function googleScreenRes() Dim screenRes, delimiter, resArray screenRes = Request.ServerVariables("HTTP_UA_PIXELS") delimiter = "x" If IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS") delimiter = "," End If resArray = Split(screenRes, delimiter, 2) If (UBound(resArray) + 1) = 2 Then googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) End If End Function Function googleDcmguid() Dim dcmguid dcmguid = Request.ServerVariables("HTTP_X_DCMGUID") If Not IsEmpty(dcmguid) Then googleDcmguid = "&dcmguid=" & dcmguid End If End Function Dim googleTime, googleDt, googleScheme, googleHost googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" If StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST")) Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text_image" &_ "&channel=6212356572" &_ "&client=ca-mb-pub-0068180937849050" &_ "&dt=" & googleDt &_ "&format=mobile_single" &_ "&host=" & googleHost &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=utf8" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_ "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_ googleScreenRes() &_ googleDcmguid() Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>