home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2002 November / MICD_2002_11.iso / Www / @t / dane / banery.js < prev    next >
Text File  |  2002-09-08  |  718b  |  34 lines
  1. var ilosc=4;
  2. var losowa=Math.floor(ilosc*Math.random());
  3. var link="";
  4. var baner="";
  5. var pasek="";
  6. if(losowa==0) {
  7.   link="http://www.lomsel.prv.pl ";
  8.   baner="reklama/lomsel.gif";
  9.   pasek="Lomsel";
  10. } else
  11.  
  12. if(losowa==1) {
  13.   link="http://www.osama.glt.pl ";
  14.   baner="reklama/osama.gif";
  15.   pasek="Osama";
  16. } else
  17.  
  18.  
  19. if(losowa==2) {
  20.   link="http://www.siteql.prv.pl ";
  21.   baner="reklama/siteql.gif";
  22.   pasek="SiteQl";
  23. } else
  24.  
  25. if(losowa==3) {
  26.   link="http://www.emustrus.prv.pl ";
  27.   baner="reklama/emustrus.gif";
  28.   pasek="Emu Strus";
  29. };
  30.  
  31. document.write('<a href="'+link+'">');
  32. document.write('<img border="0" width="400" height="50" src="'+baner);
  33. document.writeln('" alt="'+pasek+'"></a>');
  34.