home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 March / Chip_2000-03_cd.bin / zkuste / Delphi / navody / tips3_soubory / jsmaster < prev    next >
Text File  |  2000-01-17  |  2KB  |  70 lines
  1. // Copyright 1999 ValueClick Inc. All rights reserved.
  2.  
  3. ValueLoaded = true;
  4. ValueFullVersion = ValueVersion + ".6";
  5.  
  6. function ValueShowAd() {
  7.   
  8.   ValueOptions = '&v=' + ValueFullVersion;
  9.   if (self.ValueCategory) ValueOptions += '&c=' + self.ValueCategory;
  10.   if (self.ValueBorder)   ValueOptions += '&border=1';
  11.   if (! self.ValueNoText) ValueOptions += '&text=1';
  12.  
  13.   ValueRandom   = Math.round(Math.random()*1000) + 1;
  14.   ValueHostInfo = "host=" + ValueHost + "&b=" + ValueID + "." + ValueRandom;
  15.  
  16.   ValueServer   = "http://oz.valueclick.com/";
  17.  
  18.   ValueBanner   = ValueServer + 'cycle?' + ValueHostInfo + ValueOptions;
  19.   ValueRedirect = ValueServer + 'redirect?' + ValueHostInfo;
  20.  
  21.   ValueDimensions();
  22.  
  23.   if (navigator.userAgent.indexOf("MSIE") >= 0) {
  24.     // don't try to set the bgcolor etc in the IFRAME for MSIE 3 
  25.     if (navigator.appVersion.indexOf('MSIE 3') < 0) {
  26.       if (self.ValueBgColor)    ValueBanner += '&bgcolor='    + escape(self.ValueBgColor);
  27.       if (self.ValueLinkColor)  ValueBanner += '&linkcolor='  + escape(self.ValueLinkColor);
  28.       if (self.ValueAlinkColor) ValueBanner += '&alinkcolor=' + escape(self.ValueAlinkColor);
  29.       if (self.ValueVlinkColor) ValueBanner += '&vlinkcolor=' + escape(self.ValueVlinkColor);
  30.     }
  31.  
  32.     document.write('<IFRAME ID="VC" NAME="VC" WIDTH="' + IWidth + '" HEIGHT="' + IHeight + '" '); 
  33.     document.write('SCROLLING="no" FRAMEBORDER="0" FRAMESPACING="0" MARGINHEIGHT="0" ');
  34.     document.write('MARGINWIDTH="0" BORDER="0" HSPACE="0" VSPACE="0" ');
  35.     document.write('ALIGN="center" SRC="' + ValueBanner + '&t=html">');
  36.     document.write('</IFRAME>');
  37.   } else {
  38.     // should be all Netscapes that are reading this file 
  39.     if (self.ValueVersion >= 1) {
  40.       document.write('<TABLE BORDER=0><TR><TD>');
  41.       document.write('<ILAYER ID="VC" VISIBILITY="hide" BGCOLOR="" WIDTH="' + IWidth);
  42.       document.write('" HEIGHT="' + IHeight + '"></ILAYER>');
  43.       document.write('</TD></TR></TABLE>');
  44.     } else {
  45.       document.write('<SCRIPT SRC="' + ValueBanner + '&t=js"');
  46.       document.write(' LANGUAGE="JavaScript"></SCR' + 'IPT>');
  47.     }
  48.   }
  49. }
  50.  
  51. function ValueDimensions() {
  52.   if (self.ValueNoText) {
  53.     if (self.ValueBorder) {
  54.       IWidth  = 472;  
  55.       IHeight = 64;
  56.     } else {
  57.       IWidth  = 468;  
  58.       IHeight = 60;
  59.     }       
  60.   } else {
  61.     if (self.ValueBorder) {
  62.       IWidth  = 472;  
  63.       IHeight = 84;
  64.     } else {
  65.       IWidth  = 468;  
  66.       IHeight = 84;
  67.     }       
  68.   }
  69. }
  70.