home *** CD-ROM | disk | FTP | other *** search
/ Enter 2001 July / EnterCD7.iso / Off-line / w2 / at7.exe / @t7 / dane / banery.js < prev    next >
Encoding:
Text File  |  2001-03-30  |  618 b   |  27 lines
  1. var ilosc=3;
  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.diablo2center.prv.pl/";
  8.   baner="reklama/d2c.gif";
  9.   pasek="Strona o Diablo 2";
  10. } else
  11.  
  12. if(losowa==1) {
  13.   link="http://www.arek.informatyka.poddebice.pl";
  14.   baner="reklama/arek.gif";
  15.   pasek="Informatyka";
  16. } else
  17.  
  18. if(losowa==2) {
  19.   link="w.htm";
  20.   baner="reklama/rek.gif";
  21.   pasek="Zareklamuj siΩ !";
  22. };
  23.  
  24. document.write('<a href="'+link+'">');
  25. document.write('<img border="0" width="400" height="50" src="'+baner);
  26. document.writeln('" alt="'+pasek+'"></a>');
  27.