// ** Banner-Machine 1.0 basic (Version für XHTML 1.0 Transitional: Release 2.0 GC Heidental) 
// ** tested: i.e 5.5, i.e 6.0, i.e 7.0, Firefox 0.8, ne 6.0, opera 7.51
// ** (C) Copyright 2007 by Unternehmensberatung Roland Leininger  D 79804 Dogern


// ** Controler

function banner (tgt, pic)
{
  this.target = tgt;
  this.picture = pic;
}

function getBanners(tgt, pic)
{
  idxCount ++; banner[idxCount] = new banner (tgt, pic);
}

function NeuesFenster(URL)
{
window.open(URL)
}

function setBanner ()
{
  var txt ="", idx = bannerIdx();
  if (!banner[idx]) idx = 0;
  MyURL = banner[idx].target
  MyURL = "'" + MyURL + "'"  
  txt += '<a href="javascript:NeuesFenster('+ MyURL + ')">';
  txt += '<img width=200 height=100 style="border-top-style: none; border-right-style: none; border-left-style: none; border-bottom-style: none" id="bannerPic"  src="http://www.pcl.de/gch/banner/images/'+ banner[idx].picture +'"></a>';
  document.write(txt);
}

function bannerIdx()
{
   var fuse = 1000, cnt = 0, retVal = idxCount +1;
   var ex = String(idxCount).length;
   var parts = Math.pow(10, ex);
   while(retVal > idxCount && cnt < fuse)
   { cnt ++; retVal = randomizer(parts) }
   if (cnt >= fuse) retVal = idxCount;
   return retVal; 
}

function randomizer(parts)
{
  var r = Math.random(); r = Math.floor(r * parts); return r;
}

// ** Banner- und Linkliste

var idxCount = -1;   // ** never change
if (typeof(banner)!= "undefined") loadBanners();
function loadBanners()
{
getBanners("http://www.fengshuigarden.ch","banner01.gif");
getBanners("http://www.haeuselmann-transporte.ch","banner02.gif");
getBanners("http://www.belcare.com","banner03.gif");
getBanners("http://www.arnoldsystems.ch","banner04.gif");
getBanners("http://www.skyline-fitness.ch","banner05.gif");
getBanners("http://www.scherrerag.ch","banner06.gif");
getBanners("http://www.garten-shop.ch","banner07.gif");
getBanners("http://www.pcl.de/euv/index.htm","banner08.gif");
getBanners("http://www.rowa-automobile.ch","banner09.gif");
getBanners("http://www.praxislerch.ch","banner10.gif");
getBanners("http://www.pcl.de/auma/welcome.htm","banner11.gif");
}