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

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>Cargando marcos. 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();
//PopIt('http://www.artehistoria.net/banners/popupmortadelo.htm', 300, 400); 
} 
else 
{
//document.write("Hay frames: ");
//document.write(top.frames.length);
//  --  document.write(top.frames[0].url);


}




var NAnuncios = 50;

var nact = 0;


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


Graficos[0] = "http://www.artehistoria.net/banners/general.gif";
Destino[0] =  "http://www.artehistoria.net/redir.htm?http://www.artehistoria.net/frames.htm?http://www.artehistoria.net/banners.htm";
Textos[0] =   "artehistoria.net, con las ONG.";
Pesos[0] = 5;



Graficos[1] = "http://www.artehistoria.net/banners/banner2.gif";
Destino[1] =  "http://www.artehistoria.net/redir.htm?http://www.capitannet.com";
Textos[1] =   "Capitán Net";
Pesos[1] = 1;


Graficos[2] = "http://www.artehistoria.net/banners/banner3.gif";
Destino[2] =  "http://www.artehistoria.net/redir.htm?http://www.unicef.es";
Textos[2] =   "Unicef";
Pesos[2] = 1;

Graficos[3] = "http://www.artehistoria.net/banners/anesvad.gif";
Destino[3] =  "http://www.artehistoria.net/redir.htm?http://www.anesvad.org/";
Textos[3] =   "Anesvad";
Pesos[3] = 1;

Graficos[4] = "http://www.artehistoria.net/banners/banner1.gif";
Destino[4] =  "http://www.artehistoria.net/redir.htm?http://www.enredate.org";
Textos[4] =   "Enredate";
Pesos[4] = 1;

Graficos[5] = "http://www.artehistoria.net/banners/AAccion.gif";
Destino[5] =  "http://www.artehistoria.net/redir.htm?http://www.ayudaenaccion.org/home2.htm";
Textos[5] =   "Ayuda en Acción";
Pesos[5] = 1;

Graficos[6] = "http://www.artehistoria.net/banners/msf.gif";
Destino[6] =  "http://www.artehistoria.net/redir.htm?http://www.msf.es";
Textos[6] =   "En Sudáfrica, uno de cada 5 adultos está infectado con el VIH/SIDA. Actualmente son ya más de 4 millones de personas las que sufren esta enfermedad. Mientras tanto, 39 empresas farmacéuticas han presentado una demanda al Gobierno de Sudáfrica en contra de las leyes que pretenden hacer más asequibles y accesibles los medicamentos esenciales a su población.";
Pesos[6] = 1;

Graficos[7] = "http://www.artehistoria.net/banners/mdm.gif";
Destino[7] =  "http://www.artehistoria.net/redir.htm?http://www.medicosdelmundo.org/";
Textos[7] =   "Médicos del Mundo";		
Pesos[7] = 1;

Graficos[8] = "http://www.artehistoria.net/banners/inter_B2.gif";
Destino[8] =  "http://www.artehistoria.net/redir.htm?http://www.intervida.org/";
Textos[8] =   "Intervida";	
Pesos[8] = 1;

Graficos[9] = "http://www.artehistoria.net/banners/CRelsalvador.gif";
Destino[9] =  "http://www.artehistoria.net/redir.htm?http://www.cruzroja.es/";
Textos[9] =   "Cruz Roja Española. Campaña El Salvador";	
Pesos[9] = 1;

Graficos[10] = "http://www.artehistoria.net/banners/ninoperdido.gif";
Destino[10] =  "http://www.artehistoria.net/redir.htm?http://www.ayudaenaccion.org/home2.htm";
Textos[10] =   "Ayuda en Acción";	
Pesos[10] = 1;

Graficos[11] = "http://www.artehistoria.net/banners/BannerCERAI.jpg";
Destino[11] =  "http://www.artehistoria.net/redir.htm?http://www.cerai.es";
Textos[11] =   "Centro de Estudios Rurales y de Agricultura Internacional";	
Pesos[11] = 1;

Graficos[12] = "http://www.artehistoria.net/banners/bannerga1.gif";
Destino[12] =  "http://www.artehistoria.net/redir.htm?http://www.educacionsinfronteras.org/";
Textos[12] =   "Educación sin fronteras";	
Pesos[12] = 1;

Graficos[13] = "http://www.artehistoria.net/banners/IO_agua.gif";
Destino[13] =  "http://www.artehistoria.net/redir.htm?http://www.intermon.org/";
Textos[13] =   "Intermón";	
Pesos[13] = 1;

Graficos[14] = "http://www.artehistoria.net/banners/IO_derechos.gif";
Destino[14] =  "http://www.artehistoria.net/redir.htm?http://www.intermon.org/";
Textos[14] =   "Intermón";	
Pesos[14] = 1;

Graficos[15] = "http://www.artehistoria.net/banners/comerc_justo.gif";
Destino[15] =  "http://www.artehistoria.net/redir.htm?http://www.intermon.org/comerciojusto/";
Textos[15] =   "Intermón por el comercio justo.";	
Pesos[15] = 1;

Graficos[16] = "http://www.artehistoria.net/banners/unicef-caras.jpg";
Destino[16] =  "http://www.artehistoria.net/redir.htm?http://www.unicef.org/spanish/";
Textos[16] =   "UNICEF";
Pesos[16] = 1;

Graficos[17] = "http://www.artehistoria.net/banners/afganistan400x50.gif";
Destino[17] =  "http://www.artehistoria.net/redir.htm?http://www.cruzroja.es/";
Textos[17] =   "Cruz Roja Española. Campaña Afganistán";	
Pesos[17] = 1;

Graficos[18] = "http://www.artehistoria.net/banners/armasbaner.gif";
Destino[18] =  "http://www.artehistoria.net/redir.htm?http://www.msf.es";
Textos[18] =   "Médicos sin fronteras. Campaña Adios a las armas.";
Pesos[18] = 1;

Graficos[19] = "http://www.artehistoria.net/banners/Banner-GH.gif";
Destino[19] =  "http://www.artehistoria.net/redir.htm?http://www.globalhumanitaria.com/form.htm";
Textos[19] =   "Global Humanitaria. Apadrina a un niño por sólo 100 Pta. al dia.";
Pesos[19] = 1;

Graficos[20] = "http://www.artehistoria.net/banners/banner_adena.gif";
Destino[20] =  "http://www.artehistoria.net/redir.htm?http://www.wwf.es/colabora_asocia.php";
Textos[20] =   "WWF / Adena";
Pesos[20] = 1;

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



nact = 22;





//National geographic historia
//var uri = 'http://impes.tradedoubler.com/imp/img/234236/552136?' + new String (Math.random()).substring (2, 11);

//Graficos[nact] = uri;
//Destino[nact] =  "http://tracker.tradedoubler.com/click?p=18549&a=552136&g=234236";
//Textos[nact] =   "Historia National Geographic";
//Pesos[nact] = 60;
//nact = nact+1;




// UOC
//var uri2 = 'http://impes.tradedoubler.com/imp/iframe/621651/552136?' + new String (Math.random()).substring (2, 11);
////var uri2 = "http://impes.tradedoubler.com/imp/iframe/621651/552136";

////Graficos[nact] = uri2;
//Destino[nact] =  "http://tracker.tradedoubler.com/click?p=20080&a=552136&g=621651";
//Textos[nact] =   "UOC Ensenyament Obert 4";
//Pesos[nact] = 60;
//nact = nact+1;

//Graficos[nact] = '';
//Destino[nact] =  uri2;
//Textos[nact] =   "UOC Ensenyament Obert 5";
//Pesos[nact] = 60;
//nact = nact+1;




////Graficos[nact] = "";
//Destino[nact] =  "http://www.artehistoria.net/banners/anunciouimp.htm";
//Textos[nact] =   "Curso -Arte y cultura para nuevos públicos en la era digital-";
//Pesos[nact] = 100;
//nact = nact+1;



Graficos[nact] = "";
Destino[nact] =  "http://www.artehistoria.net/banners/anunciotesorosredir.htm";
Textos[nact] =   "Tesoros del Arte Español";
Pesos[nact] = 5;
nact = nact+1;

Graficos[nact] = "http://www.artehistoria.net/banners/legadobanner1.jpg";
Destino[nact] =  "http://www.artehistoria.net/redir8.htm?http://www.legadoandalusi.es";
Textos[nact] =   "Legado andalusí";
Pesos[nact] = 1;
nact = nact+1;

Graficos[nact] = "http://www.artehistoria.net/banners/atapuercabanner1.gif";
Destino[nact] =  "http://www.artehistoria.net/redir9.htm";
Textos[nact] =   "Atapuerca";
Pesos[nact] = 5;
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] = 2;
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;

// PicassoMio
Graficos[nact] = "http://www.myaffiliateprogram.com/u/picasso/showban.asp?id=1917&img=banner_paintings_en.jpg";
Destino[nact] =  "http://www.picassomio.com/a.php3?id=1917";
Textos[nact] =   "PicassoMio";
Pesos[nact] = 5;
nact = nact+1;

// PicassoMio
//Graficos[nact] = "http://www.myaffiliateprogram.com/u/histbook/showban.asp?id=1551&img=banner2.gif";
//Destino[nact] =  "http://www.myaffiliateprogram.com/u/histbook/b.asp?id=1551";
//Textos[nact] =   "History Bookshop";
//Pesos[nact] = 5;
//nact = nact+1;


//allposters flash
Graficos[nact] = "";
Destino[nact] =  "http://www.artehistoria.net/banners/anuncioallposters.htm";
Textos[nact] =   "ALLPOSTERS.COM";
Pesos[nact] = 5;
nact = nact+1;

// USAFI


//Graficos[nact] = "http://www.artehistoria.net/banners/nspp_468x60_sp.gif";
//Destino[nact] =  "http://www.usafis.org/faq/land_spanish.asp?af=arh_es_nspp_468_sp";
//Textos[nact] =   "USAFIS";
////Pesos[nact] = 15;
//nact = nact+1;

//Graficos[nact] = "http://www.artehistoria.net/banners/nyc_468x60_sp.gif";
//Destino[nact] =  "http://www.usafis.org/faq/land_spanish.asp?af=arh_es_nyc_468_sp";
//Textos[nact] =   "USAFIS";
//Pesos[nact] = 15;
//nact = nact+1;

//Graficos[nact] = "http://www.artehistoria.net/banners/syel_468x60_sp.gif";
//Destino[nact] =  "http://www.usafis.org/faq/land_spanish.asp?af=arh_es_syel_468_sp";
//Textos[nact] =   "USAFIS";
//Pesos[nact] = 15;
//nact = nact+1;

//Graficos[nact] = "http://www.artehistoria.net/banners/gren1_440x58_sp.gif";
//Destino[nact] =  "http://www.usafis.org/faq/land_spanish.asp?af=arh_es_gren1_440_sp";
//Textos[nact] =   "USAFIS";
//Pesos[nact] = 15;
//nact = nact+1;

//Graficos[nact] = "http://www.artehistoria.net/banners/nyc_440x58_sp.gif";
//Destino[nact] =  "http://www.usafis.org/faq/land_spanish.asp?af=arh_es_nyc_440_sp";
//Textos[nact] =   "USAFIS";
//Pesos[nact] = 15;
//nact = nact+1;

//Graficos[nact] = "http://www.artehistoria.net/banners/pass_440x58_sp.gif";
//Destino[nact] =  "http://www.usafis.org/faq/land_spanish.asp?af=arh_es_pass_440_sp";
//Textos[nact] =   "USAFIS";
//Pesos[nact] = 15;
//nact = nact+1;


//Graficos[nact] = "http://www.artehistoria.net/banners/drp1_468x60_es_sp.gif";
//Destino[nact] =  "http://www.usafis.org/faq/land_spanish.asp?af=arh_es_drp1_468_sp";
//Textos[nact] =   "USAFIS";
//Pesos[nact] = 15;
//nact = nact+1;

//Graficos[nact] = "http://www.artehistoria.net/banners/folan_468x60_sp.gif";
//Destino[nact] =  "http://www.usafis.org/faq/land_spanish.asp?af=arh_es_fol_468_sp";
//Textos[nact] =   "USAFIS";
//Pesos[nact] = 15;
//nact = nact+1;

//Graficos[nact] = "http://www.artehistoria.net/banners/was_468x60_sp.gif";
//Destino[nact] =  "http://www.usafis.org/faq/land_spanish.asp?af=arh_es_was_468_sp";
//Textos[nact] =   "USAFIS";
//Pesos[nact] = 15;
//nact = nact+1;


// google adsense
Graficos[nact] = "";
Destino[nact] =  "http://www.artehistoria.net/banners/bannergoogle486x60.html";
Textos[nact] =   "PUBLICIDAD GOOGLE";
Pesos[nact] = 500;
nact = nact+1;


// anuncio publicidad
Graficos[nact] = "";
Destino[nact] =  "http://www.artehistoria.net/banners/anunciopublicidad.htm";
Textos[nact] =   "Publicidad 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>');