ads.tol de con-Q.tv

Adverstiment functions.

Constantes

• Text AdsUrl
  Url for javascript ads code.
• Text AdsCla
  Div class for ads code.
• Text AdsHtm
  Html call code for ads.

Funciones

• Text AdsRand(Real adsRat)
  Con una probabilidad de adsRat retorna el texto de un anuncio y con una probabilidad de 1-adsRat retorna el texto vacio. Por ejemplo, AdsRand(0.25) retorna un anuncio en 1 de cada 4 llamadas.

//////////////////////////////////////////////////////////////////////////////
Text AdsUrl = "http://www.edicionesacontracorriente.com/src/ads.js";
//////////////////////////////////////////////////////////////////////////////
PutDescription("Url for javascript ads code.", AdsUrl);
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text AdsCla = "<div class='Ads'>";
//////////////////////////////////////////////////////////////////////////////
PutDescription("Div class for ads code.", AdsCla);
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text AdsHtm = "\n" + AdsCla + "
  <script
    type='text/javascript'
     src="+Q(AdsUrl)+">
  </script> 
  <script type='text/javascript'>
    AdsBan('',700,'');
  </script>
</div>
";
//////////////////////////////////////////////////////////////////////////////
PutDescription("Html call code for ads.", AdsHtm);
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text AdsRand(Real adsRat)
//////////////////////////////////////////////////////////////////////////////
{ If(GE(Rand(0,1), adsRat), "", AdsHtm) };
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Con una probabilidad de adsRat retorna el texto de un anuncio y
con una probabilidad de 1-adsRat retorna el texto vacio.
Por ejemplo, AdsRand(0.25) retorna un anuncio en 1 de cada 4 llamadas.",
AdsRand);
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
// FILE    : ads.tol
// AUTHOR  : http://www.asolver.com
// PURPOSE : Adverstiment functions.
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text AdsUrl = "http://www.edicionesacontracorriente.com/src/ads.js";
//////////////////////////////////////////////////////////////////////////////
PutDescription("Url for javascript ads code.", AdsUrl);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text AdsCla = "<div class='Ads'>";
//////////////////////////////////////////////////////////////////////////////
PutDescription("Div class for ads code.", AdsCla);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text AdsHtm = "\n" + AdsCla + "
  <script
    type='text/javascript'
     src="+Q(AdsUrl)+">
  </script> 
  <script type='text/javascript'>
    AdsBan('',700,'');
  </script>
</div>
";
//////////////////////////////////////////////////////////////////////////////
PutDescription("Html call code for ads.", AdsHtm);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// FUNCTIONS
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text AdsRand(Real adsRat)
//////////////////////////////////////////////////////////////////////////////
{ If(GE(Rand(0,1), adsRat), "", AdsHtm) };
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Con una probabilidad de adsRat retorna el texto de un anuncio y
con una probabilidad de 1-adsRat retorna el texto vacio.
Por ejemplo, AdsRand(0.25) retorna un anuncio en 1 de cada 4 llamadas.",
AdsRand);
//////////////////////////////////////////////////////////////////////////////