//TEMATICAS===================================================================================TEMATICAS
		tematicas_total=5; 			// Numero de tematicas.
		tematica_nombre 				= new Array (tematicas_total); // Nombres Tematicas.
		tematica_activa 				= new Array (tematicas_total); // Tematicas activas.
		tematica_directorio 			= new Array (tematicas_total); // Directorio de la tematica
		tematica_html 					= new Array (tematicas_total); // Nombres HTML
		tematica_claves_perfiles	= new Array (tematicas_total); // Si existe la PAGINA_6.htm de Claves y Perfiles.
		tematica_orden 				= new Array (tematicas_total); // Indice Ordenado
		tematica_pais_primer			= new Array (tematicas_total); // Primer Pais activo por tematica
		tematica_sellos 				= new Array (tematicas_total); // Nmero de sellos de la coleccion basica de la Tematicas.
		//------------------------------------------ NOMBRE TEMATICA.
		tematica_nombre[0]="Minería";
		tematica_nombre[1]="Geología";
		tematica_nombre[2]="Minerales";
		tematica_nombre[3]="Fósiles";
		tematica_nombre[4]="Cactus";
		//------------------------------------------
		iniTematicas();
		//------------------------------------------ TEMATICA ACTIVA true por defecto
		//tematica_activa[3]=false;
		//------------------------------------------ NOMBRE DIRECTORIO solo si no coincide con el nombre
		tematica_directorio[0]="Mineria";
		tematica_directorio[1]="Geologia";
		tematica_directorio[3]="Fosiles";
		//------------------------------------------ NOMBRE HTML.
		tematica_html[0]="MINERÍA";
		tematica_html[1]="GEOLOGÍA";
		tematica_html[2]="MINERALES";
		tematica_html[3]="FÓSILES";
		tematica_html[4]="CACTUS";
		//------------------------------------------ Si existe la PAGINA_6.htm de Claves y Perfiles true por defecto
		tematica_claves_perfiles[3]=false;
		//------------------------------------------ NUMERO DE SELLOS DE LA COLECCION BASICA.
		tematica_sellos[0]=272;		// Mineria
		tematica_sellos[1]=18+1;	// Geologia. El 1 es compartido con mineria
		tematica_sellos[2]=151+12;	// Minerales. Los 12 son compartidos con mineria
		tematica_sellos[3]=24;		// Fosiles
		tematica_sellos[4]=229;		// Cactus


		
//PAISES========================================================================================PAISES
		paises_datos = new Array(
		  0, "AA", "Afganistán"					,	":1:2:"		,
		  1, "AB", "África del centro"		,	":2:0:"		,
		  2, "AC", "África del sur"			,	":4:2:0:"	,
		  3, "AD", "África del suroeste"		,	":2:0:"		,
		  4, "AE", "Albania"						,	":4:"			,
		  5, "AF", "Alemania Imperio"			,	":0:"			,
		  6, "AG", "Alemania Berlín"			,	":0:"			,
		  7, "AH", "Alemania"					,	":2:0:"		,
		  8, "AI", "Alemania DDR"				,	":4:3:2:0:"	,
		  9, "AJ", "Andorra"						,	""				,
		 10, "AK", "Angola"						,	":2:0:"		,
		 11, "AT", "Afars et Issas"			,	":1:"			,
		 12, "AL", "Anguilla"					,	":0:"			,
		 13, "AV", "Antartica Britanica"		,	":3:"			,
		 14, "AW", "Antartica Francesa"		,	":2:"			,
		 15, "AM", "Antigua & Barbuda"		,	":0:"			,
		 16, "AN", "Antillas Holandesa"		,	":2:0:"		,
		 17, "AO", "Argelia"						,	":2:0:"		,
		 18, "AP", "Argentina"					,	":4:0:"		,
		 19, "AX", "Armenia"						,	":2:"			,
		 20, "AY", "Aland"						,	":3:1:"		,
		 21, "AU", "Andorra Francesa"			,	":0:2:"		,
		 22, "AQ", "Australia"					,	":1:2:0:"	,
		 23, "AR", "Austria"						,	":1:2:0:"	,
		 24, "AS", "Azerbaiyán"					,	":2:"			,
		 25, "NA", "Namibia"						,	":2:0:"		,
		 26, "BA", "Bahamas"						,	":0:"			,
		 27, "BB", "Bélgica"						,	":4:2:0:"	,
		 28, "BO", "Benin"						,	":4:2:"		,
		 29, "BC", "Bhutan"						,	""				,
		 30, "BD", "Bielorusia"					,	":0:"			,
		 31, "BE", "Bolivia"						,	":1:0:"		,
		 32, "BF", "Bophutaswana"				,	":0:"			,
		 33, "BG", "Bosnia Herzegovina"		,	":2:0:"		,
		 34, "BH", "Botswana"					,	":4:2:0:"	,
		 35, "BI", "Brasil"						,	":4:1:2:0:"	,
		 36, "BJ", "Brunei"						,	""				,
		 37, "BK", "Bukina"						,	""				,
		 38, "BL", "Bulgaria"					,	":4:2:0:"	,
		 39, "BN", "Burkina Faso"				,	":1:"			,
		 40, "BM", "Burundi"						,	""				,
		 41, "CA", "Canada"						,	":1:2:0:"	,
		 42, "CB", "Colombia"					,	":0:2:"		,
		 43, "CN", "Congo"						,	""				,
		 44, "CO", "Corea del norte"			,	":4:"			,
		 45, "CC", ""								,	""				,
		 46, "CD", "Corea del sur"				,	""				,
		 47, "CE", "Costa de marfil"			,	""				,
		 48, "CF", "Costa del oro"				,	""				,
		 49, "CG", "Cuba"							,	":4:"			,
		 50, "CP", "Ciskei"						,	":4:"			,
		 51, "CM", "Checa, Republica"			,	""				,
		 52, "CH", "Checoslovaquia"			,	""				,
		 53, "CI", "Chile"						,	""				,
		 54, "CJ", "China"						,	""				,
		 55, "CL", "Chipre"						,	""				,
		 56, "CK", "Christmas Island"			,	""				,
		 57, "DD", "Dinamarca"					,	""				,
		 58, "DB", "Dominica"					,	""				,
		 59, "DC", "Dominicana, Republica"	,	""				,
		 60, "DA", "Dsibouti"					,	""				,
		 61, "EA", "Ecuador"						,	""				,
		 62, "EB", "Egipto"						,	""				,
		 63, "EC", "Emiratos Arabes"			,	""				,
		 64, "EF", "Eslovenia"					,	""				,
		 65, "ED", "España"						,	""				,
		 66, "EE", "Estados Unidos"			,	":4:"			,
		 67, "FA", "Falkland Islands"			,	""				,
		 68, "FF", "Feroe"						,	""				,
		 69, "FB", "Fidji"						,	""				,
		 70, "FC", "Filipinas"					,	""				,
		 71, "FD", "Finlandia"					,	""				,
		 72, "FE", "Formosa"						,	""				,
		 73, "FG", "Francia"						,	""				,
		 74, "GA", "Gabón"						,	""				,
		 75, "GB", "Ghana"						,	""				,
		 76, "GC", "Gibraltar"					,	""				,
		 77, "GD", "Gilbert & Ellice"			,	""				,
		 78, "GE", "Gran Bretaña"				,	""				,
		 79, "GF", "Granada"						,	""				,
		 80, "GJ", "Guayana"						,	":4:"			,
		 81, "GG", "Guayana Francesa"			,	""				,
		 82, "GH", "Guayana Inglesa"			,	""				,
		 83, "GK", "Guinea Ecuatorial"		,	":4:"			,
		 84, "GI", "Guinea, República"		,	""				,
		 85, "HC", "Halto Volta"				,	""				,
		 86, "HD", "Hellas"						,	""				,
		 87, "HA", "Holanda"						,	""				,
		 88, "HB", "Hungria"						,	":4:"			,
		 89, "IH", "Ifni"							,	":4:"			,
		 90, "IA", "India"						,	""				,
		 91, "IF", "Indonesia"					,	""				,
		 92, "IB", "Irak"							,	""				,
		 93, "IC", "Iran"							,	""				,
		 94, "IG", "Islandia"					,	""				,
		 95, "IE", "Israel"						,	":4:"			,
		 96, "ID", "Italia"						,	""				,
		 97, "JA", "Jamaica"						,	""				,
		 98, "JB", "Japón"						,	":1:0:"		,
		 99, "KD", "Kampuchea"					,	":4:"			,
		100, "KC", "Kazahstan"					,	""				,
		101, "KA", "Kenia"						,	""				,
		102, "KB", "Kirghizistan"				,	""				,
		103, "LA", "Laos"							,	":4:"			,
		104, "LB", "Lesotho"						,	""				,
		105, "LC", "Libia"						,	""				,
		106, "LE", "Liechtenstein"				,	""				,
		107, "LD", "Luxenburgo"					,	""				,
		108, "MA", "Madagascar"					,	""				,
		109, "MK", "Malagasi"					,	""				,
		110, "MB", "Malasia"						,	""				,
		111, "MC", "Malaya"						,	""				,
		112, "MN", "Mali"							,	""				,
		113, "MD", "Malta"						,	""				,
		114, "ME", "Marruecos"					,	""				,
		115, "MF", "Mauritania"					,	""				,
		116, "ML", "Mauritius"					,	""				,
		117, "MG", "Mejico"						,	""				,
		118, "MM", "Monaco"						,	":4:"			,
		119, "MI", "Mongolia"					,	":4:"			,
		120, "MJ", "Mozambique"					,	""				,
		121, "MH", "Mozambique Cie"			,	""				,
		122, "NB", "Nauru"						,	""				,
		123, "NC", "Nicaragua"					,	":4:"			,
		124, "ND", "Nigeria"						,	""				,
		125, "NE", "Noruega"						,	""				,
		126, "NF", "Nueva Caledonia"			,	""				,
		127, "NG", "Nueva Zelanda"				,	""				,
		128, "NH", "Nuevas Ebridas"			,	""				,
		129, "OA", "Oman"							,	""				,
		130, "PA", "Palau"						,	""				,
		131, "PB", "Panama"						,	""				,
		132, "PC", "Peru"							,	""				,
		133, "PD", "Polonia"						,	":4:"			,
		134, "PE", "Portugal"					,	""				,
		135, "RC", "Rodesia"						,	""				,
		136, "RA", "Rodesia Nyasaland"		,	""				,
		137, "RD", "Ruanda"						,	""				,
		138, "RB", "Rumania"						,	":4:"			,
		139, "SO", "Sahara Español"			,	":4:"			,
		140, "SA", "Sahara, República"		,	":4:"			,
		141, "SM", "San Marino"					,	""				,
		142, "SB", "San Vicente"				,	""				,
		143, "SC", "Sarre"						,	""				,
		144, "SD", "Senegal, República"		,	""				,
		145, "SL", "Seychelles"					,	""				,
		146, "SE", "Sierra Leona"				,	""				,
		147, "SF", "Somalia"						,	""				,
		148, "SN", "Somalia Costa Francesa"	,	""				,
		149, "SG", "Sri Lanka"					,	""				,
		150, "SH", "Suecia"						,	""				,
		151, "SI", "Suiza"						,	""				,
		152, "SJ", "Surinam"						,	":4:"			,
		153, "SK", "Swaziland"					,	""				,
		154, "TJ", "Tadzikistan"				,	""				,
		155, "TA", "Tanganica"					,	""				,
		156, "TB", "Tanzania"					,	":4:"			,
		157, "TC", "Tchad"						,	""				,
		158, "TD", "Terranova"					,	""				,
		159, "TE", "Thailandia"					,	""				,
		160, "TF", "Togo"							,	""				,
		161, "TI", "Transkei"					,	""				,
		162, "TH", "Tristan Da Cunha"			,	""				,
		163, "TG", "Turk & Caicos"				,	":4:"			,
		164, "UA", "Rusia"						,	":4:"			,
		165, "UB", "Uganda"						,	""				,
		166, "UC", "Uruguay"						,	""				,
		167, "VA", "Venezuela"					,	""				,
		168, "VC", "Viet Nam"					,	":4:"			,
		169, "VB", "Viet Nam del Norte"		,	""				,
		170, "WA", "Wallis et Futura"			,	""				,
		171, "YA", "Yugoslavia"					,	""				,
		172, "ZC", "Zaire"						,	""				,
		173, "ZA", "Zambia"						,	""				,
		174, "ZB", "Zimbabwe"					,	""				,
		175, "BP", "Boheme & Moravie"			,	""				,
		176, "CQ", "Camboya"						,	":4:"			,
		177, "AZ", "Antigua"						,	":0:"
		)
		//------------------------------------------
		paises_campos=4;
		paises_total=paises_datos.length/paises_campos;
		pais_codigo 	= new Array (paises_total);
		pais_nombre 	= new Array (paises_total); // Nombres.
		pais_tematicas	= new Array (paises_total); // Tematicas por pais
		pais_html  		= new Array (paises_total); // Nombres HTML.
		pais_mensaje	= new Array (paises_total); // Mensaje que aparece al situar el cursor sobre el pais
		pais_orden		= new Array (paises_total); // Indice Ordenado
		iniPaises();
		//------------------------------------------ NOMBRE HTML.
		pais_html[  0]="Afganistán";
		pais_html[  1]="África del centro";
		pais_html[  2]="África del sur";
		pais_html[  3]="África del suroeste";
		pais_html[  6]="Alemania Berlín";
		pais_html[ 13]="Antártica Británica";
		pais_html[ 14]="Antártica Francesa";
		pais_html[ 24]="Azerbaiyán";
		pais_html[ 27]="Bélgica";
		pais_html[ 84]="Guinea, República";
		pais_html[118]="Mónaco";
		pais_html[140]="Sahara, República";
		pais_html[144]="Senegal, República";
		//----------------------------------------- MENSAJES
		pais_mensaje[  3]="Este pais cambió de nombre por, "+pais_html[25];
		pais_mensaje[  7]="Alemania Federal";
		pais_mensaje[  8]="Alemania República Democrática";
		pais_mensaje[  9]="Territorio de "+pais_html[65];
		pais_mensaje[ 11]="Territorio de "+pais_html[73];
		pais_mensaje[ 21]="Territorio de "+pais_html[73];
		pais_mensaje[ 20]="Territorio de "+pais_html[71];
		pais_mensaje[ 25]="Este pais antes se llamaba, "+pais_html[3];
		pais_mensaje[ 50]="Territorio de "+pais_html[2];


	
//PERSONAS==================================================================================PERSONAS
		
		//------------------------------------------ DATOS COLECCIONISTAS.
		personas_datos = new Array(
			0	,true ,"Armando+Parodi"					,"aparodia@navegalia.com"			,":2:3:"
		,  1	,true ,"F.B.M." 							,"carlaandrea@terra.es"				,":4:"
		,  2	,true	,"José Luis Iglesias"	,"iglesias@asturvia.cajastur.es"	,":2:"
		,  3	,true	,"José Juan Iglesias"	,"iglesias@asturvia.cajastur.es"	,":0:"
		)
		//-----------------------------------------------------------------
		personas_campos=5;
		personas_total=personas_datos.length/personas_campos;
		persona_activa	= new Array (personas_total);	//	Nombres Activos.
		persona_nombre	= new Array (personas_total);	//	Nombres.
		persona_correo	= new Array (personas_total);	// Correo Electrónico.
		persona_temas	= new Array (personas_total);	// Tematicas del coleccionista				
		persona_html	= new Array (personas_total);	// Nombres HTML
		persona_orden	= new Array (personas_total);	// Indice Ordenado
		iniPersonas();
		//------------------------------------------ NOMBRE HTML. solo si tiene acentos o caracteres especiales
		//persona_html[0] = "";


//ENLACES==================================================================================ENLACES
		
		//------------------------------------------ DATOS COLECCIONISTAS.
		enlaces_datos = new Array(
		  0, true , "Catálogos"	, "catalogos.htm" ,
		  1, true , "Bocamina"	, "http://www.bocamina.com"
		)
		//-----------------------------------------------------------------
		enlaces_campos=4;
		enlaces_total=enlaces_datos.length/enlaces_campos;
		enlace_activo	= new Array (enlaces_total);	//	Nombres Activos.
		enlace_nombre	= new Array (enlaces_total);	//	Nombres.
		enlace_www		= new Array (enlaces_total);	// Correo Electrónico.
		enlace_mensaje	= new Array (enlaces_total);	// Mensaje que aparece al situar el cursor sobre el enlace
		enlace_html		= new Array (enlaces_total);	// Nombres HTML
		iniEnlaces();
		//------------------------------------------ NOMBRE HTML. solo si tiene acentos o caracteres especiales
		enlace_html[0] = "Catálogos";
		//----------------------------------------- MENSAJES
		enlace_mensaje[  0]="LISTA GENERAL DE CATÁLOGOS TEMÁTICOS";
		enlace_mensaje[  1]="REVISTA DE MINERALES ESPECIALIZADA EN LA PENÍNSULA IBÉRICA";



//APARTADOS DE DOCUMENTOS----------------------------------------------------------APARTADOS DE DOCUMENTOS
		tipos_total=7; // admite mas de 9 siendo el 10 una "A", ... 14 una "D"
		tipo_nombre = new Array (tipos_total);	//	Nombres.
		//---------------------------------	Nombres de tipos de documento
		tipo_nombre[ 1]="SELLOS"; 				// b:Bloque , d:Sin Dentar
		tipo_nombre[ 2]="LOCALES"; 			// 
		tipo_nombre[ 3]="HOJITAS Y BLOQUES";// 
		tipo_nombre[ 4]="CARNETS";				// 
		tipo_nombre[ 5]="SOBRES";				// s:Sobre		Incluye Sobres de primer dia y otros. Antes 11
		tipo_nombre[ 6]="TARJETAS";			// t:Tarjeta	Incluye máximas
		tipo_nombre[ 7]="PRUEBAS";				// p:Prueba		Incluye: Pruebas del Color y de Lujo

		

//SELLOS--------------------------------------------------------------------------------SELLOS
		numero_datos=3; // sello, informacion varia, comentario
		sello = new Array (1);
		infor = new Array (1);
		comen = new Array (1);
		//-----------------------------------
		filigrana_archivo 	= new Array (1);
		filigrana_comentario = new Array (1);
	
		


//======================================================================================================
//           							INICIALIZACIONES TABLAS VARIABLES Y CONSTANTES
//======================================================================================================




// INICIALIZACION TEMATICAS
		function iniTematicas() {
			for (n=0;n<tematicas_total;n++) {
				tematica_directorio [n]=tematica_nombre[n];
				tematica_activa[n]=true;
				tematica_claves_perfiles[n]=true;
				tematica_orden[n]=n;
				tematica_pais_primer[n]="";
				tematica_sellos[n]=0;
			}
		}

// INICIALIZACION PAISES
		function iniPaises() {
			for (n=0;n<paises_total;n++) {
				pais_codigo[n]		=paises_datos[paises_campos*n+1];
				pais_nombre[n]		=paises_datos[paises_campos*n+2];
				pais_tematicas[n]	=paises_datos[paises_campos*n+3];
				pais_html[n]		=pais_nombre[n];
				pais_orden[n]		=n;
				pais_mensaje[n]	="";
			}
		}
		function iniPrimerPaisTematica() {
			for (n=0;n<tematicas_total;n++) {
				for (k=0;k<paises_total;k++) {
					if (pais_tematicas[k].indexOf(':'+n+':')!=-1) {
						nombre_limpio=limpiaNombre(pais_html[k])
						if (tematica_pais_primer[n]=="" || nombre_limpio < tematica_pais_primer[n]) {
							tematica_pais_primer[n]=nombre_limpio;
							num_pais=k;
						}
					}	
				}
				tematica_pais_primer[n]=num_pais
			}
		}

// INICIALIZACION PERSONAS
		function iniPersonas() {
			for (n=0;n<personas_total;n++) {
				persona_activa[n]	= personas_datos[personas_campos*n+1];
				persona_nombre[n] = personas_datos[personas_campos*n+2];
				persona_correo[n]	= personas_datos[personas_campos*n+3];
				persona_temas[n]	= personas_datos[personas_campos*n+4];
				persona_html [n]	= persona_nombre[n];
				persona_orden[n]	= n;
			}
		}

// INICIALIZACION ENLACES
		function iniEnlaces() {
			for (n=0;n<enlaces_total;n++) {
				enlace_activo[n]	= enlaces_datos[enlaces_campos*n+1];
				enlace_nombre[n]	= enlaces_datos[enlaces_campos*n+2];
				enlace_www[n]		= enlaces_datos[enlaces_campos*n+3];
				enlace_html [n]	= enlace_nombre[n];
			}
		}


// INICIALIZACION SELLOS
		sello_numero=0; 		// contador de edicion
		nombre_filigrana="";
		function ini_datos(pais) {
			sello_numero=0;
			n=datos.length/numero_datos;
			sello = new Array (n);
			infor = new Array (n);
			comen = new Array (n);
			for (i=0;i<n;i++)	{
				sello[i]=datos[numero_datos*i+0];
				infor[i]=datos[numero_datos*i+1];
				comen[i]=datos[numero_datos*i+2];
			}
			filigrana_archivo 	= new Array (n);
			filigrana_comentario = new Array (n);
			for (i=0;i<n;i++)	{
				filigrana_archivo[i]		=devuelveCampo(i,":F_",1);
				filigrana_comentario[i]	=devuelveCampo(i,":F_",2);
			}
		}

// INICIALIZACION TABLAS
		iniPrimerPaisTematica(); // Calcula el primer pais activo de cada tematica
		ordenaPaises();
		ordenaPersonas();
		ordenaTematicas();
		
// INICIALIZACION CONSTANTES
		ini_dir="Tematica";
		//---------------------
		cookie_raiz="Sellos_";
		cookie_terminacion="00:";
		cookie_version_actual="1";	// version de la cookie modificada
		cookie_version="";			// version de la cookie leida
		longitud_tramo=8; // Longitud en caracteres del codigo del sello grabado en la cookie.
		longitud_tramo_codificado=5 // Longitud en caracteres del codigo del sello codificado.
		cookie_base_codificacion=65;
		//---------------------
		dir_sellos="Sellos";
		dir_sellos_variedades="SellosMas";
		//------------------------------------------- CONTROLES
		hacer_envios=true;
		editar_filigranas=true;
		filigrana_serie="";
		filigrana_comen="";
		paises_ver_todos=false;
		//-------------------------------------------
		paises_con_tematica=paises_total;
		if (!paises_ver_todos) {
			paises_con_tematica=0;
			for (k=0;k<paises_total;k++) {
				if (pais_tematicas[k]!="") {
					paises_con_tematica++;
				}
			}
		}



//======================================================================================================
//                   							FUNCIONES Y PROCEDIMIENTOS
//======================================================================================================

		function enlaceOtros() {
			for (n=0;n<enlaces_total;n++) {
				if (enlace_activo[n]) {
					L1='<a href="'+enlace_www[n]+'" title="'+enlace_mensaje[n]+'" target="_blank">'+enlace_html[n]+'</a>';
					document.write('<tr><td align="center">');
					document.write('<font size="4">'+L1+'</font>');
  		    		document.write('</td></tr>');
		    	}
      	}
		}

		function devuelveCampo(n,codigo,campo) {
			salida="";
			cadena=""
			switch (campo) {
				case  1: cadena=infor[n];break;
				case  2: cadena=comen[n];break;
			}
			ini = cadena.indexOf(codigo);
			if (ini > -1) {
				ini=ini+3
				fin = cadena.indexOf(":",ini);
				if (fin==-1) fin=cadena.length;
				salida=cadena.substring(ini,fin);
				if (salida=="") salida=codigo;
			}
			//alert(n+'='+codigo+'= de +'+cadena+'+ devuelve='+salida+'='+ini+','+fin);
			return salida;
		}

		function limpiaNombre(nombre) {
			return nombre.replace('&','').replace('acute;','').replace('tilde;','');
		}

		function ordenaTematicas() {
			if (tematicas_total>1) {
				for (n=0;n<tematicas_total;n++) {
					nombre_n=limpiaNombre(tematica_html[n]);
					for (k=n-1;k>=0;k--) {
						nombre_k=limpiaNombre(tematica_html[tematica_orden[k]]);
						if (nombre_n>=nombre_k) {
							break;
						}
						else {
							ind_k=tematica_orden[k+1];
							ind_k_ant=tematica_orden[k];
							tematica_orden[k]=ind_k;
							tematica_orden[k+1]=ind_k_ant;
						}
					}
				}
			}
		}

		function ordenaPersonas() {
			if (personas_total>1) {
				for (n=0;n<personas_total;n++) {
					nombre_n=limpiaNombre(persona_html[n]);
					for (k=n-1;k>=0;k--) {
						nombre_k=limpiaNombre(persona_html[persona_orden[k]]);
						if (nombre_n>=nombre_k) {
							break;
						}
						else {
							ind_k=persona_orden[k+1];
							ind_k_ant=persona_orden[k];
							persona_orden[k]=ind_k;
							persona_orden[k+1]=ind_k_ant;
						}
					}
				}
			}
		}
		
		function ordenaPaises() {
			if (paises_total>1) {
				for (n=0;n<paises_total;n++) {
					nombre_n=limpiaNombre(pais_html[n]);
					for (k=n-1;k>=0;k--) {
						nombre_k=limpiaNombre(pais_html[pais_orden[k]]);
						if (nombre_n>=nombre_k) {
							break;
						}
						else {
							ind_k=pais_orden[k+1];
							ind_k_ant=pais_orden[k];
							pais_orden[k]=ind_k;
							pais_orden[k+1]=ind_k_ant;
						}
					}
				}
			}
		}

		function cuentaPaisesTematica() {
			xTe = tema_numero_actual();
			codigo=":"+xTe+":";
			x=0;
			for (n=0;n<paises_total;n++) {
				if (pais_tematicas[n].indexOf(codigo)!=-1) x++;
      	}
			if (x==0) {
				parent.frames["Marco_2"].document.Formulario.nTe.value = "";
			}
			else {
				parent.frames["Marco_2"].document.Formulario.nTe.value = x;
			}
		}

		function enlacePaises() {
			cuentaPaisesTematica();
			for (i=0;i<paises_total;i++) {
				n=pais_orden[i];
				if (pais_tematicas[n]!="" || paises_ver_todos) {
					L1='<SCRIPT LANGUAGE="JavaScript">elemento('+n+');</SCRIPT>';
					document.write('<tr><td>');
					document.write('<font size="3">'+L1+'</font>');
  		    		document.write('</td></tr>');
		    	}
      	}
		}

		function elemento(n) {
			cTe = tema_numero_actual();
			codigo=":"+cTe+":";
			if (pais_tematicas[n].indexOf(codigo)==-1) {
				document.write('<i>'+pais_nombre[n]+'</i>');
			}
			else {
				directorio=ini_dir+tematica_directorio[cTe];
				txt='<a href="'+directorio+'/PAGINA_'+pais_codigo[n]+'.htm" title="'+pais_mensaje[n]+'">'+pais_html[n]+'</a>'
				document.write('<b>'+txt+'</b>');
			}
		}

		function documento_fecha(k) {
			cadena=datos[numero_datos*k];
			ano=eval(cadena.substring(0,3))+1800;
			return ano;
		}

		function documento_codigo(k) {
			cadena=datos[numero_datos*k];
			ano=cadena.substring(0,3);
			numero=cadena.substring(3,cadena.length-2);
			car=cadena.substring(cadena.length-2,cadena.length);
			for (j=0;j<numero.length;j++) {
				if (numero.substring(0,1)=="0") numero=numero.substring(1);
				else break;
			}
			numero=ano+'.'+numero;
			if (car!="__") {
				if (car.substring(1)=="_") car=car.substring(0,1);
				numero=numero+car;
			}
			return numero.toLowerCase();
		}

		function enlace8(claves_perfiles,xTe) { // Se llama de todas las paginas
			L1='';
			if (claves_perfiles) {
				if (tematica_claves_perfiles[xTe]) {
					mensaje="Informaci&oacute;n sobre la tem&aacute;tica "+tematica_html[xTe];
					L1='<div><a href="PAGINA_6.htm" title="'+mensaje+'">Claves y Perfiles</a></div>';
				}
				else {
					L1='<div>CLAVES y PERFILES</div>';
				}
			}
			else {
				sPa = pais_numero_actual();
				if (sPa!=-1) {
					cPagina = pais_codigo[sPa];
					mensaje="Volver al pais: "+pais_html[sPa];
					L1='<div><a href="PAGINA_'+cPagina+'.htm" title="'+mensaje+'">VOLVER</a></div>';
				}
			}
			Fi='<font color="#0000FF">'
			Ff='</font>'
			L2=Fi+L1+Ff;
			document.write('<td align="left" width="145">'+L2+'</td>');
		}

		function enlace7(ok) { // Se llama de todas las paginas
			L1="";
			Fi='<font color="#FFFFFF">'
			Ff='</font>'
			L1=Fi+'<a href="#envio">ENVIO DE DATOS</a>'+Ff;
			if (ok) L1=Fi+'<a href="PAGINA_7.htm">INTERCAMBIO</a>'+Ff;
			document.write('<td align="right" width="145">'+L1+'</td>');
		}

		function tituloP(titulo) { // Se llama de la PAGINA_6.htm y PAGINA_7.htm
			L1="";		
			if (titulo==1) L1="Intercambio";
			if (titulo==2) L1="Claves y Perfiles";
			Fi='<font size="6" color="#3366FF">'
			Ff='</font>'
			L1=Fi+L1+Ff;
			document.write('<td align="center" width="500">'+L1+'</td>');
		}

		function enlaceP(variedades,pais) { // Se llama de todas las paginas
			//S1="<div>COLECCI&Oacute;N B&Aacute;SICA</div>";
			//S2="<div>VARIEDADES</div>";
			L1=pais_html[pais];
			Fi='<font size="6" color="#3366FF">'
			Fv='<font size="6" color="#FF6633">'
			Ff='</font>'
			Lc=Fi+L1+Ff;
			Lv=Fv+L1+Ff;
			if (variedades) {
				if (document.URL.indexOf("v.htm")==-1) {
					ref="PAGINA_"+pais_codigo[pais]+"v.htm";
					L1='<a title="Ir a VARIEDADES" href="'+ref+'">'+Lc+'</a>';
				}
				else {
					ref="PAGINA_"+pais_codigo[pais]+".htm";
					L1='<a title="Ir a COLECCION BASICA" href="'+ref+'">'+Lv+'</a>';
				}
			}
			else {
				L1=Lc;
			}
			L1=L1+'<div><font size="3">'+pais_mensaje[pais]+'</font></div>';
			document.write('<td align="center" width="500">'+L1+'</td>');
		}

		function intercambioTitulo() { // Se llama de PAGINA_7.htm de cada tematica
			tdF='</td>'
			
			// inicializa la tabla
			document.write('<table border="1" bordercolor="#FFFFCC" align="center" width="715">');

      		// escribe el titulo
				tdI1='<td align="center" height="60">';
				L1='<font size="4">RELACI&Oacute;N DE COLECCIONISTAS DISPUESTOS AL INTERCAMBIO DE SELLOS</font>';
      		document.write('<tr>'+tdI1+L1+tdF+'</tr>');
				
			// final de la tabla
			document.write('</table>');
		}

      function intercambioPersonas() { // Se llama de PAGINA_7.htm de cada tematica
      	cTe = tema_numero_actual();
			tdF='</td>';
			
			// inicializa la tabla
			document.write('<table border="1" cellpadding="0" cellspacing="2" bordercolor="#0000FF" align="center" width="715">')

     			// marca los anchos de las columnas
				tdI1='<td height="0" width="199"></td>';
				tdI3='<td height="0" width="405"></td>';
      		document.write('<tr>'+tdI1+tdF+tdI3+tdF+'</tr>');
      	
      		// escribe los titulos de cada columna
				tdI='<td bordercolor="#C0C0C0" bgcolor="#C0C0C0" align="left">';
				L1='<b>Coleccionista</b>';
				L2='<b>Paises</b>';
				L3='<b>Correo Electr&oacute;nico</b>';
      		document.write('<tr>'+tdI+L1+tdF+tdI+L3+tdF+'</tr>');
      		
      		// escribe los datos de cada persona
      		tdI1 ='<td bordercolor="#FFFFCC">';
				tdI3 ='<td bordercolor="#FFFFCC">';
				cod=":"+cTe+":";
   	   	for (i=0;i<personas_total;i++) {
   	   		n=persona_orden[i];
	      		if (persona_activa[n]) {
	      			if (persona_temas[n].indexOf(cod)!=-1) {
			      		L1 ='<SCRIPT LANGUAGE="JavaScript">personaHtml('+n+');</SCRIPT>';
   	  					L3 ='<SCRIPT LANGUAGE="JavaScript">personaCorreo('+n+');</SCRIPT>'
							document.write('<tr>'+tdI1+L1+tdF+tdI3+L3+tdF+'</tr>');
						}
   	   		}
				}
			
			// final de la tabla
			document.write('</table>');
      }

		function personaHtml(xPer) { // Se llama de PAGINA_7.htm de cada tematica
			document.write(persona_html[xPer]);
		}
		
		function personaCorreo(xPer) { // Se llama de PAGINA_7.htm de cada tematica
			document.write("<I>"+persona_correo[xPer]+"</I>");
		}

      function intercambioEnvio() { // Se llama de PAGINA_7.htm de cada tematica
			tdF='</td>';
			
			document.write('<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>');
			document.write('<a name="envio"></a>');

			document.write('<table border="0" cellpadding="0" cellspacing="0" align="center">');
				document.write('<tr>');
					cTe = tema_numero_actual();
					document.write('<SCRIPT LANGUAGE="JavaScript">enlace8(false,cTe);</SCRIPT>');
					tituloP(1);
					Fi='<font color="#FFFFFF">'
					Ff='</font>'
					L1='<a href="#inicio">INICIO P&AacuteGINA</a>';
					document.write('<td align="right" width="145">'+L1+'</td>');
				document.write('</tr>');
			document.write('</table>');
		
			document.write('<br><br>');
		
			// inicializa la tabla
			document.write('<table border="1" cellpadding="4" cellspacing="0" bordercolor="#0000FF" bgcolor="#C0C0C0" align="center">');
				document.write('<tr><td>');

				L1='<b><u>Envio datos para la Relaci&oacute;n de Intercambio</u></b>';
				document.write('<p align="center">'+L1+'</p>');
				L1='<b>'+tematica_html[tema_numero_actual()]+'</b>';
				document.write('<p align="center">'+L1+'</p>');

				
				// Inicio del formulario
				L1='<form name="envio" method="POST" action="mailto:solotematicas@terra.es" onsubmit=\'return validarEnvio();\'>';
      		document.write('<p align="center">'+L1+'</p>');

					document.write('<table border="1">');
						document.write('<tr><td height="5"></td></tr>');
						document.write('<tr>');
							document.write('<td width="123">');
		     	 			L1='Nombre y Apellido:<br>';
								L2='Correo  Electr&oacute;nico:';
      						document.write('<p>'+L1+L2+'</p>');
      					document.write('</td>');
							document.write('<td width="160" align="center">');
		     		 			L1='<input type="text" name="T1" size="20"><br>';
								L2='<input type="text" name="T2" size="20">';
      					document.write('<p>'+L1+L2+'</p>');
      					document.write('</td>');
     		 			document.write('</tr>');
      				document.write('<tr><td height="5"></td></tr>');
					document.write('</table>');
					
      			tipo="button";
      			if (hacer_envios) tipo="submit";
      			L1='<input type="'+tipo+'" value="Enviar" name="B1">';
      			document.write('<p align="center">'+L1+'</p>');

					L1='<input type="hidden" type="text" name="Tema" size="20" readonly>'
      			document.write('<p align="center">'+L1+'</p>');

      			L1='<input type="button"  value="Borrar Nombre y Correo" name="B2" onClick=\'actualizaCampos();\'>';
      			document.write('<p align="center">'+L1+'</p>');
      		
				// final de la formulario
				document.write('</form>');
    
      	// final de la tabla
      	document.write('</td></tr>');
			document.write('</table>');
			
			document.write('<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>');
		}

		function actualizaCampos() {
			document.envio.T1.value = ""
			document.envio.T2.value = ""
		}

		function validarEnvio() {
			cTe = tema_numero_actual();
			document.envio.Tema.value = tematica_directorio[cTe]; // nombre de la tematica
			alerta="";
			if (document.envio.T1.value=='') alerta="¡ FALTA INTRODUCIR EL NOMBRE !";
			else {
				if (document.envio.T2.value.indexOf("@")==-1) alerta="¡ FALTA INTRODUCIR LA DIRECCIÓN DE CORREO !"; 
			}
			if (alerta!="") {alert(alerta); return false;}
			return true;
		}

		function titulo_grupo(pais,hay_var,pag_var,cod_car,entrada) {
			cod=decimal(cod_car);
			//---------------------------------
			ref = new Array (tipos_total+1);
			for (i=1;i<=entrada.length;i++) {
				ref[i]=false;
				if (decimal(entrada.substring(i-1,i))==i) ref[i]=true;
			}
			//---------------------------------
			nom = new Array (tipos_total+1);
			for (i=1;i<=tipos_total;i++) {
				if (ref[i]) nom[i]='<font color="#FFFFFF" size="5"><b>'+tipo_nombre[i]+'</b></font>'; else nom[i]="";
			}
			for (i=1;i<=tipos_total;i++) {
				if (ref[i]) {
					if (cod!=i) {
						n='<font color="#000000">'+tipo_nombre[i].toLowerCase()+'</font>';
						nom[i]='<a href="#referencia'+digito(i)+'">'+n+'</a>';
					}
				}
			}
			//---------------------------------
			sep = new Array (tipos_total+1);
			for (i=1;i<=tipos_total;i++) {
				if (ref[i]) sep[i]='<font color="#000000"> - </font>'; else sep[i]="";
			}
			//---------------------------------
			nom[0]="";
			for (i=1;i<=tipos_total;i++) {
				nom[0]=nom[0]+sep[i]+nom[i];
			}
			nom[0]=nom[0]+'<font color="#000000"> - </font>'
			//---------------------------------
	   	document.write('<table align="center" border="0">');
	   		document.write('<tr>');
	   		
	   			//Izquierda
	   			document.write('<td align="center" bgcolor="FF6633" width="110">');
		   			document.write('<a href="#referencia0">Inicio p&aacute;gina</a>');
		   		document.write('</td>');
		   		
		   		//Cuerpo central
	   			document.write('<td align="center" bgcolor="FF6633" width="570">');
		   			document.write(nom[0]);
		   		document.write('</td>');
		   		
		   		//Derecha
		   		document.write('<td align="center" bgcolor="FF6633" width="110">');
			   		L1=""
			   		if (hay_var) {
			   			if (pag_var) {
								ref="PAGINA_"+pais_codigo[pais]+".htm";
								Lv='Colecci&oacute;n B&aacute;sica';
								L1='<a title="Ir a COLECCION BASICA" href="'+ref+'">'+Lv+'</a>';
							}
							else {
								ref="PAGINA_"+pais_codigo[pais]+"v.htm";
								Lv='Variedades';
								L1='<a title="Ir a VARIEDADES" href="'+ref+'">'+Lv+'</a>';
							}
						}
	   				document.write(L1);
	   			document.write('</td>');
	   			
	   		document.write('</tr>');
	   		if (cod==0) {
	   			sev(1,3,'');
	   		}
	   		else {
		   		if (pag_var) sev(1,3,'VARIEDADES');
		   		else	sev(1,3,'COLECCI&Oacute;N B&Aacute;SICA');
		   	}
	   	document.write('</table>');
		}

		function sellos1(pais,hay_mas,mas,alto,ancho,pos_enlace,pos_variedad,pos_fil) {
			maximo=1;
			ancho1=ancho;
			//-------------------------------------------------- Filigranas
			pos_filigrana=pos_fil;
			filigrana_serie=filigrana_archivo[sello_numero];
			filigrana_comen=filigrana_comentario[sello_numero];
			n1=selloNumero(1,pos_filigrana,maximo);
			//-------------------------------------------------------------
			xpie_1=false;
			if (pos_variedad== 1) xpie_1=true; // En el pie del sello1
			//-------------------------------------------------------------
			Tf='</td>';
			T2='<td align="center" colspan="2" bordercolor="0000FF" bgcolor="0000FF">';
			document.write('<table align="center" border="1" bordercolor="#000000">');
			
				if (pos_enlace>0) {
					document.write('<tr>');
						if (pos_enlace== 1) document.write(T2+enlaceEntreDocumentos(pais,n1,hay_mas,mas,1)+Tf);
						if (pos_enlace==10) document.write(T2+enlaceEntreDocumentos(pais,n1,hay_mas,mas,1)+Tf);
					document.write('</tr>');
				}

	   		document.write('<tr>');
	   							document.write(cab(n1,mas,1,pos_filigrana,1));
	   		document.write('</tr>');
	   		document.write('<tr>');
	   							document.write(ima(pais,n1,mas,1,pos_filigrana,1));
	   		document.write('</tr>');
	   		document.write('<tr>');
	   							document.write(pie(pais,n1,mas,xpie_1,1,pos_filigrana,1));
	   		document.write('</tr>');
	   		
	   		finOtroPais(pais,n1,mas,2);
	   		
	   		sev(alto,1,"")
	   		
	   	document.write('</table>');
		}
		
		function sellos2(pais,hay_mas,mas,alto,ancho,pos_enlace,pos_variedad,pos_fil) {
			maximo=2;
			ancho1=ancho;			
			//-------------------------------------------------- Filigranas
			pos_filigrana=pos_fil;
			filigrana_serie=filigrana_archivo[sello_numero];
			filigrana_comen=filigrana_comentario[sello_numero];
			if (pos_fil==12) {pos_filigrana=1;ancho1=-5}
			if (pos_fil==21) {pos_filigrana=2;ancho1=-5}
			n1=selloNumero(1,pos_filigrana,maximo);
			n2=selloNumero(2,pos_filigrana,maximo);
			//--------------------------------------------------------------------------------
			xpie_1=false;
			xpie_2=false;
			scab_1=false;
			sima_1=false;
			spie_1=false;
			if (pos_variedad== 1) xpie_1=true; // En el pie del sello1
			if (pos_variedad==10) scab_1=true; // En el cabecera del separador1
			if (pos_variedad==11) sima_1=true; // En el cuerpo del separador1
			if (pos_variedad==12) spie_1=true; // En el pie del separador1
			if (pos_variedad== 2) xpie_2=true; // En el pie del sello2
			if (pos_variedad== 3) {xpie_1=true; xpie_2=true;} // En el pie de todos los sellos de forma independiente
			//--------------------------------------------------------------------------------
			Tf='</td>';
			T1='<td align="center" colspan="1" bordercolor="000000" bgcolor="000000">';
		   T2='<td align="center" colspan="2" bordercolor="0000FF" bgcolor="0000FF">';
		   T5='<td align="center" colspan="5" bordercolor="0000FF" bgcolor="0000FF">';
			document.write('<table align="center" border="1" bordercolor="#000000">');

				if (pos_enlace>0) {
					document.write('<tr>');
						if (pos_enlace==1) { // En el cabecera del sello1
							document.write(T2+enlaceEntreDocumentos(pais,n1,hay_mas,mas,2)+Tf);
							document.write(T1+Tf+T2+Tf);
						}
						if (pos_enlace==2) { // En el cabecera del sello2
							document.write(T2+Tf+T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n2,hay_mas,mas,2)+Tf);
						}
						if (pos_enlace==3) { // En el cabecera de todos los sellos de forma independiente
							document.write(T2+enlaceEntreDocumentos(pais,n1,hay_mas,mas,2)+Tf);
							document.write(T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n2,hay_mas,mas,2)+Tf);
						}
						if (pos_enlace==10) { // En el cabecera de todos los sellos de forma conjunta
							document.write(T5+enlaceEntreDocumentos(pais,n1,hay_mas,mas,2)+Tf);
						}
					document.write('</tr>');
				}
				
	   		document.write('<tr>');
	   							document.write(cab(n1,mas,1,pos_filigrana,2));
									document.write(ser(pais,n1,ancho1,mas,scab_1));
		   						document.write(cab(n2,mas,2,pos_filigrana,2));
	   		document.write('</tr>');
	   		document.write('<tr>');
	   							document.write(ima(pais,n1,mas,1,pos_filigrana,2));
	   							document.write(ser(pais,n1,ancho1,mas,sima_1));
	   							document.write(ima(pais,n2,mas,2,pos_filigrana,2));
	   		document.write('</tr>');
	   		document.write('<tr>');
	   							document.write(pie(pais,n1,mas,xpie_1,1,pos_filigrana,2));
	   							document.write(ser(pais,n1,ancho1,mas,spie_1));
	   							document.write(pie(pais,n2,mas,xpie_2,2,pos_filigrana,2));
	   		document.write('</tr>');
	   	
		   	finOtroPais(pais,n2,mas,5);

				sev(alto,5,"");

	   	document.write('</table>');
		}

		function sellos3(pais,hay_mas,mas,alto,ancho,pos_enlace,pos_variedad,pos_fil) {
			maximo=3;
			ancho1=ancho;
			ancho2=ancho;			
			//-------------------------------------------------- Filigranas
			pos_filigrana=pos_fil;
			filigrana_serie=filigrana_archivo[sello_numero];
			filigrana_comen=filigrana_comentario[sello_numero];
			if (pos_fil==12) {pos_filigrana=1;ancho1=-5}
			if (pos_fil==21) {pos_filigrana=2;ancho1=-5}
			if (pos_fil==23) {pos_filigrana=2;ancho2=-5}
			if (pos_fil==32) {pos_filigrana=3;ancho2=-5}
			n1=selloNumero(1,pos_filigrana,maximo);
			n2=selloNumero(2,pos_filigrana,maximo);
			n3=selloNumero(3,pos_filigrana,maximo);
			//--------------------------------------------------------------------------------
			xpie_1=false;
			xpie_2=false;
			xpie_3=false;
			scab_1=false;
			scab_2=false;
			sima_1=false;
			sima_2=false;
			spie_1=false;
			spie_2=false;
			if (pos_variedad==  1) xpie_1=true; // En el pie del sello1
			if (pos_variedad== 10) scab_1=true; // En el cabecera del separador1
			if (pos_variedad== 11) sima_1=true; // En el cuerpo del separador1
			if (pos_variedad== 12) spie_1=true; // En el pie del separador1
			if (pos_variedad==  2) xpie_2=true; // En el pie del sello2
			if (pos_variedad== 20) scab_2=true; // En el cabecera del separador1
			if (pos_variedad== 21) sima_2=true; // En el cuerpo del separador1
			if (pos_variedad== 22) spie_2=true; // En el pie del separador1
			if (pos_variedad==  3) xpie_3=true; // En el pie del sello2
			if (pos_variedad==  4) {xpie_1=true; xpie_2=true; xpie_3=true;} // En el pie de todos los sellos de forma independiente
			if (pos_variedad==412) {xpie_1=true; xpie_2=true;} // En el pie de todos los sellos de forma independiente
			if (pos_variedad==413) {xpie_1=true; xpie_3=true;} // En el pie de todos los sellos de forma independiente
			if (pos_variedad==423) {xpie_2=true; xpie_3=true;} // En el pie de todos los sellos de forma independiente
			//--------------------------------------------------------------------------------
			Tf='</td>';
			T1='<td align="center" colspan="1" bordercolor="000000" bgcolor="000000">';
		   T2='<td align="center" colspan="2" bordercolor="0000FF" bgcolor="0000FF">';
		   T8='<td align="center" colspan="8" bordercolor="0000FF" bgcolor="0000FF">';
			document.write('<table align="center" border="1" bordercolor="#000000">');

				if (pos_enlace>0) {
					document.write('<tr>');
						if (pos_enlace==1) {
							document.write(T2+enlaceEntreDocumentos(pais,n1,hay_mas,mas,3)+Tf);
							document.write(T1+Tf+T2+Tf+T1+Tf+T2+Tf);
						}
						if (pos_enlace==2) {
							document.write(T2+Tf+T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n2,hay_mas,mas,3)+Tf);
							document.write(T1+Tf+T2+Tf);
						}
						if (pos_enlace==3) {
							document.write(T2+Tf+T1+Tf+T2+Tf+T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n3,hay_mas,mas,3)+Tf);
						}
						if (pos_enlace==4) {
							document.write(T2+enlaceEntreDocumentos(pais,n1,hay_mas,mas,3)+Tf);
							document.write(T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n2,hay_mas,mas,3)+Tf);
							document.write(T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n3,hay_mas,mas,3)+Tf);
						}
						if (pos_enlace==10) document.write(T8+enlaceEntreDocumentos(pais,n1,hay_mas,mas,3)+Tf);
					document.write('</tr>');
				}
							
	   		document.write('<tr>');
	   							document.write(cab(n1,mas,1,pos_filigrana,3));
									document.write(ser(pais,n1,ancho1,mas,scab_1));
									document.write(cab(n2,mas,2,pos_filigrana,3));
		   						document.write(ser(pais,n2,ancho2,mas,scab_2));
	   							document.write(cab(n3,mas,3,pos_filigrana,3));
	   		document.write('</tr>');
	   		document.write('<tr>');
	   							document.write(ima(pais,n1,mas,1,pos_filigrana,3));
	   							document.write(ser(pais,n1,ancho1,mas,sima_1));
	   							document.write(ima(pais,n2,mas,2,pos_filigrana,3));
	   							document.write(ser(pais,n2,ancho2,mas,sima_2));
	   							document.write(ima(pais,n3,mas,3,pos_filigrana,3));
	   		document.write('</tr>');
	   		document.write('<tr>');
	   							document.write(pie(pais,n1,mas,xpie_1,1,pos_filigrana,3));
	   							document.write(ser(pais,n1,ancho1,mas,spie_1));
	   							document.write(pie(pais,n2,mas,xpie_2,2,pos_filigrana,3));
	   							document.write(ser(pais,n2,ancho2,mas,spie_2));
	   							document.write(pie(pais,n3,mas,xpie_3,3,pos_filigrana,3));
	   		document.write('</tr>');
	   
	   		finOtroPais(pais,n3,mas,8);

				sev(alto,8,"");
	   
	   	document.write('</table>');
		}

		function hayFil(pos_imagen,pos_fil,maximo) {
			si_hay=false;
			if (pos_fil<=maximo ) {
				if (pos_imagen==pos_fil) si_hay=true;
			}
			else {
				if (pos_imagen%2==0) si_hay=true;
			}
			return si_hay;
		}

		function selloNumero(pos_imagen,pos_fil,maximo) {
			x_numero=sello_numero;
			if (!hayFil(pos_imagen,pos_fil,maximo)) sello_numero++;
			return x_numero;
		}

		function sellos4(pais,hay_mas,mas,alto,ancho,pos_enlace,pos_variedad,pos_fil) {
			maximo=4;
			ancho1=ancho;
			ancho2=ancho;
			ancho3=ancho;
			//-------------------------------------------------- Filigranas
			pos_filigrana=pos_fil;
			filigrana_serie=filigrana_archivo[sello_numero];
			filigrana_comen=filigrana_comentario[sello_numero];
			if (pos_fil==12) {pos_filigrana=1;ancho1=-5}
			if (pos_fil==21) {pos_filigrana=2;ancho1=-5}
			if (pos_fil==23) {pos_filigrana=2;ancho2=-5}
			if (pos_fil==32) {pos_filigrana=3;ancho2=-5}
			if (pos_fil==34) {pos_filigrana=3;ancho3=-5}
			if (pos_fil==43) {pos_filigrana=4;ancho3=-5}
			if (pos_fil==50) {pos_filigrana=5;ancho1=-5;ancho3=-5}
			if (pos_fil==51) {pos_filigrana=5;ancho1=-5}
			if (pos_fil==52) {pos_filigrana=5;ancho2=-5}
			if (pos_fil==53) {pos_filigrana=5;ancho3=-5}
			if (pos_fil==54) {pos_filigrana=5;ancho2=-5;ancho3=-5}
			n1=selloNumero(1,pos_filigrana,maximo);
			n2=selloNumero(2,pos_filigrana,maximo);
			n3=selloNumero(3,pos_filigrana,maximo);
			n4=selloNumero(4,pos_filigrana,maximo);
			//--------------------------------------------------------------------------------
			xpie_1=false;
			xpie_2=false;
			xpie_3=false;
			xpie_4=false;
			scab_1=false;
			scab_2=false;
			scab_3=false;
			sima_1=false;
			sima_2=false;
			sima_3=false;
			spie_1=false;
			spie_2=false;
			spie_3=false;
			if (pos_variedad==  1) xpie_1=true; // En el pie del sello1
			if (pos_variedad== 10) scab_1=true; // En el cabecera del separador1
			if (pos_variedad== 11) sima_1=true; // En el cuerpo del separador1
			if (pos_variedad== 12) spie_1=true; // En el pie del separador1
			if (pos_variedad==  2) xpie_2=true; // En el pie del sello2
			if (pos_variedad== 20) scab_2=true; // En el cabecera del separador1
			if (pos_variedad== 21) sima_2=true; // En el cuerpo del separador1
			if (pos_variedad== 22) spie_2=true; // En el pie del separador1
			if (pos_variedad==  3) xpie_3=true; // En el pie del sello2
			if (pos_variedad== 30) scab_3=true; // En el cabecera del separador1
			if (pos_variedad== 31) sima_3=true; // En el cuerpo del separador1
			if (pos_variedad== 32) spie_3=true; // En el pie del separador1
			if (pos_variedad==  4) xpie_4=true; // En el pie del sello2
			if (pos_variedad==  5) {xpie_1=true; xpie_2=true; xpie_3=true; xpie_4=true;} // En el pie de todos
			if (pos_variedad==512) {xpie_1=true; xpie_2=true;}
			if (pos_variedad==513) {xpie_1=true; xpie_3=true;}
			if (pos_variedad==514) {xpie_2=true; xpie_3=true;}
			if (pos_variedad==523) {xpie_2=true; xpie_3=true;}
			if (pos_variedad==524) {xpie_2=true; xpie_4=true;}
			if (pos_variedad==534) {xpie_3=true; xpie_4=true;}
			if (pos_variedad==5123) {xpie_1=true; xpie_2=true; xpie_3=true;}
			if (pos_variedad==5124) {xpie_1=true; xpie_2=true; xpie_4=true;}
			if (pos_variedad==5134) {xpie_1=true; xpie_3=true; xpie_4=true;}
			if (pos_variedad==5234) {xpie_2=true; xpie_3=true; xpie_4=true;}
			//--------------------------------------------------------------------------------
			Tf='</td>';
			T1='<td align="center" colspan="1" bordercolor="000000" bgcolor="000000">';
		   T2='<td align="center" colspan="2" bordercolor="0000FF" bgcolor="0000FF">';
		   T11='<td align="center" colspan="11" bordercolor="0000FF" bgcolor="0000FF">';
			document.write('<table align="center" border="1" bordercolor="#000000">');

				if (pos_enlace>0) {
					document.write('<tr>');
						if (pos_enlace==1) {
							document.write(T2+enlaceEntreDocumentos(pais,n1,hay_mas,mas,4)+Tf);
							document.write(T1+Tf+T2+Tf+T1+Tf+T2+Tf+T1+Tf+T2+Tf);
						}
						if (pos_enlace==2) {
							document.write(T2+Tf+T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n2,hay_mas,mas,4)+Tf);
							document.write(T1+Tf+T2+Tf+T1+Tf+T2+Tf);
						}
						if (pos_enlace==3) {
							document.write(T2+Tf+T1+Tf+T2+Tf+T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n3,hay_mas,mas,4)+Tf);
							document.write(T1+Tf+T2+Tf);
						}
						if (pos_enlace==4) {
							document.write(T2+Tf+T1+Tf+T2+Tf+T1+Tf+T2+Tf+T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n4,hay_mas,mas,4)+Tf);
						}
						if (pos_enlace==5) {
							document.write(T2+enlaceEntreDocumentos(pais,n1,hay_mas,mas,4)+Tf);
							document.write(T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n2,hay_mas,mas,4)+Tf);
							document.write(T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n3,hay_mas,mas,4)+Tf);
							document.write(T1+Tf);
							document.write(T2+enlaceEntreDocumentos(pais,n4,hay_mas,mas,4)+Tf);
						}
						if (pos_enlace==10) document.write(T11+enlaceEntreDocumentos(pais,n1,hay_mas,mas,4)+Tf);
					document.write('</tr>');
				}
				
	   		document.write('<tr>');
	   							document.write(cab(n1,mas,1,pos_filigrana,4));
									document.write(ser(pais,n1,ancho1,mas,scab_1));
		   						document.write(cab(n2,mas,2,pos_filigrana,4));
		   						document.write(ser(pais,n2,ancho2,mas,scab_2));
	   							document.write(cab(n3,mas,3,pos_filigrana,4));
									document.write(ser(pais,n3,ancho3,mas,scab_3));
		   						document.write(cab(n4,mas,4,pos_filigrana,4));
	   		document.write('</tr>');
	   		document.write('<tr>');
	   							document.write(ima(pais,n1,mas,1,pos_filigrana,4));
	   							document.write(ser(pais,n1,ancho1,mas,sima_1));
	   							document.write(ima(pais,n2,mas,2,pos_filigrana,4));
	   							document.write(ser(pais,n2,ancho2,mas,sima_2));
	   							document.write(ima(pais,n3,mas,3,pos_filigrana,4));
	   							document.write(ser(pais,n3,ancho3,mas,sima_3));
	   							document.write(ima(pais,n4,mas,4,pos_filigrana,4));
	   		document.write('</tr>');
	   		document.write('<tr>');
	   							document.write(pie(pais,n1,mas,xpie_1,1,pos_filigrana,4));
	   							document.write(ser(pais,n1,ancho1,mas,spie_1));
	   							document.write(pie(pais,n2,mas,xpie_2,2,pos_filigrana,4));
	   							document.write(ser(pais,n2,ancho2,mas,spie_2));
	   							document.write(pie(pais,n3,mas,xpie_3,3,pos_filigrana,4));
	   							document.write(ser(pais,n3,ancho3,mas,spie_3));
	   							document.write(pie(pais,n4,mas,xpie_4,4,pos_filigrana,4));
	   		document.write('</tr>');
	   		
	   		finOtroPais(pais,n4,mas,11);
	   	
	   		sev(alto,11,"");
	   		
	   	document.write('</table>');	   	
		}
		
		function seh(ancho) {
			if (ancho==-1) ancho=120;
			if (ancho==-2) ancho=60;
			if (ancho==-3) ancho=30;
			if (ancho==-4) ancho=15;
			if (ancho==-5) ancho=0;
			Ti='<td align="center" valign="middle" bordercolor="000000" bgcolor="000000" width="'+ancho+'">';
		   Tf='</td>';
		   L0="";
			return Ti+L0+Tf;
		}
		
		function ser(pais,n,ancho,mas,texto) {
			if (ancho==-1) ancho=120;
			if (ancho==-2) ancho=60;
			if (ancho==-3) ancho=30;
			if (ancho==-4) ancho=15;
			if (ancho==-5) ancho=0;
			Ti='<td align="center" valign="middle" bordercolor="000000" bgcolor="000000" width="'+ancho+'">';
		   Tf='</td>';
		   L0="";
		   if (texto) {
		   	L0='<font size="2" color="FFFFFF">'+enlaceVariedad(pais,n,mas)+'</font>';
			}
			return Ti+L0+Tf;
		}

		function separacion() {
			document.write('<table align="center" border="0">');
	   	document.write('<tr>');
	   	document.write('<td height="20"></td>');
	   	document.write('</tr>');
	   	document.write('</table>');
		}
		
		function sev(alto,num,mensaje) {
			if (alto>0) {
				altura=alto*45
				Ti='<tr><td align="center" height="'+altura+'" colspan="'+num+'" bordercolor="000000" bgcolor="000000">';
				L0='<font size="2">'+mensaje+'</Font>';
			   Tf='</td></tr>';
				document.write(Ti+L0+Tf);
			}
		}

		function enlaceVariedad(pais,n,mas) {
			cadena=devuelveCampo(n,":V_",1);
			L1="";
			if (cadena!="" && mas==false) {
				car="v";
				titulo='<font color="FF6633">IR a VARIEDAD</font>';
				refer=cadena;
				refer='PAGINA_'+pais_codigo[pais]+car+'.htm#enlace_'+refer;
			   if (n>-1) {
		   		L1='<div><a href="'+refer+'">'+titulo+'</a>';
				}
			}
			return L1;
		}

		function enlaceEntreDocumentos(pais,n,hay_mas,mas,num) {
			valor="";
		   if (n>-1) {
		   	marca=":P_";
				cPa=devuelveCampo(n,marca,1);
				if (cPa!="") { 
					sPa=pais;
					if (cPa!=marca) sPa=eval(cPa);
					texto=devuelveCampo(n,marca,2);
					if (texto=="") { 
						texto='Mismos motivos en '+pais_html[sPa];
						if (num==1) texto='Mismo motivo en '+pais_html[sPa];
					}
					variedades="";
					if (mas) variedades="v";
					refer=devuelveCampo(n,":E_",2)
					refer="PAGINA_"+pais_codigo[sPa]+variedades+".htm#enlace_"+refer;
					Ri='<a href="'+refer+'">';
					Rf='</a>';
	  				valor=Ri+texto+Rf;
				}
	   	}
	   	return valor;
		}

		function finOtroPais(pais,n,mas,num) {
		   if (n!=-1 && mas==false) {
	   	hay_enlace=false;
	   		otro_pais=devuelveCampo(n,":P_",1);
				if (otro_pais=="fin") {
					hay_enlace=true;
					texto='Fin mismos motivos';
					if (num==1) texto='Fin mismo motivo';
	   		}
				if (hay_enlace) {
					Ti='<td align="center" colspan="'+num+'" bordercolor="0000FF" bgcolor="0000FF">';
			   	Tf='</td>';
			  		document.write('<tr>');
			  			document.write(Ti+texto+Tf);
			  		document.write('</tr>');
	   		}
	   	}
		}

		function cab(n,mas,pos_imagen,pos_fil,maximo) {
			if (hayFil(pos_imagen,pos_fil,maximo)) {
				//----------------------------------------- Filigranas
				Ti='<td bordercolor="000000" bgcolor="000000" colspan="2">';
				Tf='</td>';
				L0=Ti+Tf;
			}
			else {
				subtema=devuelveCampo(n,":S_",1);
				if (subtema!="") subtema=" - "+subtema;
				Ti1='<td align="left" bordercolor="000000" bgcolor="000000">';
				Ti2='<td align="right" bordercolor="000000" bgcolor="000000">';
				Tf='</td>';
				L1='<font color="#FFFFFF">'+documento_fecha(n)+subtema+'</font>';
				L2='<font color="#FFFFFF">'+documento_codigo(n)+'</font>';
				L3="";
				if (!mas) L3='<input type="checkbox" name="S'+n+'" onClick=\'ContarS(S'+n+'.checked);\'>';
				L0=Ti1+L1+Tf+Ti2+L2+L3+Tf;
			}
			return  L0;
		}

		function ima(pais,n,mas,pos_imagen,pos_fil,maximo) {
		   Ti='<td align="center" bordercolor="000000" bgcolor="000000" colspan="2">';
		   Tf='</td>';
			L0="";
			if (n>-1) {
				dir=dir_sellos;
				if (mas) dir=dir_sellos_variedades;
			   nombre_archivo=sello[n];
			  	cod_ima="I"+n;
				//------------------------------------------- Mismo sello de otra tematica
				otro_tema=devuelveCampo(n,":T_",1);
				if (otro_tema!="") {
					dir="../"+ini_dir+tematica_directorio[otro_tema]+"/"+dir
				}
			  	//------------------------------------------- Filigranas
			   if (hayFil(pos_imagen,pos_fil,maximo)) {
			   	if (n==0) nombre_archivo=filigrana_archivo[0];
			   	else nombre_archivo=filigrana_archivo[n-1];
			   	if (nombre_archivo=="") nombre_archivo=filigrana_serie;
			   	cod_ima="F"+n;
					//alert(cod_ima+' archivo='+nombre_archivo+' serie='+filigrana_serie);
					nombre_archivo='_'+nombre_archivo;
			   }
			   //-------------------------------------------
			   
   			L0='<img border="0" title="'+cod_ima+'" '
   			L0=L0+'src="'+dir+'/'+pais_codigo[pais]+nombre_archivo+'.jpg" ';
   			L0=L0+'onError=\'imagenNoCargada("'+cod_ima+'")\'>'
			}
			return Ti+L0+Tf;
		}

		function pie(pais,n,mas,xref,pos_imagen,pos_fil,maximo) {
			Ti='<td align="center" bordercolor="000000" bgcolor="000000" colspan="2">';
		   Tf='</td>';
			L0="";
			if (n>-1) {
				if (hayFil(pos_imagen,pos_fil,maximo)) {
			   	if (n==0) L0=filigrana_comentario[0];
			   	else L0=filigrana_comentario[n-1];
					if (L0=="") L0=filigrana_comen;
				}
				else {
					L0=devuelveCampo(n,":C_",2);
					L1=devuelveCampo(n,":T_",1);
					L2=devuelveCampo(n,":T_",2);
					if (L1!="" || L2!="") {
						if (L1!="") sTe=eval(L1);
						if (L2!="") sTe=eval(L2);
						L0=L0+'<div>'+"Mismo sello en  "+tematica_html[sTe];
					}
					if (xref) L0=L0+enlaceVariedad(pais,n,mas);
				}
		   	L0='<font size="2" color="FFFFFF">'+L0+'</font>';
			}
			return Ti+L0+Tf;
		}

		function imagenNoCargada(imagen) {
			k=0;
			encontrado=false;
			while (true) {
				if (imagen==document.images[k].title) {encontrado=true; break;}
				k++;
				if (k>500) break;
			}
			if (encontrado) {
				document.images[k].width="160";
				document.images[k].height="100";
			}
		}

		function ini_tematica() {
				// Tematica
				parent.frames["Marco_2"].document.Formulario.nSe.value= ""; // Numero de sellos para la tematica
				parent.frames["Marco_2"].document.Formulario.nTe.value= ""; // Numero de paises para la tematica
				// Coleccion Pais
				parent.frames["Marco_2"].document.Formulario.Tot.value= ""; // Coleccion Pais diferentes
				parent.frames["Marco_2"].document.Formulario.Tod.value= ""; // Coleccion Paises diferentes
				parent.frames["Marco_2"].document.Formulario.Pai.value= ""; // Coleccion Paises diferentes
				// Numero de sellos del pais elegido, o Paises que el coleccionista tiene para intercambiar
				parent.frames["Marco_2"].document.Formulario.Top.value= "";
		}

//====================================================================================================

		function pais_numero_actual() {
			indice = parent.frames["Marco_2"].document.forms[0].Paises_select.selectedIndex;
			numero = parent.frames["Marco_2"].document.forms[0].Paises_select.options[indice].value;
			return numero
		}

		function indice_de_pais(x_pais) {
			i = parent.frames["Marco_2"].document.forms[0].Paises_select.length;
			if (x_pais!=-1) {
				for (k=0;k<i;k++) {
					//alert(k+' '+parent.frames["Marco_2"].document.forms[0].Paises_select.options[k].value+' = '+x_pais);
					if (parent.frames["Marco_2"].document.forms[0].Paises_select.options[k].value==x_pais) {
						break;
					}
				}
			}
			return k;
		}

		function otroTema_numero_actual() {
			indice = parent.frames["Marco_2"].document.forms[0].Tema.selectedIndex
			numero = parent.frames["Marco_2"].document.forms[0].Tema.options[indice].value;
			return numero
		}

		function tema_numero_actual() {
			indice = parent.frames["Marco_2"].document.forms[0].Temas_select.selectedIndex;
			numero = parent.frames["Marco_2"].document.forms[0].Temas_select.options[indice].value;
			return numero
		}

		function actualiza_select_tematicas() {
			// Pone a cero el objeto select
			parent.frames["Marco_2"].document.forms[0].Temas_select.length = 0;
			// actualiza la select
			for (i=0;i<tematicas_total;i++) {
				n=tematica_orden[i];
					parent.frames["Marco_2"].document.forms[0].Temas_select.length = i+1;
					parent.frames["Marco_2"].document.forms[0].Temas_select.options[i].value = n;
					parent.frames["Marco_2"].document.forms[0].Temas_select.options[i].text = tematica_nombre[n];
			}
			i = parent.frames["Marco_2"].document.forms[0].Temas_select.length;
			iniSelectTematicas(i);
		}

		function iniSelectTematicas(i) { // se llama tambien de la PAGINA_2.htm
			parent.frames["Marco_2"].document.forms[0].Temas_select.length = i+1;
			parent.frames["Marco_2"].document.forms[0].Temas_select.options[i].value = -1;
			parent.frames["Marco_2"].document.forms[0].Temas_select.options[i].text = "Lista  de  Temáticas ";
			parent.frames["Marco_2"].document.forms[0].Temas_select.selectedIndex = i;
		}

		function tematicaSiguiente(inc) {
			lon=parent.frames["Marco_2"].document.forms[0].Temas_select.length;
			i=parent.frames["Marco_2"].document.forms[0].Temas_select.selectedIndex;
				i=i+inc;
				if (i<0) i=lon-2;
				if (i>lon-2) i=0;
			parent.frames["Marco_2"].document.forms[0].Temas_select.selectedIndex = i;
			nuevaTematicaPais(-1,-1,"");
		}

		function tematicaPaisSiguiente(inc) {
			lon=parent.frames["Marco_2"].document.forms[0].Paises_select.length;
			if (lon>2) {
				i=parent.frames["Marco_2"].document.forms[0].Paises_select.selectedIndex;
				i=i+inc;
				if (i<0) i=lon-2;
				if (i>lon-2) i=0;
				parent.frames["Marco_2"].document.forms[0].Paises_select.selectedIndex = i;
				nuevaTematicaPais(-3,0,"");
			}
		}

		function nuevaTematicaPais(sTe,sPa,variedades)	{ //qq
			opcionTe=sTe;
			switch (sTe) {
				case -3: sTe = tema_numero_actual();		// mismo tematica
							sPa = pais_numero_actual();		// otro pais
							break;
				case -2: sTe = otroTema_numero_actual();	// otra tematica
							sPa = pais_numero_actual();		// mismo pais
							break;
				case -1: sTe = tema_numero_actual();		// nueva tematica
							break;
			}
			if (sTe>=0 && sTe<tematicas_total) {
				if (sPa==-1) sPa = tematica_pais_primer[sTe];	// primer pais de la nueva tematica
				directorio=ini_dir+tematica_directorio[sTe];
				if (opcionTe != -3) {
					actualiza_select_paises(sTe);
					parent.frames["Marco_2"].document.Formulario.Temas_select.selectedIndex = indice_de_tema(sTe);
					parent.frames["Marco_2"].document.Formulario.nSe.value = tematica_sellos[sTe]; // Numero de sellos por tematica
					parent.Marco_3.location.href = "PAGINA_3.htm";
					parent.Marco_4.location.href = directorio+"/PAGINA_4.htm";
				}
				if (sPa>=0 && sPa<paises_total) {
					parent.frames["Marco_2"].document.Formulario.Paises_select.selectedIndex = indice_de_pais(sPa);
					if (tematica_activa[sTe]) {
						parent.Marco_5.location.href = directorio+"/PAGINA_"+pais_codigo[sPa]+variedades+".htm";
					}
					else {
						alert("Tematica "+tematica_nombre[sTe]+" DESACTIVADA");
					}
				}
			}
		}

		function actualiza_select_paises(sTe) {
			cod=":"+sTe+":"
			// Pone a cero el objeto select
			parent.frames["Marco_2"].document.forms[0].Paises_select.length = 0;
			// actualiza la select
			xx=0;
			for (i=0;i<paises_total;i++) {
				n=pais_orden[i];
				if (pais_tematicas[n]!="") {
					if (pais_tematicas[n].indexOf(cod)!=-1) {
						//alert(i+' '+pais_nombre[n]+' '+' '+cod+' '+pais_tematicas[n]+' Si');
						parent.frames["Marco_2"].document.forms[0].Paises_select.length = xx+1;
						parent.frames["Marco_2"].document.forms[0].Paises_select.options[xx].value = n;
						parent.frames["Marco_2"].document.forms[0].Paises_select.options[xx].text = pais_nombre[n];
						xx++;
						//alert(xx+' '+n+' '+pais_nombre[n]);
					}
					else {
						//alert(i+' '+pais_nombre[n]+' '+' '+cod+' '+pais_tematicas[n]+' No');					
					}
				}
			}
			i = parent.frames["Marco_2"].document.forms[0].Paises_select.length;
			iniSelectPaises(i);
		}

		function iniSelectPaises(i) { // se llama tambien de la PAGINA_2.htm
			parent.frames["Marco_2"].document.forms[0].Paises_select.length = i+1;
			parent.frames["Marco_2"].document.forms[0].Paises_select.options[i].value = -1;
			parent.frames["Marco_2"].document.forms[0].Paises_select.options[i].text = "Paises de la Temát. ";
		}

		function indice_de_tema(x) {
			for (i=0;i<tematicas_total;i++) {
				if (tematica_orden[i]==x) break;
			}
			return i;
		}

		function actualiza_select(cTe,pais) {
			// Pone a cero el objeto select
			parent.frames["Marco_2"].document.forms[0].Tema.length = 0;
			// lee la cadena de tematicas para el pais
			cadena=pais_tematicas[pais];
			// actualiza la select
			n=0;
			ini = cadena.indexOf(":");
			if (ini>=0) {
				fin = cadena.indexOf(":",ini+1);
				if (fin>=0) {
					for (i=0;fin>=0;i++) {
						xTe=eval(cadena.substring(ini+1,fin));
							n++;
							//alert(cadena.substring(ini+1,fin));
							parent.frames["Marco_2"].document.forms[0].Tema.length = i+1;
							parent.frames["Marco_2"].document.forms[0].Tema.options[i].value = xTe;
							parent.frames["Marco_2"].document.forms[0].Tema.options[i].text = tematica_nombre[xTe];
						ini=fin;
						fin = cadena.indexOf(":",ini+1);
					}
				}
			}
			i = parent.frames["Marco_2"].document.forms[0].Tema.length;
			iniSelect(i);
		}

		function iniSelect(i) { // se llama tambien de la PAGINA_2.htm
			parent.frames["Marco_2"].document.forms[0].Tema.length = i+1;
			parent.frames["Marco_2"].document.forms[0].Tema.options[i].value = -1;
			parent.frames["Marco_2"].document.forms[0].Tema.options[i].text = "Otras Temáticas ";
			parent.frames["Marco_2"].document.forms[0].Tema.selectedIndex = i;
		}

		function ini_total_paises(no_ini,pag_var) {
			cTe = tema_numero_actual();
			// lee la coleccion de paises
			xTd=num_sellos(cTe,true); 
			xPa=num_sellos(cTe,false);
			// actualizacion de contadores
			if (!no_ini)  {
				parent.frames["Marco_2"].document.Formulario.Tot.value= ""; // Coleccion Pais diferentes
				parent.frames["Marco_2"].document.Formulario.Top.value= "";
				parent.frames["Marco_2"].document.Formulario.Pai.value= "";
			}
			parent.frames["Marco_2"].document.Formulario.Tod.value= xTd;
			parent.frames["Marco_2"].document.Formulario.Pai.value= xPa;
		}		

		function ini_sellos(sPa,pag_var) { //qq LLamado al final de las paginas: PAGINA_AA.htm, PAGINA_AB.htm, ...
			sTe = tema_numero_actual();
			parent.frames["Marco_2"].document.Formulario.Paises_select.selectedIndex = indice_de_pais(sPa);
			if (!pag_var) {
				// actualizacion de contadores a cero
				parent.frames["Marco_2"].document.Formulario.Tot.value= 0;
				//--------------------------------------------------------
				sellos=sello.length;
				parent.frames["Marco_2"].document.Formulario.Top.value = sellos;
			  	// Inicializa los sellos
 				for (n=0;n<sellos;n++) {
					//Desactiva los checkbox
					//alert(sellos+" = "+n+" , "+sello[n]);
					document.datos.elements[n].checked=false;
	 				// Asigna los valores a los checkbox.
					document.datos.elements[n].value = sello[n].substr(0,longitud_tramo);
				}
				// recupera del disco los datos de la coleccion
				activa_checkbox(sTe,sPa);
				cuenta_checkbox();
			}
			actualiza_select(sTe,sPa)
		}

		function activa_checkbox(cTe,pais) { // Activa el checkbox por su nombre, no por su posición.
			coleccion_pais=lee_pais(pais,cTe);
			if (coleccion_pais!="") {
				sellos=sello.length;
				tramos=coleccion_pais.length/longitud_tramo;
				for (n=0;n<tramos;n++) {
					codigo=coleccion_pais.substring(n*longitud_tramo,(n+1)*longitud_tramo);
					for (k=0;k<sellos;k++) {
						if (document.datos.elements[k].value==codigo) {
							document.datos.elements[k].checked=true;
							break;
						}
					}
				}
			}
		}
		
		function cuenta_checkbox() {
			// Cuenta los checkbox de cada Pais en estado true
			sellos=sello.length;
			xT=0;
			for (n=0;n<sellos;n++) {
				if (document.datos.elements[n].checked) {
					xT++;
				}
			}
			parent.frames["Marco_2"].document.Formulario.Tot.value= xT;
		}

		function ContarS(S_Marcado) {
			pais = pais_numero_actual();
			// lectura de contador de numero de sellos del pias de la coleccion
			xT=parent.frames["Marco_2"].document.Formulario.Tot.value;
			zT=xT;
			// lectura de contador de numero de sellos de todos los paises de la coleccion
			xTd=parent.frames["Marco_2"].document.Formulario.Tod.value;
			// lectura de contador de numero de Paises de la coleccion
			xPa=parent.frames["Marco_2"].document.Formulario.Pai.value;
			//--------------------------------------------------------
			// Añade o quita uno a los campos de texto segun el estado de un checkbox
			if (S_Marcado) {xT++;xTd++;}
			else {xT--;xTd--;}
			parent.frames["Marco_2"].document.Formulario.Tot.value= xT;
			parent.frames["Marco_2"].document.Formulario.Tod.value= xTd;
			if (zT>0  && xT==0) {xPa--;}
			if (zT==0 && xT>0 ) {xPa++;}
			parent.frames["Marco_2"].document.Formulario.Pai.value= xPa;
			escribe_cookie(pais,false);
		}
		
		function escribe_cookie(pais,ver) { // Guarda en disco los datos
			cTe = tema_numero_actual();
			//Lee la coleccio pais
			coleccion_paises = lee_coleccion(cTe,false);
			//alert(" Leido ("+coleccion_paises+")");
			//Elimina coleccion_pais de coleccion_paises
			coleccion_paises_sin_pais=borra_pais(pais,coleccion_paises);
			if (ver) alert("(escribe_cookie 1) coleccion_paises_sin_pais 1 ("+coleccion_paises_sin_pais+")");
			// Actualiza la terminacion de la cookie
			ini=coleccion_paises_sin_pais.indexOf(cookie_terminacion);
			if (ini==-1) { // Pona la terminacion si no tiene
				coleccion_paises_sin_pais=coleccion_paises_sin_pais+cookie_terminacion;
			}
			else { // Elimina las terminaciones repetidas
				coleccion_paises_sin_pais=coleccion_paises_sin_pais.substring(0,ini+3)
			}
			if (coleccion_paises_sin_pais==cookie_terminacion) cookie_version=cookie_version_actual;
			if (ver) alert("(escribe_cookie 1) coleccion_paises_sin_pais 2 ("+coleccion_paises_sin_pais+")");
			// Reconstruye la coleccion del pais
			coleccion_pais_nueva=actualiza_pais(pais); // Actualiza la situacion actual de la coleccion del pais
			if (coleccion_pais_nueva!="") { // Si hay algun sello marcado
				coleccion_pais_nueva=codifica(coleccion_pais_nueva); // Codifica a base 22 todos los sellos
				coleccion_pais_nueva=pais_codigo[pais]+":"+coleccion_pais_nueva; // Añade el codigo del pais
			}
			if (ver) alert("(escribe_cookie 2) coleccion_pais_nueva ("+coleccion_pais_nueva+")");
			// Inserta la version y la nueva coleccion del pais al principio de la cookie
			coleccion_paises_nueva=cookie_version_actual+coleccion_pais_nueva+coleccion_paises_sin_pais;
			if (ver) alert("(escribe_cookie 3) coleccion_paises_nueva ("+coleccion_paises_nueva+")");
			// Guarda en disco los datos
			guardar_cookie(cTe,coleccion_paises_nueva);
		}
		
		function guardar_cookie(cTe,coleccion_paises_nueva) {
			nombre_cookie=cookie_raiz+tematica_directorio[cTe]+"=";
			var hoy = new Date();
			// var vence = new Date(hoy.getTime()+1*24*60*60*1000); // Vencimiento de un dia
			// var vence = new Date(hoy.getTime()+265*24*60*60*1000); // Vencimiento de un año
			var vence = new Date(hoy.getTime()+100*265*24*60*60*1000); // Vencimiento de 100 años
			datos_cookie=coleccion_paises_nueva;
			fecha_cookie=";expires="+vence.toGMTString(); // caducidad
			coleccion_cookie = nombre_cookie+datos_cookie+fecha_cookie; // CON caducidad
			//coleccion_cookie = datos_cookie; // SIN caducidad
			if (cookie_version==cookie_version_actual) {
				ok='Si';
				document.cookie = coleccion_cookie; // Escribe la cookie
			}
			else {
				ok='No';
				alert("información no guardada por diferencia de versión. Leida:"+cookie_version+" y Actual:"+cookie_version_actual);
			}
			//alert(ok+" Escrito "+nombre_cookie+" ("+coleccion_cookie+")");
		}

		function lee_pais(pais,cTe) {
			coleccion_pais="";
			cod_pais=pais_codigo[pais]+":";
			// lee la coleccion de paises
			coleccion_paises = lee_coleccion(cTe,false);
			//------------------------------------------------------------
			ini = coleccion_paises.indexOf(cod_pais);
			if (ini > -1) {
				ini=ini+3
				fin = coleccion_paises.indexOf(":",ini);
				if (fin==-1) {fin=coleccion_paises.length;} else {fin=fin-2;}
				coleccion_pais=coleccion_paises.substring(ini,fin);
			}
			coleccion_pais=decodifica(coleccion_pais)
			return coleccion_pais;
		}

		function decodifica(cadena_pais)	{ //Decodifica de base 22 a base 10 cada sello del pais
			cadena_salida="";
			lon_tramo=5;
			num_tramos=cadena_pais.length/lon_tramo;
			for (j=0;j<num_tramos;j++) {
				cadena1=cadena_pais.substring(j*lon_tramo,j*lon_tramo+lon_tramo-2);
				cadena2=cadena_pais.substring(j*lon_tramo+lon_tramo-2,j*lon_tramo+lon_tramo);
				cadena_salida=cadena_salida+deBaseA10(cookie_base_codificacion,cadena1)+cadena2;
			}
			//alert(cadena_pais+"\n"+cadena_salida);
			return cadena_salida;
		}

		function codifica(cadena_pais) {	//Codifica de base 10 a base 22 cada sello del pais
			cadena_salida="";
			lon_tramo=longitud_tramo;
			num_tramos=cadena_pais.length/lon_tramo;
			for (j=0;j<num_tramos;j++) {
				cadena1=cadena_pais.substring(j*lon_tramo,j*lon_tramo+lon_tramo-2);
				cadena2=cadena_pais.substring(j*lon_tramo+lon_tramo-2,j*lon_tramo+lon_tramo);
				cadena_salida=cadena_salida+deBase10A(cookie_base_codificacion,cadena1)+cadena2;
			}
			//alert(cadena_pais+"\n"+cadena_salida);
			return cadena_salida;
		}

		function borra_pais(pais,coleccion) {
			cod_pais=pais_codigo[pais]+":";
			ini = coleccion.indexOf(cod_pais);
			if (ini > -1) {
				fin = coleccion.indexOf(":",ini+3);
				if (fin==-1) {fin=coleccion.length;} else {fin=fin-2;}
				coleccion=coleccion.substring(0,ini)+coleccion.substring(fin);
			}
			return coleccion;
		}
		
		function actualiza_pais(pais) {
			// lee el estado de todos los checkbox cada vez que uno cambia de estado
			sellos=sello.length;
			coleccion_pais_nueva="";
			for (n=0;n<sellos;n++) {
				if (document.datos.elements[n].checked) {
					coleccion_pais_nueva=coleccion_pais_nueva+document.datos.elements[n].value;
				}
			}

			return coleccion_pais_nueva;
		}
		
		function num_sellos(cTe,contar_sellos) { // contar  =  true:cuenta sellos , false:cuenta paises
			terminar = false;
			n=0;
			coleccion_paises = lee_coleccion(cTe,false);
			if (cookie_version==cookie_version_actual) {
				if (coleccion_paises.indexOf(cookie_terminacion)==-1) coleccion_paises=coleccion_paises+cookie_terminacion;
				n=0;
				ini = coleccion_paises.indexOf(":");
				fin = coleccion_paises.indexOf(":",ini+1);
				if (ini == -1 || fin == -1)  {terminar = true;}
				salir=false;
				xx=0
				while (!terminar && !salir) {
					xx++;
					if (xx==10000) salir=true;
					fin = coleccion_paises.indexOf(":",ini+1)-2;
					terminacion=coleccion_paises.substring(fin,fin+3);
					if (terminacion==cookie_terminacion) {terminar = true;}
					if (ini<fin) {
						cole_pais=coleccion_paises.substring(ini+1,fin);
						if (cole_pais.indexOf(" ")==-1) {
							if (contar_sellos) {
								n=n+cole_pais.length/(longitud_tramo_codificado);
							}
							else {
								n=n+1;
							}
						}
					}
					ini = coleccion_paises.indexOf(":",ini+1);
				}
				if (xx>=10000) alert("Bucle infinito en: num_sellos()");
			}
			return n
		}

		function lee_coleccion(cTe,ver) {
			nombre_cookie=cookie_raiz+tematica_directorio[cTe]+"=";
			coleccion_paises="";
			cookie_version=cookie_version_actual;
			if(document.cookie == "")	{
				if (ver) alert("(lee coleccion) Cookie VACIA.");
			}
			else {
				ini = document.cookie.indexOf(nombre_cookie);
				if (ini > -1) {
					ini = document.cookie.indexOf("=",ini)+1;
					fin = document.cookie.indexOf(";",ini);
					if (fin==-1) {fin=document.cookie.length;}
					cookie_leida=document.cookie.substring(ini,fin);
					cookie_version=document.cookie.substring(ini,ini+1);
					if (ver) alert("Leido version "+cookie_version+": "+nombre_cookie+" ("+cookie_leida+")");
					//Cambio de versión---------------------------------------------------
					switch (cookie_version) {
						case cookie_version_actual: cookie_actual=cookie_leida; break;
						case "0"	: cookie_actual=cambiar_version6_a_8codificada63(cookie_leida); break;
						default	: cookie_actual=cambiar_version8_a_8codificada63(cookie_leida);
					}
					//--------------------------------------------------------------------
					cookie_version=cookie_actual.substring(0,1);
					coleccion_paises=cookie_actual.substring(1);
					if (ver) alert("revisado version "+cookie_version+": "+nombre_cookie+" ("+coleccion_paises+")");
				}
			}
			return coleccion_paises;
		}
		
		function cambiar_version6_a_8codificada63(cookie_leida) {
			cookie_version="1";
			cookie_actual="";
			guardar_cookie(cTe,cookie_actual);
			return cookie_actual;
		}

		function cambiar_version8_a_8codificada63(cookie_leida) {
			cookie_version="1";
			cookie_actual="";
			guardar_cookie(cTe,cookie_actual);
			return cookie_actual;
		}

		function cambiar_version8_a_6codificada(cookie_leida) {
			cookie_actual="";
			ini = cookie_leida.indexOf(":");
			fin = cookie_leida.indexOf(":",ini+1);
			while (fin>0) {
				ini=ini+1;
				fin=fin-2;
				cod_pais=cookie_leida.substring(ini-3,ini-1);
				col_pais=cookie_leida.substring(ini,fin);
				//-----------------------------------------------
				col_pais=reduce8a6(col_pais)
				col_pais=codifica(col_pais);
				//-----------------------------------------------
				cookie_actual=cookie_actual+cod_pais+":"+col_pais
				ini = cookie_leida.indexOf(":",fin+1);
				fin = cookie_leida.indexOf(":",ini+1);
			}
			cookie_version="0"
			cookie_actual=cookie_version+cookie_actual+cookie_terminacion;
			//alert(cookie_leida+'\n'+cookie_actual)
			guardar_cookie(cTe,cookie_actual);
		 	return cookie_actual
		}

		function reduce8a6(cadena_pais) {
			lon_ant=8;
			lon_act=6;
			cadena_salida="";
			num_tramos=cadena_pais.length/lon_ant;
			for (i=0;i<num_tramos;i++) {
				cadena_salida=cadena_salida+cadena_pais.substring(i*lon_ant,i*lon_ant+lon_act);
			}
			return cadena_salida;
		}

		function de10a22(cadena) {
			if (cadena.substring(0,1)=="X") {
				salida=abase(22,cadena.substring(1));
				salida="X"+salida.substring(1);
			}
			else {
				salida=abase(22,cadena);
			}
			return salida
		}

		function abase(base,cadena) {
			num=abase10n(10,cadena);
			salida="";
			while (num>=base) {
				div=Math.floor(num/base);
				resto=num%base;
				//alert(num+"/"+base+" = "+div+" * "+base+" + "+resto);
				num=div;
				salida=digito(resto)+salida;
			}
			salida=digito(num)+salida;
			if (salida.length==1) salida="00"+salida;
			if (salida.length==2) salida="0"+salida;
			return salida;
		}

		function de22a10(cadena) {
			if (cadena.substring(0,1)=="X") {
				salida=abase10c(22,cadena.substring(1));
				salida="X"+salida.substring(1);
			}
			else {
				salida=abase10c(22,cadena);
			}
			return salida
		}

		function abase10c(base,cadena) {
			salida=0;
			orden=cadena.length;
			peso=1;
			for (i=0;i<orden;i++) {
				car=cadena.substring(orden-i-1,orden-i);
				salida=salida+decimal(car)*peso;
				peso=peso*base;
			}
			salida=""+salida;
			if (salida.length==1) salida="000"+salida;
			if (salida.length==2) salida="00"+salida;
			if (salida.length==3) salida="0"+salida;
			return salida;
		}

		function abase10n(base,cadena) {
			salida=0;
			orden=cadena.length;
			peso=1;
			for (i=0;i<orden;i++) {
				car=cadena.substring(orden-i-1,orden-i);
				salida=salida+decimal(car)*peso;
				peso=peso*base;
			}
			return salida;
		}

		function digito(resto) {
			if (resto<10) {
				dig=resto;
			}
			else {
				switch (resto) {
					case 10: dig="A"; break;
					case 11: dig="B"; break;
					case 12: dig="C"; break;
					case 13: dig="D"; break;
					case 14: dig="E"; break;
					case 15: dig="F"; break;
					case 16: dig="G"; break;
					case 17: dig="H"; break;
					case 18: dig="I"; break;
					case 19: dig="J"; break;
					case 20: dig="K"; break;
					case 21: dig="L"; break;
					case 22: dig="M"; break;
					case 23: dig="N"; break;
					case 24: dig="O"; break;
					case 25: dig="P"; break;
					case 26: dig="Q"; break;
					case 27: dig="R"; break;
					case 28: dig="S"; break;
					case 29: dig="T"; break;
					case 30: dig="U"; break;
					case 31: dig="V"; break;
					case 32: dig="W"; break;
					case 33: dig="X"; break;
					case 34: dig="Y"; break;
					case 35: dig="Z"; break;
					case 36: dig="a"; break;
					case 37: dig="b"; break;
					case 38: dig="c"; break;
					case 39: dig="d"; break;
					case 40: dig="e"; break;
					case 41: dig="f"; break;
					case 42: dig="g"; break;
					case 43: dig="h"; break;
					case 44: dig="i"; break;
					case 45: dig="j"; break;
					case 46: dig="k"; break;
					case 47: dig="l"; break;
					case 48: dig="m"; break;
					case 49: dig="n"; break;
					case 50: dig="o"; break;
					case 51: dig="p"; break;
					case 52: dig="q"; break;
					case 53: dig="r"; break;
					case 54: dig="s"; break;
					case 55: dig="t"; break;
					case 56: dig="u"; break;
					case 57: dig="v"; break;
					case 58: dig="w"; break;
					case 59: dig="x"; break;
					case 60: dig="y"; break;
					case 61: dig="z"; break;
					case 62: dig="_"; break;
					case 63: dig="+"; break;
					case 64: dig="-"; break;
					default: dig=" ";
				}
			}
			return dig;
		}
	
		function decimal(car) {
			switch (car) {
				case "A": dig=10; break;
				case "B": dig=11; break;
				case "C": dig=12; break;
				case "D": dig=13; break;
				case "E": dig=14; break;
				case "F": dig=15; break;
				case "G": dig=16; break;
				case "H": dig=17; break;
				case "I": dig=18; break;
				case "J": dig=19; break;
				case "K": dig=20; break;
				case "L": dig=21; break;
				case "M": dig=22; break;
				case "N": dig=23; break;
				case "O": dig=24; break;
				case "P": dig=25; break;
				case "Q": dig=26; break;
				case "R": dig=27; break;
				case "S": dig=28; break;
				case "T": dig=29; break;
				case "U": dig=30; break;
				case "V": dig=31; break;
				case "W": dig=32; break;
				case "X": dig=33; break;
				case "Y": dig=34; break;
				case "Z": dig=35; break;
				case "a": dig=36; break;
				case "b": dig=37; break;
				case "c": dig=38; break;
				case "d": dig=39; break;
				case "e": dig=40; break;
				case "f": dig=41; break;
				case "g": dig=42; break;
				case "h": dig=43; break;
				case "i": dig=44; break;
				case "j": dig=45; break;
				case "k": dig=46; break;
				case "l": dig=47; break;
				case "m": dig=48; break;
				case "n": dig=49; break;
				case "o": dig=50; break;
				case "p": dig=51; break;
				case "q": dig=52; break;
				case "r": dig=53; break;
				case "s": dig=54; break;
				case "t": dig=55; break;
				case "u": dig=56; break;
				case "v": dig=57; break;
				case "w": dig=58; break;
				case "x": dig=59; break;
				case "y": dig=60; break;
				case "z": dig=61; break;
				case "_": dig=62; break;
				case "+": dig=63; break;
				case "-": dig=64; break;
				default: dig=eval(car);
			}
			return dig;
		}


		function deBase10A(base,cadena) {
			salida=abase(base,cadena);
			return salida
		}

		function deBaseA10(base,cadena) {
			salida=abase10c(base,cadena);
			return salida
		}
		
		
		function leeCookie(nombre) {
			var cadena = ""
			if(document.cookie != "") {
				ini = document.cookie.indexOf(nombre + "=");
				if (ini > -1) {
					ini = document.cookie.indexOf("=",ini)+1;
					fin = document.cookie.indexOf(";",ini);
					if (fin==-1) {fin=document.cookie.length;}
					cadena=document.cookie.substring(ini,fin);
				}
			} return cadena;
		}