function pinta_comunidad_dinamicas (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 Región","");
	}
	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 && xmlObj.childNodes(i).getAttribute("cod")!='ADR')
				{
					frmDatos.options[ContCombo]=new Option(xmlObj.childNodes(i).getAttribute("comunidad"),xmlObj.childNodes(i).getAttribute("cod"));
					ContCombo++;
					encontrado = 1;
				}
				z++;
			}
			j++;
		}
	}
}

function pinta_area_dinamicas (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("Selecciona aeropuerto","")
	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++)
			{
				if (xmlObj.childNodes(i).childNodes(j).getAttribute("iata") == 'SI')
				{
					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_dinamicas (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("Todo el área","")

	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++;
	}
		frmDatos.options[ContCombo] = new Option("Toda la región","T")
}