Randomize YPN and Adsense

This is really very simple but I have been asked a number of times how I do this on some of my sites.

The Code

Public Shared Function placeAds(channel as integer,width as integer,height as integer,linkColor as string)	
Dim r as New Random
Dim x as integer
Dim adSTR as String	
x = r.Next(0, 100)
if x > 50
  adSTR = ("<script language=""JavaScript"" type=""text/javascript"">" & vbcrlf)
  adSTR  &= ("<!--" & vbcrlf)
  adSTR  &= ("ctxt_ad_partner = 'xxxxxxxxxxx';" & vbcrlf)
  adSTR  &= ("ctxt_ad_section = '" & channel & "';" & vbcrlf)
  adSTR  &= ("ctxt_ad_bg = '';" & vbcrlf)
  adSTR  &= ("ctxt_ad_width = " & width & ";" & vbcrlf)
  adSTR  &= ("ctxt_ad_height = " & height & ";" & vbcrlf)
  adSTR  &= ("ctxt_ad_bc = 'FFFFFF';" & vbcrlf)
  adSTR  &= ("ctxt_ad_cc = 'FFFFFF';" & vbcrlf)
  adSTR  &= ("ctxt_ad_lc = '" & linkColor & "';" & vbcrlf)
  adSTR  &= ("ctxt_ad_tc = '000000';" & vbcrlf)
  adSTR  &= ("ctxt_ad_uc = '999999';" & vbcrlf)
  adSTR  &= ("// -->" & vbcrlf)
  adSTR  &= ("</script>" & vbcrlf)
  adSTR  &= ("<script language=""JavaScript"" src=""http://ypn-js.overture.com/partner/js/ypn.js"" type=""text/javascript"">" & vbcrlf)
  adSTR  &= ("</script>" & vbcrlf)

else		
  adSTR = ("<script type=""text/javascript""><!--" & vbcrlf)
  adSTR &= ("google_ad_client = ""pub-xxxxxxxxxxxxx"";" & vbcrlf)
  adSTR &= ("google_ad_width = " & width & ";" & vbcrlf)
  adSTR &= ("google_ad_height = " & height & ";" & vbcrlf)
  adSTR &= ("google_ad_format = """ & width & "x" & height & "_as"";" & vbcrlf)
  adSTR &= ("google_ad_type = ""text"";" & vbcrlf)
  adSTR &= ("google_ad_channel ="""";" & vbcrlf)
  adSTR &= ("google_color_border = ""FFFFFF"";" & vbcrlf)
  adSTR &= ("google_color_bg = ""FFFFFF"";" & vbcrlf)
  adSTR &= ("google_color_link = """ & linkColor & """;" & vbcrlf)
  adSTR &= ("google_color_url = ""999999"";" & vbcrlf)
  adSTR &= ("google_color_text = ""000000"";" & vbcrlf)
  adSTR &= ("//--></script>" & vbcrlf)
  adSTR &= ("<script type=""text/javascript""" & vbcrlf)
  adSTR &= ("  src=""http://pagead2.googlesyndication.com/pagead/show_ads.js"">" & vbcrlf)
  adSTR &= ("</script>" & vbcrlf)
end if
	Return adSTR
End Function

Useage


placeAds(channelID,width,height,linkcolor)

Comments

Will
11/23/2005 5:59:05 PM Very interesting tutorial Joe. I have an off-topic question in regards to your content management system. My spider sense is tingling and telling me that you develop primarlily in VB.NET. I was curious as to what engine (if any) you are using for your site. The naming convention of your URL`s lead me to believe that if you are using a content management system (i.e. blog engine) that you have implemented URL rewriting. If you have successfully implemented URL rewriting on this site (or any other for that matter) I, along with many others I am sure, would definitely be interested in reading a cleverly-crafted how-to on the subject. All the articles that I have read on rewriting deal with C# and codebehind models. me (at) willasrari (dot) com

Joe Maddalone 11/23/2005 9:37:32 PM All homegrown and handcoded... VB.NET... some sample code coming right up... you are going to hate how easy this is.

LATEST POSTS

PostBackUrl Equals Change the Friggin' Form Action . Curse you DBNull and/or Is Nothing! . Career Developers are Shitbags they are. Consolas Makes Me Geek-ier MS Consolas Font Abuse Things I Read Today and You Should Too Whilst searching for solutions I happened upon...

MOST POPULAR

Multiple IEs in Windows Firefox Vs. The World Who Is Xperya? ActionScript Form Fields Quick Watermark IE 7 beta 2 standalone

Randomize YPN and Adsense

The Code

Useage

Comments

Leave a Comment

Posts

Stores

LATEST POSTS

ADS

MOST POPULAR