function pinta_comunidad (folleto,frmDatos,rutaxml,destino)
{
	var long_com,long_pro,long_loc;
	var encontrado;
	var j,z;
	var ContCombo = 1;

	abreXml(rutaxml)

	borracombo (frmDatos);
	if(destino==null)
	{
		frmDatos.options[0]=new Option("Selecciona Comunidad","");
	}
	else
	{
		frmDatos.options[0]=new Option("Selecciona " + destino,"");
	}
	long_com = xmlObj.childNodes.length;

	for (i=0; i<long_com; i++)
	{
		long_pro = xmlObj.childNodes(i).childNodes.length;
		encontrado = 0;
		j=0;
		while (j<long_pro && encontrado == 0)
		{
			long_loc = xmlObj.childNodes(i).childNodes(j).childNodes.length;
			z=0;
			while (z<long_loc && encontrado == 0)
			{
				if (xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("vendible") == "SI" && xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("folleto").indexOf (folleto) != -1)
				{
					frmDatos.options[ContCombo]=new Option(xmlObj.childNodes(i).getAttribute("comunidad"),xmlObj.childNodes(i).getAttribute("cod"));
					ContCombo++;
					encontrado = 1;
				}
				z++;
			}
			j++;
		}
	}
}

function pinta_area (cod_com,frmDatos,folleto,rutaxml)
{
	var long_com;
	var encontradocom = 0, encontradoloc = 0;
	var i = 0, z;
	var ContCombo = 1;

	borracombo(frmDatos);
	abreXml(rutaxml)
	frmDatos.options[0] = new Option("(TODAS)","")

	long_com = xmlObj.childNodes.length;
	while (i<long_com && encontradocom == 0)
	{
		if (xmlObj.childNodes(i).getAttribute("cod") == cod_com)
		{
			long_pro = xmlObj.childNodes(i).childNodes.length;
			for (j=0; j<long_pro; j++)
			{
				encontradoloc = 0;
				z = 0;
				long_loc = xmlObj.childNodes(i).childNodes(j).childNodes.length;
				while (z<long_loc && encontradoloc == 0)
				{
					if (xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("vendible") == 'SI' && xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("folleto").indexOf (folleto) != -1)
					{
						frmDatos.options[ContCombo]=new Option(xmlObj.childNodes(i).childNodes(j).getAttribute("provincia"),xmlObj.childNodes(i).childNodes(j).getAttribute("cod"));
						ContCombo++;
						encontradoloc = 1;
					}	
					z++;
				}
			}
			encontradocom = 1;
		}
		i++;
	}
}

function pinta_zona (cod_com,cod_pro,frmDatos,folleto,rutaxml)
{

	var long_com,long_pro, long_loc;
	var encontrado = 0;
	var i=0,j;
	var ContCombo = 1;

	borracombo(frmDatos);
	abreXml(rutaxml)

	frmDatos.options[0] = new Option("(TODAS)","")

	long_com = xmlObj.childNodes.length;
	
	while (i<long_com && encontrado == 0)
	{
		if (xmlObj.childNodes(i).getAttribute ("cod") == cod_com)
		{
			long_pro = xmlObj.childNodes(i).childNodes.length;
			j = 0;
			while (j<long_pro && encontrado == 0)
			{
				if (xmlObj.childNodes(i).childNodes(j).getAttribute ("cod") == cod_pro)
				{
					long_loc = xmlObj.childNodes(i).childNodes(j).childNodes.length;
					for (z=0; z<long_loc; z++)
					{
						if (xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("vendible") == 'SI' && xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("folleto").indexOf (folleto) != -1)
						{
							frmDatos.options[ContCombo]=new Option(xmlObj.childNodes(i).childNodes(j).childNodes(z).text,xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("cod"));
							ContCombo++;
							encontrado = 1;
						}						
					}
				}
				j++;
			}
		}
		i++;
	}
}


function borracombo (frmDatos)
{
	var elemencombo = frmDatos.length;
	for(i=0;i<elemencombo;i++)
	{
		frmDatos.options[0]=null;
	}
}

function soloareas (frmDatos,folleto,rutaxml)
{
	var areas = new Array ();
	var long_com, long_prov;
	var pos_array = 0;
	
	borracombo(frmDatos);
	abreXml(rutaxml)
	frmDatos.options[0] = new Option("Selecciona provincia","")

	long_com = xmlObj.childNodes.length;

	for (i=0; i<long_com; i++)
	{
		long_prov = xmlObj.childNodes(i).childNodes.length;
		
		for (j=0; j<long_prov; j++)
		{
			areas [pos_array] = xmlObj.childNodes(i).childNodes(j).getAttribute("provincia") + "-" + xmlObj.childNodes(i).childNodes(j).getAttribute("cod")
			pos_array ++;
		}
	}
	areas = ordenaArray (areas);
	pintaArea (areas,frmDatos)
}

function ordenaArray (areas)
{
	var a = 0;
	var aux;
	for(i=a;i<areas.length-1;i++)
	{
		for(j=0;j<areas.length-1;j++)
		{
			if(areas[j]>areas[j+1])
			{
				aux=areas[j];
				areas[j]=areas[j+1];	
				areas[j+1]=aux;
			}
		}
		a++;	
	}
	return areas;
}

function pintaArea (areas,frmDatos)
{
	var long_area = areas.length;
	var dato;

	for (i=0; i<long_area; i++)
	{
		dato = areas[i].split ("-")
		frmDatos.options[i+1]=new Option(dato[0],dato[1]);
	}
}

function pintaZona (area,frmDatos,rutaxml)
{
	var long_com, long_pro, long_loc;

	borracombo(frmDatos);
	abreXml(rutaxml)

	pintaFolletoArea (area,document.frmDatos.folletovalido,rutaxml)

	frmDatos.options[0] = new Option("(opcional)","")

	long_com = xmlObj.childNodes.length;

	for (i=0; i<long_com; i++)
	{
		long_pro = xmlObj.childNodes(i).childNodes.length;

		for (j=0; j<long_pro; j++)
		{
			if (area == xmlObj.childNodes(i).childNodes(j).getAttribute("cod"))
			{
				long_loc = xmlObj.childNodes(i).childNodes(j).childNodes.length;
				for (z=0; z<long_loc; z++)
				{
					frmDatos.options[z+1]=new Option(xmlObj.childNodes(i).childNodes(j).childNodes(z).text,xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("cod"));
				}
			}
		}
	}
}

function folletoValido(area,zona,frmDatos,rutaxml)
{
	var i=0, j=0, z=0;
	var long_com, long_pro, long_loc;
	var encontrado = 0;

	borracombo(frmDatos);

	abreXml(rutaxml)

	long_com = xmlObj.childNodes.length;
	while (i<long_com && encontrado == 0)
	{
		long_pro = xmlObj.childNodes(i).childNodes.length;
		while (j<long_pro && encontrado == 0)
		{
			if (area == xmlObj.childNodes(i).childNodes(j).getAttribute('cod'))
			{
				long_loc = xmlObj.childNodes(i).childNodes(j).childNodes.length;
				while (z<long_loc && encontrado == 0)
				{
					if (zona != '')
					{
						if (zona == xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("cod") && xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("vendible") == 'SI')
						{
							pintaFolletoValido (xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute('folleto'),frmDatos)
							encontrado = 1;
						}
					}
					z++;
				}
				z=0;
			}
			j++;
		}
		j=0;
		i++;
	}
}

function pintaFolletoArea (area,frmDatos,rutaxml)
{
	var encontrado = 0;
	var encuentraFolleto = 0;
	var contFolleto = 0;
	var folletos = new Array ();
	var tot_folletos, tot_pasaFolleto;
	var pasaFolleto = new Array ();

	abreXml(rutaxml)

	while (i<xmlObj.childNodes.length && encontrado == 0)
	{
		while (j<xmlObj.childNodes(i).childNodes.length && encontrado == 0)
		{
			if (area == xmlObj.childNodes(i).childNodes(j).getAttribute('cod'))
			{
				while (z<xmlObj.childNodes(i).childNodes(j).childNodes.length && encontrado == 0)
				{
					folletos = xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute('folleto').split(",")
					for (m=0; m<folletos.length; m++)
					if (folletos[m] != 'BH' || folletos[m] != 'FS')
					{
						for (n=0; n<pasaFolleto.length; n++)
						if (folletos[m] != pasaFolleto [n])
							encuentraFolleto ++;
					}
					if (encuentraFolleto != 0 || contFolleto == 0)
					{
						pasaFolleto [contFolleto] = folletos [m];
						contFolleto++;
					}
				}
				var pepe;
				for (w=0; w<pasaFolleto.length; w++)
					pepe = pasaFolleto[w] + ",";
alert (pepe)
//				pintaFolletoValido (pepe,document.frmDatos.folletovalido)
				encontrado = 1;
			}
		}
	}
}

function pintaFolletoValido (dato,frmDatos)
{
	var folleto = dato.split (",")
	var contador = 0;
	borracombo(frmDatos);
	frmDatos.options[0] = new Option("(todos)","BH")
	var totfolletos = folleto.length;

	for (i=0; i<totfolletos;i++)
	{
		if (folleto[i] != 'FS')
		{
			switch (folleto[i])
			{
				case 'MC':	frmDatos.options[contador] = new Option("en la playa","MC")
							break;
				case 'EM':	frmDatos.options[contador] = new Option("urbano","EM")
							break;
				case 'FP':	frmDatos.options[contador] = new Option("un parador","FP")
							break;
				case 'FR':	frmDatos.options[contador] = new Option("de turismo rural","FR")
							break;
				case 'IS':	frmDatos.options[contador] = new Option("en la playa","IS")
							break;
				case 'FM':	frmDatos.options[contador] = new Option("a la montaņa","FM")
							break;
			}	
		contador++;
		}
	}
}