function soloorigenes (frmDatos,rutaxml){
	var areas = new Array ();
	var long_com, long_prov;
	var pos_array = 0;
	var vendible = 0;
	borracombo(frmDatos);
	abreXml(rutaxml)
	frmDatos.options[0] = new Option(origen,"")

	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++)
		{
			if (xmlObj.childNodes(i).childNodes(j).getAttribute("iata") == 'SI')
			{
				areas [pos_array] = xmlObj.childNodes(i).childNodes(j).getAttribute("provincia") + "-" + xmlObj.childNodes(i).childNodes(j).getAttribute("cod");
				pos_array ++;
			}
		}
	}
	areas = ordenaArray (areas);
	pintaOrigenes (areas,frmDatos)
}

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

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

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 soloareas (frmDatos,folleto,rutaxml,destino)
{
	var areas = new Array ();
	var long_com, long_prov, long_loc;
	var pos_array = 0;
	var vendible = 0;
	borracombo(frmDatos);
	abreXml(rutaxml)
	frmDatos.options[0] = new Option(destino,"")

	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++){
			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')
					vendible++;
			}
			if (vendible > 0)
			{
				areas [pos_array] = xmlObj.childNodes(i).childNodes(j).getAttribute("provincia") + "-" + xmlObj.childNodes(i).getAttribute("cod") + "/" + xmlObj.childNodes(i).childNodes(j).getAttribute("cod") + "/" + xmlObj.childNodes(i).childNodes(j).text;
				pos_array ++;
			}
			vendible = 0;
		}
	}
	areas = ordenaArray (areas);
	pintaArea (areas,frmDatos)
}

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_inter (cod,frmDatos,rutaxml){


var codAreazona = cod.split("/");
var cod_com = codAreazona [0];
var cod_pro = codAreazona [1];
var text_pro = codAreazona [2];
var long_com,long_pro, long_loc;
var encontrado = 0;
var i=0,j;
var ContCombo = 1;
var folletos = '';

borracombo(frmDatos);

abreXml(rutaxml)

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

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)
		{
//		alert ("Codigo XML: " + xmlObj.childNodes(i).childNodes(j).getAttribute ('cod') + "\nCodigo Provincia: " + cod_pro + "\nTexto XML: " + xmlObj.childNodes(i).childNodes(j).text + "\nTexto Combo: " + text_pro)
			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')
					{
						frmDatos.options[ContCombo]=new Option(xmlObj.childNodes(i).childNodes(j).childNodes(z).text,xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("cod"));
						if (encontrado != 0)
							 folletos += ',';
						folletos += xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute ("folleto");
						ContCombo++;
						encontrado = 1;
					}						
				}
			}
			j++;
		}
	}
	i++;
}
	frmDatos.options[ContCombo] = new Option("Ver todos los hoteles del país","T")
}


function pintaZona (cod,frmDatos,frmDatos1,rutaxml){
var codAreazona = cod.split("/");
var cod_com = codAreazona [0];
var cod_pro = codAreazona [1];
var text_pro = codAreazona [2];
var long_com,long_pro, long_loc;
var encontrado = 0;
var i=0,j;
var ContCombo = 1;
var folletos = '';

borracombo(frmDatos);
abreXml(rutaxml)

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

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){
//		alert ("Codigo XML: " + xmlObj.childNodes(i).childNodes(j).getAttribute ('cod') + "\nCodigo Provincia: " + cod_pro + "\nTexto XML: " + xmlObj.childNodes(i).childNodes(j).text + "\nTexto Combo: " + text_pro)
			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'){
						frmDatos.options[ContCombo]=new Option(xmlObj.childNodes(i).childNodes(j).childNodes(z).text,xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("cod"));
						if (encontrado != 0)
							 folletos += ',';
						folletos += xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute ("folleto");
						ContCombo++;
						encontrado = 1;
					}						
				}
			}
			j++;
		}
	}
	i++;
}
if (encontrado != 0)
	pintaFolletos (folletos,frmDatos1)
}


function controlaZona (area,zona,frmDatos,rutaxml){
var codAreazona = area.split("/");
var cod_com = codAreazona [0];
var cod_pro = codAreazona [1];
var long_com,long_pro,long_loc;
var i=0,j;
var encontrado = 0;

borracombo(frmDatos);
abreXml(rutaxml)

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'){
						if(xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("cod") == zona){
							encontrado++;
							pintaFolletos (xmlObj.childNodes(i).childNodes(j).childNodes(z).getAttribute("folleto"),frmDatos)
						}
					}
				}
			}
			j++;
		}
		
	}
	i++;
}
}

function pintaFolletos (folletos,frmDatos){
	var folleto = folletos.split(",");
	var tot_folletos = folleto.length;
	var folletos_pintados = new Array ();
	var cont_folleto;
	var cont_select = 1
	var encontrado;

	borracombo (frmDatos);
	frmDatos.options[0] = new Option("(Todos)","")

	for (i=0; i<tot_folletos;i++){
		if (folleto [i] != 'BH' && folleto [i] != 'FS'){
			cont_folleto = folletos_pintados.length;
			if (cont_folleto == 0){
				pintaNombreFolleto(frmDatos,folleto[i],cont_select);
				cont_select++;
				folletos_pintados [cont_folleto] = folleto [i];
			}
			else
			{
				encontrado = 0;
				for (j=0;j<cont_folleto;j++){
					if (folleto[i] == folletos_pintados[j]) encontrado++
				}
				if (encontrado == 0){
					pintaNombreFolleto(frmDatos,folleto[i],cont_select);
					cont_select++;
					folletos_pintados [cont_folleto] = folleto [i];	
				}
			}
		}
	}
}

function pintaNombreFolleto (frmDatos,folleto,cont){
	switch (folleto){
		case "EM": 	frmDatos.options[cont]=new Option("Urbano",folleto);	
					break;
		case "FM": 	frmDatos.options[cont]=new Option("Hotel de Montaña",folleto);	
					break;
		case "FR": 	frmDatos.options[cont]=new Option("Turismo Rural",folleto);	
					break;
		case "MC": 	frmDatos.options[cont]=new Option("Hotel en la playa",folleto);	
					break;
		case "FP": 	frmDatos.options[cont]=new Option("Parador",folleto);	
					break;
		case "PA": 	frmDatos.options[cont]=new Option("Port Aventura",folleto);	
					break;
		case "IS": 	frmDatos.options[cont]=new Option("Hotel en la playa",folleto);	
					break;
		case "II": 	frmDatos.options[cont]=new Option("Islas",folleto);	
					break;
		case "PE": 	frmDatos.options[cont]=new Option("Picos de Europa",folleto);	
					break;
	}
}

function borracombo (frmDatos){

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

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;
}