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

Wednesday, November 05, 2008

Could You Predict Obama's Victory?

Were you a pre-election McCain supporter yet working in new products, consumer insights or strategic innovation? My opinion? If you could not predict Obama's victory as clearly as Jedi Master Yoda can see the future you need to ask yourself if you are in the right business. If you needed polls to keep track of where either candidate ranked, you are definitely in the wrong business.

Labels: , , , , ,

posted by H. Martin Calle at 8:03 PM

1 Comments:

Blogger VBPOutSourcing said...

I might not have been able to predict an Obama victory.I did know that after a Bush admin. with a 30% approval rating anything could happen!
Congrats Pres.-Elect Obama

Leon Williams
VBP OutSourcing

1:19 PM  

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