dominio= location.host.toString()
dominiocom = 'http:\/\/' + dominio + '\/'
desde=location.pathname.toString()
IICC=[]
var grupos
var posiciones
var encontrado_grupo
var a_mostrar
mostrados = ''
nueva_mostrada_e = ''
nueva_mostrada_f = ''
nuevos_individuales = ''
existen_en_matriz=[]
function asigna_indices_existentes(){
for (i=0; i<C.length; i++){
IICC[i]=[]
for (ii=0; ii<C[i].length; ii++){
IICC[i][ii]=ii
}
}
}
asigna_indices_existentes()

galleta = lega('mostrada_alter')

function analiza_g(){
if (galleta != '') {
grupos = galleta.split('G')
for (i=0; i<grupos.length-1; i++){
posiciones = grupos[i].split('_')
grupo_encontrado = posiciones[posiciones.length-1]
if (grupo_encontrado == grupo){
encontrado_grupo='si'
posiciones.pop()
mostrados = posiciones
} else {
if (mostrados == '') {
nueva_mostrada_e += grupos[i] + 'G'
} else {
nueva_mostrada_f += grupos[i] + 'G'
}
}
}
}
return (encontrado_grupo,nueva_mostrada_e,nueva_mostrada_f,mostrados)
}
analiza_g()
function busca(pos,sem){
if (C[pos].length>1){
if (galleta != ''){
if (mostrados != ''){
individuales = mostrados[pos].split('C')
individuales.pop()
if (individuales.length != 0 && individuales.length != IICC[pos].length){
for (iii=0;iii<individuales.length;iii++){
nuevos_individuales +=  individuales[iii] + 'C'
for (iv=0;iv < IICC[pos].length;iv++){
if (individuales[iii] == IICC[pos][iv]){
IICC[pos].splice(iv,1)
break
}
}
}
elegida = Math.floor(sem*IICC[pos].length)
nuevos_individuales +=  IICC[pos][elegida] + 'C_'
a_mostrar = IICC[pos][elegida]
} else if (individuales.length == IICC[pos].length) {
quito=individuales.pop()
elegida = Math.floor(sem*individuales.length)
nuevos_individuales += individuales[elegida] + 'C_'
a_mostrar = individuales[elegida]
} else {
elegida = Math.floor(sem*IICC[pos].length)
nuevos_individuales += IICC[pos][elegida] + 'C_'
a_mostrar = IICC[pos][elegida]
}
}
} 
if (encontrado_grupo != 'si'){
elegida = Math.floor(sem*IICC[pos].length)
nuevos_individuales += IICC[pos][elegida] + 'C_'
a_mostrar = IICC[pos][elegida]
}
} else if (C[pos].length==1){
a_mostrar = 0
} else {
a_mostrar = "ninguna"
nuevos_individuales += '_'
}
return (a_mostrar)
}



function escribela (pos,sem){
//	analiza_g()
//	alert(galleta)
	busca(pos,sem)

		aviso="<a class='publi' href='" + dominiocom  + "revista\/publicidad.html' title='caracter&iacute;sticas t&eacute;cnicas, publicidad y contrataci&oacute;n'>publicidad<\/a>"

	if (a_mostrar != 'ninguna') {
		tipo=C[pos][a_mostrar][C[pos][a_mostrar].length-1]
		if(tipo=='promo'){
			aviso="<span class='publi' style='color: #c33;margin:4px 0; display: block'>promoci&oacute;n<\/span>"
			tipo=C[pos][a_mostrar][C[pos][a_mostrar].length-2]
			}
		switch (tipo) {
			case 'clickTAG':
			case 'clickTag':
				elenlace= dominiocom + "pubs\/alter\/imc\/" + C[pos][a_mostrar][0] + "?"+tipo+"=" + C[pos][a_mostrar][1]
				d.write("<div style='font-size:.8em;line-height:14px;letter-spacing:.5em;font-family: helvetica,sans serif; position: relative; top:2px'>"+aviso+"<\/div><div style='background:"+ C[pos][a_mostrar][5] +";padding:2px 18px 2px;'><object classid='clsid:d27cdb6e-ae6d-11cf-96b8-444553540000' codebase='http:\/\/download.macromedia.com\/pub\/shockwave\/cabs\/flash\/swflash.cab#version=10,0,0,0' width='" + C[pos][a_mostrar][2] + "' height='" + C[pos][a_mostrar][3] + "' alt='publicidad: " + C[pos][a_mostrar][4] + "' title='publicidad: " + C[pos][a_mostrar][4] + "'><param name='movie' value='" + elenlace+"'><embed src='" + elenlace + "' quality='high' pluginspage='http:\/\/www.macromedia.com\/go\/getflashplayer' type='application\/x-shockwave-flash' width='" + C[pos][a_mostrar][2] + "' height='" + C[pos][a_mostrar][3] + "'><\/embed><\/object></div>");
				break;
			case 'swf':
				elenlace= dominiocom + "pubs\/alter\/imc\/" + C[pos][a_mostrar][0]
				d.write("<div style='font-size:.8em;line-height:14px;letter-spacing:.5em;font-family: helvetica,sans serif; position: relative; top:2px'>"+aviso+"<\/div><div style='background:"+ C[pos][a_mostrar][5] +";padding:2px 18px 2px;'><object classid='clsid:d27cdb6e-ae6d-11cf-96b8-444553540000' codebase='http:\/\/download.macromedia.com\/pub\/shockwave\/cabs\/flash\/swflash.cab#version=10,0,0,0' width='" + C[pos][a_mostrar][2] + "' height='" + C[pos][a_mostrar][3] + "' alt='publicidad: " + C[pos][a_mostrar][4] + "' title='publicidad: " + C[pos][a_mostrar][4] + "'><param name='movie' value='" + elenlace+"'><embed src='" + elenlace + "' quality='high' pluginspage='http:\/\/www.macromedia.com\/go\/getflashplayer' type='application\/x-shockwave-flash' width='" + C[pos][a_mostrar][2] + "' height='" + C[pos][a_mostrar][3] + "'><\/embed><\/object></div>");
				break;
 				break;
			case 'especial':
				sas_tmstp=Math.round(sem*10000000000);
				sas_masterflag=1;
				sas_pageid='19782/139607';
				sas_formatid=1888;	
				sas_target='';
				if (sas_masterflag==1) {sas_masterflag=0;sas_master='M';} else {sas_master='S';};
				d.write('<div style="font-size:.8em;line-height:14px;letter-spacing:.5em;font-family: helvetica,sans serif; position: relative; top:2px">'+aviso+'<\/div><div style="background:'+ C[pos][a_mostrar][5] +';padding:2px 18px 2px;"><scr'+'ipt src="http:\/\/www2.smartadserver.com\/call\/pubj\/' + sas_pageid + '\/' + sas_formatid + '\/' + sas_master + '\/' + sas_tmstp + '\/' + escape(sas_target) + '?"><\/scr'+'ipt><\/div>')
				break;
			case 'especial2':
				d.write('<div style="font-size:.8em;line-height:14px;letter-spacing:.5em;font-family: helvetica,sans serif; position: relative; top:2px">'+aviso+'<\/div><div style="background:'+ C[pos][a_mostrar][5] +';padding:2px 18px 2px;"><script type="text\/javascript" src="http:\/\/cemex.solution.weborama.fr\/fcgi-bin\/adserv.fcgi?tag=488822&f=18&ef=0&clicktag=http:\/\/www.tectonica.es\/cgi-bin\/pubs\/contadores\/alterg' + grupo + '.pl?enlace="><\/script><\/div>')
				
				
				
				break;
			default	:
				d.write("<div style='color:#000;font-size:.8em;line-height:14px;letter-spacing:.5em;font-family: helvetica,sans serif; position: relative; top:2px'>"+aviso+"<\/div><div style='background:" + C[pos][a_mostrar][5] + ";padding:2px 18px 2px;'><a href='" + C[pos][a_mostrar][1] + "' onclick=\"window.open('http:\/\/www.tectonica.es\/cgi-bin\/pubs\/contadores\/alterg" + grupo + ".pl\?enlace=" + C[pos][a_mostrar][1] + "&desde=" + desde +"');return false\" title='publicidad: " + C[pos][a_mostrar][4] + "' ><img src='" + dominiocom + "pubs\/alter\/imc\/" + C[pos][a_mostrar][0] + "' alt='publicidad: " + C[pos][a_mostrar][4] + "' width='" + C[pos][a_mostrar][2] + "' height='" + C[pos][a_mostrar][3] + "'><\/a></div>")
			}
		}
	}




function escgall(){
nuevos_individuales +=  grupo + 'G'
setCookie('mostrada_alter',nueva_mostrada_e+nuevos_individuales+nueva_mostrada_f,dominio,'/')
}