function countriesObj(display_en, display_fr, search) {          
this.display_en = display_en;
this.display_fr = display_fr;        
this.search = search
}

function sortSelect(obj) {
	var o = new Array();
	if (obj.options==null) { return; }
	for (var i=0; i<obj.options.length; i++) {
		o[o.length] = new Option( obj.options[i].text, obj.options[i].value, obj.options[i].defaultSelected, obj.options[i].selected) ;
		}
	if (o.length==0) { return; }
	o = o.sort( 
		function(a,b) { 
			if ((a.text+"") < (b.text+"")) { return -1; }
			if ((a.text+"") > (b.text+"")) { return 1; }
			return 0;
			} 
		);

	for (var i=0; i<o.length; i++) {
		obj.options[i] = new Option(o[i].text, o[i].value, o[i].defaultSelected, o[i].selected);
		}
	}


var countries = new Array();

countries[1] = new countriesObj ("Afghanistan","Afghanistan","Afghanistan");
countries[2] = new countriesObj ("Albania","Albanie","Albania");
countries[3] = new countriesObj ("Algeria","Algérie","Algeria");
countries[4] = new countriesObj ("Andorra","Andorre","Andorra");
countries[5] = new countriesObj ("Angola","Angola","Angola");
countries[6] = new countriesObj ("Antigua and Barbuda","Antigua-et-Barbuda","Antigua and Barbuda");
countries[7] = new countriesObj ("Argentina","Argentine","Argentina");
countries[8] = new countriesObj ("Armenia","Arménie","Armenia");
countries[9] = new countriesObj ("Aruba","Aruba","Aruba");
countries[10] = new countriesObj ("Australia","Australie","Australia");
countries[11] = new countriesObj ("Austria","Autriche","Austria");
countries[12] = new countriesObj ("Azerbaijan","Azerbaïdjan","Azerbaijan");
countries[13] = new countriesObj ("Bahamas","Bahamas","Bahamas");
countries[14] = new countriesObj ("Bahrain","Bahreïn","Bahrain");
countries[15] = new countriesObj ("Bangladesh","Bangladesh","Bangladesh");
countries[16] = new countriesObj ("Barbados","Barbade","Barbados");
countries[17] = new countriesObj ("Belgium","Belgique","Belgium");
countries[18] = new countriesObj ("Belize","Belize","Belize");
countries[19] = new countriesObj ("Benin","Bénin","Benin");
countries[20] = new countriesObj ("Bhutan","Bhoutan","Bhutan");
countries[21] = new countriesObj ("Bolivia","Bolivie","Bolivia");
countries[22] = new countriesObj ("Bosnia","Bosnie","Bosnia");
countries[23] = new countriesObj ("Botswana","Botswana","Botswana");
countries[24] = new countriesObj ("Brazil","Brésil","Brazil");
countries[25] = new countriesObj ("British Virgin Islands","Iles Vierges britanniques","British Virgin Islands");
countries[26] = new countriesObj ("Bulgaria","Bulgarie","Bulgaria");
countries[27] = new countriesObj ("Burkina Faso","Burkina Faso","Burkina Faso");
countries[28] = new countriesObj ("Burundi","Burundi","Burundi");
countries[29] = new countriesObj ("Belarus","Biélorussie","Belarus");
countries[30] = new countriesObj ("Cambodia","Cambodge","Cambodia");
countries[31] = new countriesObj ("Cameroon","Cameroun","Cameroon");
countries[32] = new countriesObj ("Canada","Canada","Canada");
countries[33] = new countriesObj ("Cape Verde","Cap-Vert","Cape Verde");
countries[34] = new countriesObj ("Cayman Islands","Iles Caïmans","Cayman Islands");
countries[35] = new countriesObj ("Central African Republic","République centrafricaine","Central African Republic");
countries[36] = new countriesObj ("Chad","Tchad","Chad");
countries[37] = new countriesObj ("Chile","Chili","Chile");
countries[38] = new countriesObj ("China","Chine","China");
countries[39] = new countriesObj ("Colombia","Colombie","Colombia");
countries[40] = new countriesObj ("Comoros","Comores","Comoros");
countries[41] = new countriesObj ("Republic of, Congo","République du Congo","Congo");
countries[42] = new countriesObj ("Cook Islands","Iles Cook","Cook Islands");
countries[43] = new countriesObj ("Costa Rica","Costa Rica","Costa Rica");
countries[44] = new countriesObj ("Croatia","Croatie","Croatia");
countries[45] = new countriesObj ("Cuba","Cuba","Cuba");
countries[46] = new countriesObj ("Cyprus","Chypre","Cyprus");
countries[47] = new countriesObj ("Czech Republic","République tchèque","Czech Republic");
countries[48] = new countriesObj ("Côte d'Ivoire","Côte d'Ivoire","Côte d'Ivoire");
countries[49] = new countriesObj ("PDR Korea","RDP Corée","Democratic People's Republic of Korea");
countries[50] = new countriesObj ("DR Congo","RD Congo","Democratic Republic of the Congo");
countries[51] = new countriesObj ("Denmark","Danemark","Denmark");
countries[52] = new countriesObj ("Djibouti","Djibouti","Djibouti");
countries[53] = new countriesObj ("Dominica","Dominique","Dominica");
countries[54] = new countriesObj ("Dominican Republic","République dominicaine","Dominican Republic");
countries[55] = new countriesObj ("Ecuador","Equateur","Ecuador");
countries[56] = new countriesObj ("Egypt","Egypte","Egypt");
countries[57] = new countriesObj ("El Salvador","El Salvador","El Salvador");
countries[58] = new countriesObj ("Equatorial Guinea","Guinée équatoriale","Equatorial Guinea");
countries[59] = new countriesObj ("Eritrea","Erythrée","Eritrea");
countries[60] = new countriesObj ("Estonia","Estonie","Estonia");
countries[61] = new countriesObj ("Ethiopia","Ethiopie","Ethiopia");
countries[62] = new countriesObj ("Fiji","Fidji","Fiji");
countries[63] = new countriesObj ("Finland","Finlande","Finland");
countries[64] = new countriesObj ("France","France","France");
countries[65] = new countriesObj ("Gabon","Gabon","Gabon");
countries[66] = new countriesObj ("Gambia","Gambie","Gambia");
countries[67] = new countriesObj ("Georgia","Géorgie","Georgia");
countries[68] = new countriesObj ("Germany","Allemagne","Germany");
countries[69] = new countriesObj ("Ghana","Ghana","Ghana");
countries[70] = new countriesObj ("Greece","Grèce","Greece");
countries[71] = new countriesObj ("Grenada","Grenade","Grenada");
countries[72] = new countriesObj ("Guatemala","Guatemala","Guatemala");
countries[73] = new countriesObj ("Guinea","Guinée","Guinea");
countries[74] = new countriesObj ("Guinea-Bissau","Guinée-Bissau","Guinea-Bissau");
countries[75] = new countriesObj ("Guyana","Guyana","Guyana");
countries[76] = new countriesObj ("Haiti","Haïti","Haiti");
countries[77] = new countriesObj ("Honduras","Honduras","Honduras");
countries[78] = new countriesObj ("Hungary","Hongrie","Hungary");
countries[79] = new countriesObj ("Iceland","Islande","Iceland");
countries[80] = new countriesObj ("India","Inde","India");
countries[81] = new countriesObj ("Indonesia","Indonésie","Indonesia");
countries[82] = new countriesObj ("Iran","Iran","Iran");
countries[83] = new countriesObj ("Iraq","Iraq","Iraq");
countries[84] = new countriesObj ("Ireland","Irelande","Ireland");
countries[85] = new countriesObj ("Israel","Israël","Israel");
countries[86] = new countriesObj ("Italy","Italie","Italy");
countries[87] = new countriesObj ("Jamaica","Jamaïque","Jamaica");
countries[88] = new countriesObj ("Japan","Japon","Japan");
countries[89] = new countriesObj ("Jordan","Jordanie","Jordan");
countries[90] = new countriesObj ("Kazakhstan","Kazakhstan","Kazakhstan");
countries[91] = new countriesObj ("Kenya","Kenya","Kenya");
countries[92] = new countriesObj ("Kiribati","Kiribati","Kiribati");
countries[93] = new countriesObj ("Kuwait","Koweït","Kuwait");
countries[94] = new countriesObj ("Kyrgyzstan","Kirghizistan","Kyrgyzstan");
countries[95] = new countriesObj ("Lao","Lao","Lao");
countries[96] = new countriesObj ("Latvia","Lettonie","Latvia");
countries[97] = new countriesObj ("Lebanon","Liban","Lebanon");
countries[98] = new countriesObj ("Lesotho","Lesotho","Lesotho");
countries[99] = new countriesObj ("Liberia","Libéria","Liberia");
countries[100] = new countriesObj ("Libyan Arab Jamahiriya","Jamahiriya arabe libyenne","Libyan Arab Jamahiriya");
countries[101] = new countriesObj ("Lithuania","Lituanie","Lithuania");
countries[102] = new countriesObj ("Luxembourg","Luxembourg","Luxembourg");
countries[103] = new countriesObj ("Macao, China","Macao, Chine","Macao, China");
countries[104] = new countriesObj ("Madagascar","Madagascar","Madagascar");
countries[105] = new countriesObj ("Malawi","Malawi","Malawi");
countries[106] = new countriesObj ("Malaysia","Malaisie","Malaysia");
countries[107] = new countriesObj ("Maldives","Maldives","Maldives");
countries[108] = new countriesObj ("Mali","Mali","Mali");
countries[109] = new countriesObj ("Malta","Malte","Malta");
countries[110] = new countriesObj ("Marshall Islands","Iles Marshall","Marshall Islands");
countries[111] = new countriesObj ("Mauritania","Mauritanie","Mauritania");
countries[112] = new countriesObj ("Mauritius","Maurice","Mauritius");
countries[113] = new countriesObj ("Mexico","Mexique","Mexico");
countries[114] = new countriesObj ("Micronesia","Micronésie","Micronesia");
countries[115] = new countriesObj ("Republic of Moldova","Moldavie","Republic of Moldova");
countries[116] = new countriesObj ("Monaco","Monaco","Monaco");
countries[117] = new countriesObj ("Mongolia","Mongolie","Mongolia");
countries[118] = new countriesObj ("Morocco","Maroc","Morocco");
countries[119] = new countriesObj ("Mozambique","Mozambique","Mozambique");
countries[120] = new countriesObj ("Myanmar","Myanmar","Myanmar");
countries[121] = new countriesObj ("Namibia","Namibie","Namibia");
countries[122] = new countriesObj ("Nauru","Nauru","Nauru");
countries[123] = new countriesObj ("Nepal","Népal","Nepal");
countries[124] = new countriesObj ("Netherlands","Pays-Bas","Netherlands");
countries[125] = new countriesObj ("Netherlands Antilles","Antilles néerlandaises","Netherlands Antilles");
countries[126] = new countriesObj ("New Zealand","Nouvelle-Zélande","New Zealand");
countries[127] = new countriesObj ("Nicaragua","Nicaragua","Nicaragua");
countries[128] = new countriesObj ("Niger","Niger","Niger");
countries[129] = new countriesObj ("Nigeria","Nigéria","Nigeria");
countries[130] = new countriesObj ("Niue","Nioué","Niue");
countries[131] = new countriesObj ("Norway","Norvège","Norway");
countries[132] = new countriesObj ("Oman","Oman","Oman");
countries[133] = new countriesObj ("Pakistan","Pakistan","Pakistan");
countries[134] = new countriesObj ("Palau","Palaos","Palau");
countries[135] = new countriesObj ("Panama","Panama","Panama");
countries[136] = new countriesObj ("Papua New Guinea","Papouasie-Nouvelle-Guinée","Papua New Guinea");
countries[137] = new countriesObj ("Paraguay","Paraguay","Paraguay");
countries[138] = new countriesObj ("Peru","Pérou","Peru");
countries[139] = new countriesObj ("Philippines","Philippines","Philippines");
countries[140] = new countriesObj ("Poland","Pologne","Poland");
countries[141] = new countriesObj ("Portugal","Portugal","Portugal");
countries[142] = new countriesObj ("Qatar","Qatar","Qatar");
countries[143] = new countriesObj ("Romania","Roumanie","Romania");
countries[144] = new countriesObj ("Russia","Russie","Russia");
countries[145] = new countriesObj ("Rwanda","Rwanda","Rwanda");
countries[146] = new countriesObj ("Saint Kitts and Nevis","Saint-Kitts-et-Nevis","Saint Kitts and Nevis");
countries[147] = new countriesObj ("Saint Lucia","Sainte-Lucie","Saint Lucia");
countries[148] = new countriesObj ("S. Vincent and Grenadines","St.-Vincent-et-les Grenadines","S. Vincent and the Grenadines");
countries[149] = new countriesObj ("Samoa","Samoa","Samoa");
countries[150] = new countriesObj ("San Marino","Saint-Marin","San Marino");
countries[151] = new countriesObj ("Sao Tome and Principe","Sao Tomé-et-Principe","Sao Tome and Principe");
countries[152] = new countriesObj ("Saudi Arabia","Arabie saoudite","Saudi Arabia");
countries[153] = new countriesObj ("Senegal","Sénégal","Senegal");
countries[154] = new countriesObj ("Seychelles","Seychelles","Seychelles");
countries[155] = new countriesObj ("Sierra Leone","Sierra Leone","Sierra Leone");
countries[156] = new countriesObj ("Slovakia","Slovaquie","Slovakia");
countries[157] = new countriesObj ("Slovenia","Slovénie","Slovenia");
countries[158] = new countriesObj ("Solomon Islands","Iles Salomon","Solomon Islands");
countries[159] = new countriesObj ("South Africa","Afrique du Sud","South Africa");
countries[160] = new countriesObj ("Republic of Korea","République de Corée","Republic of Korea");
countries[161] = new countriesObj ("Spain","Espagne","Spain");
countries[162] = new countriesObj ("Sri Lanka","Sri Lanka","Sri Lanka");
countries[163] = new countriesObj ("Sudan","Soudan","Sudan");
countries[164] = new countriesObj ("Suriname","Suriname","Suriname");
countries[165] = new countriesObj ("Swaziland","Swaziland","Swaziland");
countries[166] = new countriesObj ("Sweden","Suède","Sweden");
countries[167] = new countriesObj ("Switzerland","Suisse","Switzerland");
countries[168] = new countriesObj ("Syrian Arab Republic","République arabe syrienne","Syrian Arab Republic");
countries[169] = new countriesObj ("Tajikistan","Tadjikistan","Tajikistan");
countries[170] = new countriesObj ("Thailand","Thaïlande","Thailand");
countries[171] = new countriesObj ("Macedonia","Macédoine","Macedonia");
countries[172] = new countriesObj ("Togo","Togo","Togo");
countries[173] = new countriesObj ("Tokelau","Tokélaou","Tokelau");
countries[174] = new countriesObj ("Tonga","Tonga","Tonga");
countries[175] = new countriesObj ("Trinidad and Tobago","Trinité-et-Tobago","Trinidad and Tobago");
countries[176] = new countriesObj ("Tunisia","Tunisie","Tunisia");
countries[177] = new countriesObj ("Turkey","Turquie","Turkey");
countries[178] = new countriesObj ("Turkmenistan","Turkménistan","Turkmenistan");
countries[179] = new countriesObj ("Tuvalu","Tuvalu","Tuvalu");
countries[180] = new countriesObj ("Uganda","Ouganda","Uganda");
countries[181] = new countriesObj ("Ukraine","Ukraine","Ukraine");
countries[182] = new countriesObj ("United Arab Emirates","Emirats Arabes Unis","United Arab Emirates");
countries[183] = new countriesObj ("United Kingdom","Royaume-Uni","United Kingdom");
countries[184] = new countriesObj ("United Republic of Tanzania","République-Unie de Tanzanie","United Republic of Tanzania");
countries[185] = new countriesObj ("United States","Etats-Unis","United States");
countries[186] = new countriesObj ("Uruguay","Uruguay","Uruguay");
countries[187] = new countriesObj ("Uzbekistan","Ouzbékistan","Uzbekistan");
countries[188] = new countriesObj ("Vanuatu","Vanuatu","Vanuatu");
countries[189] = new countriesObj ("Venezuela","Venezuela","Venezuela");
countries[190] = new countriesObj ("Viet Nam","Viet Nam","Viet Nam");
countries[191] = new countriesObj ("Yemen","Yémen","Yemen");
countries[192] = new countriesObj ("Serbia and Montenegro","Serbie et Monténégro","Serbia and Montenegro");
countries[193] = new countriesObj ("Zambia","Zambie","Zambia");
countries[194] = new countriesObj ("Zimbabwe","Zimbabwe","Zimbabwe");
countries[195] = new countriesObj ("Timor-Leste","Timor-Leste","Timor-Leste");

function searchCountry(country) {

	if  (country == "*global*") {
	var destination = "http://www.unesco.org/cgi-bin/webworld/wsisdirectory/cgi/page.cgi?g=Global%2Findex.html&d=1";
	window.location = destination;
	}
	else {
		if (country != "/") {
		var destionation = "http://www.unesco.org/cgi-bin/webworld/wsisdirectory/cgi/search.cgi?type=phrase&query=";
		window.location = destionation + escape(country);
		}
	}

}

function createCountries(lang) {
	document.write ("<table cellspacing=3 cellpading=0>");
	document.write ("<form name=\"countries\">\n");
	document.write ("<tr>");
	document.write ("<td>");
	document.write ("<font face=\"Arial, Helvetica, sans-serif\" color=\"#C10023\" size=\"1\">");
	document.write ("<select style=\"font-size : 9px; width: 140 px;\" name=\"country\" onchange=\"searchCountry(this.options[this.selectedIndex].value)\">\n");
	
	document.write ("<option selected value=\"");
		
		document.write ("/");
		document.write ("\">");
		
		if (lang == "EN") {
		document.write ("- Select a country");
		} 
		
		//
		
		if (lang == "FR") {
		document.write ("- Choisir le pays");
		}
		
		//
		
	document.write ("</option>");
	
	document.write ("<option value=\"/\"></option>");
	
	document.write ("<option value=\"*global*\">");
	document.write ("Global</option>");
	
	document.write ("<option value=\"/\">----</option>");
	
	for (var i=1; i < countries.length; i++) {                   
	
		document.write ("<option value=\"");
		document.write (countries[i].search);
		document.write ("\">");
		
		
		if (lang == "EN") {
		document.write (countries[i].display_en);
		}
		
		if (lang == "FR") {
		document.write (countries[i].display_fr);
		}
		
		document.write ("</option>");
	
	}
	document.write ("</select>\n");
	document.write ("</font>");
	document.write ("</tr>");
	document.write ("</td>");
	document.write ("<tr>");
	document.write ("<td>");
	document.write ("</tr>");
	document.write ("</td>");
	document.write ("</form>\n");
	document.write ("</table>");

	//sortSelect(document.countries.country);
	
}