advert {     
         }



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(HTTPUAPIXELS)
  delimiter  x
  If IsEmpty(screenRes) Then
    screenRes  Request.ServerVariables(HTTPXUPDEVCAPSCREENPIXELS)
    delimiter  ,
  End If
  If IsEmpty(screenRes) Then
    screenRes  Request.ServerVariables(HTTPXJPHONEDISPLAY)
    delimiter  
  End If
  resArray  Split(screenRes, delimiter, 2)
  If (UBound(resArray)  1)  2 Then
    googleScreenRes  uw  resArray(0)  uh  resArray(1)
  End If
End Function

Function googleMuid()
  Dim muid
  muid  Request.ServerVariables(HTTPXDCMGUID)
  If Not IsEmpty(muid) Then
    googleMuid  muid  muid
  End If
  muid  Request.ServerVariables(HTTPXUPSUBNO)
  If Not IsEmpty(muid) Then
    googleMuid  muid  muid
  End If
  muid  Request.ServerVariables(HTTPXJPHONEUID)
  If Not IsEmpty(muid) Then
    googleMuid  muid  muid
  End If
  muid  Request.ServerVariables(HTTPXEMUID)
  If Not IsEmpty(muid) Then
    googleMuid  muid  muid
  End If
End Function

Function googleViaAndAccept(googleUserAgent)
  If Len(googleUserAgent)  0 Then
    Dim via
    via  Server.URLEncode(Request.ServerVariables(HTTPVIA))
    If Not IsEmpty(via) Then
      googleViaAndAccept  via  via
    End If
    Dim accept
    accept  Server.URLEncode(Request.ServerVariables(HTTPACCEPT))
    If Not IsEmpty(accept) Then
      googleViaAndAccept  googleViaAndAccept  accept  accept
    End If
  End If
End Function

Dim googleTime, googleDt, googleScheme
googleTime  DateDiff(s, 01/01/1970 00:00:00, Now())
googleDt  (1000  googleTime)  Round(1000  (Timer - Int(Timer)))
googleScheme  http://
googleUserAgent  Server.URLEncode(Request.ServerVariables(HTTPUSERAGENT))
If StrComp(Request.ServerVariables(HTTPS), on)  0 Then googleScheme  https://

Dim googleAdUrl, googleAdOutput
googleAdUrl  http://pagead2.googlesyndication.com/pagead/ads 
  adtypetext 
  channel 
  clientca-mb-pub-6028634345959253 
  dt  googleDt 
  formatmobilesingle 
  ip  Server.URLEncode(Request.ServerVariables(REMOTEADDR)) 
  markupxhtml 
  oeutf8 
  outputxhtml 
  ref  Server.URLEncode(Request.ServerVariables(HTTPREFERER)) 
  url  Server.URLEncode(googleScheme  Request.ServerVariables(HTTPHOST)  Request.ServerVariables(URL)) 
  useragent  googleUserAgent 
  googleScreenRes() 
  googleMuid() 
  googleViaAndAccept(googleUserAgent)

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