Google AdSense vient de lancer  Adsense pour mobiles, une nouvelle facon de generer vos revenus sur mobile avec 2 formats : Simple ou double

En ASP, voici ce que cela donne :

<%

Function googleColor(value, random)
  Dim colorArray
  colorArray = Split(value, ",")
  googleColor = colorArray(random Mod (UBound(colorArray) + 1))
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" &_
  "&channel=" &_
  "&client=ca-mb-pub-***********************" &_
  "&color_border=" & googleColor("555555", googleTime) &_
  "&color_bg=" & googleColor("EEEEEE", googleTime) &_
  "&color_link=" & googleColor("0000CC", googleTime) &_
  "&color_text=" & googleColor("000000", googleTime) &_
  "&color_url=" & googleColor("008000", googleTime) &_
  "&dt=" & googleDt &_
  "&format=mobile_single" &_
  "&host=" & googleHost &_
  "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_
  "&markup=xhtml" &_
  "&output=xhtml" &_
  "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_
  "&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_
  "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT"))

Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)

%>

Annonces Google pour telephones portables pour Mobile ...