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){
busca(pos,sem)
if (a_mostrar != 'ninguna') {
tip = /.*\.(\w\w\w)/
tipo=C[pos][a_mostrar][0].match(tip)

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

if(C[pos][a_mostrar][7]=='promo'){
	aviso="<span class='publi' style='color: #c33'>promoci&oacute;n<\/span>"
	}


if (tipo[1] == 'swf'){
if(C[pos][a_mostrar][5] == 'clickTag'){
elenlace= dominiocom + "pubs\/alter\/g"+ grupo + "\/" + C[pos][a_mostrar][0] + "?clickTag=" + C[pos][a_mostrar][1]
//alert(elenlace)
texpub = "<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:#ccc;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>"
} else {
texpub = "<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:#ccc;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='" + dominiocom + "pubs\/alter\/g"+ grupo + "\/" + C[pos][a_mostrar][0] + "'><embed src='" + dominiocom + "pubs\/alter\/g"+ grupo + "\/" + C[pos][a_mostrar][0] + "' 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] + "' alt='publicidad: " + C[pos][a_mostrar][4] + "' title='publicidad: " + C[pos][a_mostrar][4] + "'><\/embed><\/object></div>"
}
} else {

fondo="#ccc"
if(C[pos][a_mostrar][6]){
	fondo=C[pos][a_mostrar][6]
	}


texpub = "<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:" + fondo + ";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\/g"+ grupo + "\/" + 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>"
}
 ti('pub'+pos,texpub)
}
}
function escgall(){
nuevos_individuales +=  grupo + 'G'
setCookie('mostrada_alter',nueva_mostrada_e+nuevos_individuales+nueva_mostrada_f,dominio,'/')
}