function cargarframes() 
{ 
var dest;
dest = "http://www.artehistoria.net/frames.htm?"+ document.location; 
top.location=dest;
} 

function salirframes() 
{ 
var dest;
dest = "http://www.artehistoria.net/frames.htm?"+ document.location; 
top.location=self;
} 

function PopIt(filename, h, w){  
        popup = window.open(filename,"popDialog","height="+h+",width="+w+",scrollbars=no,toolbar=no")  
        if ( popup.document.close() ) {
                popup.document.close()
        }
}





if (self == top /*top.frames.length <2*/)
{ 
;
//document.write("<CENTER><B>Para cargar los marcos pulse");
//document.write(" <A HREF='javascript:cargarframes()'>aquí</A>.</B></CENTER><P>"); 
//PopIt('http://www.artehistoria.net/banners/anunciotodomanet.htm', 300, 400); 
//PopIt('http://www.artehistoria.net/banners/anunciotesoros.htm', 300, 400); 
//PopIt('http://www.artehistoria.net/banners/anuncioPDF.htm', 392 , 532); 
//cargarframes();
} 
else 
{
//document.write("Hay frames: ");
//document.write(top.frames.length);
//  --  document.write(top.frames[0].url);

document.write("<CENTER><B>Para salir de frames pulse");
document.write(" <A HREF='javascript:salirframes()'>aquí</A>.</B></CENTER><P>"); 
//PopIt('http://www.artehistoria.net/banners/anunciotodomanet.htm', 300, 400); 
//PopIt('http://www.artehistoria.net/banners/anunciotesoros.htm', 300, 400); 
//PopIt('http://www.artehistoria.net/banners/anuncioPDF.htm', 392 , 532); 
//cargarframes();


}




var NAnuncios = 50;

var nact = 0;


Graficos = new Array(NAnuncios);
Destino = new Array(NAnuncios);
Textos = new Array(NAnuncios);
Pesos = new Array(NAnuncios);



nact = 0;

Graficos[nact] = "http://www.artehistoria.net/banners/diana.gif";
Destino[nact] =  "http://www.artehistoria.net/redir4.htm?http://www.dianacasado.com/";
Textos[nact] =   "El mundo del té en WWWW.DIANACASADO.COM";
Pesos[nact] = 10;
nact = nact+1;



// Portal del peregrino de la Junta
Graficos[nact] = "";
Destino[nact] =  "http://www.artehistoria.net/banners/iultreia.htm";
Textos[nact] =   "www.iultreia.net";
Pesos[nact] = 10;
nact = nact+1;


// Foro Artehistoria
Graficos[nact] = "";
Destino[nact] =  "http://www.artehistoria.net/banners/anuncioforo.htm";
Textos[nact] =   "Foro artehistoria.net";
Pesos[nact] = 20;
nact = nact+1;



// anuncio histesp
Graficos[nact] = "";
Destino[nact] =  "http://www.artehistoria.net/banners/anunciohistesp.htm";
Textos[nact] =   "Historia de España";
Pesos[nact] = 20;
nact = nact+1;

// anuncio mortadelo
Graficos[nact] = "";
Destino[nact] =  "http://www.artehistoria.net/banners/anunciomortadelo.html";
Textos[nact] =   "Todo Mortadelo y Filemón";
Pesos[nact] = 40;
nact = nact+1;







var totpesos = 0;

var x=0;

for (x=0;x<nact;x++)
    {totpesos = totpesos + Pesos[x];}




var N1 = Math.random()*totpesos;
var N2 = Math.round(N1-0.49);

var ntot =0;

N = 0;
for (x=0;x<nact;x++)
    { ntot = ntot + Pesos[x];
    if (ntot >= N2) 
        {
        N = x;
        break;
        }
    
    }

if (Graficos[N] != "")
   {
   document.write('<center><a href=\"' + Destino[N] + '\" target=\"_blank\">');
   document.write('<img src=\"'+Graficos[N]+'\" height=60 width=468 '); 
   document.write('alt=\"' + Textos[N] + '\" border=0></a>');
   }
else
   {
   document.write('<center><iframe src="'+  Destino[N] +'" width=468 height=60 frameborder=0 border=0 marginwidth=0 marginheight=0 scrolling="no"></iframe>');
   }

   



<!--Contador propio--> 
//document.write('<img WIDTH=1 HEIGHT=1 border=0 src="http://www.artehistoria.net/banners/counter2.cgi?i">');

document.write('</center>');