home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 December / Chip_2000-12_cd1.bin / zkuste / Delphi / experti / d5 / helpexp / help / geov2.js < prev    next >
Encoding:
Text File  |  2000-08-25  |  635 b   |  27 lines
  1. var ycsdone;
  2. function geovisit()
  3. {
  4.   var z;
  5.   if (ycsdone)
  6.     return;
  7.   z="&r="+escape(document.referrer);
  8.   z=z+"&b="+escape(navigator.appName+" "+navigator.appVersion);
  9.   w=parseFloat(navigator.appVersion);
  10.   if (w > 2.0) {
  11.     z=z+"&s="+screen.width+"x"+screen.height;
  12.     z=z+"&o="+navigator.platform;
  13.     v="1.2";
  14.     if (navigator.appName != "Netscape") {
  15.       z=z+"&c="+screen.colorDepth;
  16.     } else {
  17.       z=z+"&c="+screen.pixelDepth
  18.     }
  19.     z=z+"&j="+navigator.javaEnabled();
  20.   } else {
  21.     v=1.0;
  22.   }
  23.   z=z+"&v="+v;
  24.   document.writeln("<IMG BORDER=0 SRC=\"http://visit.geocities.com/visit.gif?"+z+"\">");
  25.   ycsdone=1;
  26. }
  27.