function populate_select(formObject, type) {
	formObject.options.length = 1;

	//This sets the key that the parent text is assigned
	//parentkey = value

	//This loop looks thru keyMap to find children of the parentkey and 
	//add them to the option list. Remember we start at 1 not 0
	index = 1; //This is used to increment the select option index number Remember we start at 1 not 0
	for (i=0;i < keyMap.length; i++) {
		if (keyMap[i].type == type) {
			formObject.options[index] = new Option(keyMap[i].name, keyMap[i].name)
			index++
		} 
	}	
}

function populate_select_child(formObject, type, parentname) {

	//This function takes the the value of a select box and populates the 
	//cooresponding select box
	
	//Following resets the select object to be changed to 1 options so that we can add to it
	//We want to leave the first default option
	formObject.options.length = 1;

	//This sets the key that the parent text is assigned
	//parentkey = value

	//This loop looks thru keyMap to find children of the parentkey and 
	//add them to the option list. Remember we start at 1 not 0
	index = 1; //This is used to increment the select option index number Remember we start at 1 not 0
	for (i=0;i < keyMap.length; i++) {
		if (keyMap[i].parentname == parentname && keyMap[i].type == ('sub' + type)) {
			formObject.options[index] = new Option(keyMap[i].name, keyMap[i].name)
			index++
		} 
	}	

}

function nameKey (name, key, parentname, type) {
	//This is used to setup the keyMap array of array (not a real one though) js can't do that.

	this.name = name
	this.key = key
	this.parentname = parentname
	this.type = type
}



keyMap = new Array(196)
keyMap[0] = new nameKey("Entertainment","1","0","category")
keyMap[1] = new nameKey("Books","1","Entertainment","subcategory")
keyMap[2] = new nameKey("Music","2","Entertainment","subcategory")
keyMap[3] = new nameKey("Celebrities","3","Entertainment","subcategory")
keyMap[4] = new nameKey("Movies","4","Entertainment","subcategory")
keyMap[5] = new nameKey("TV","4.1","Entertainment","subcategory")
keyMap[6] = new nameKey("Entertainment Other","5","Entertainment","subcategory")
keyMap[7] = new nameKey("Society","2","0","category")
keyMap[8] = new nameKey("Politics","6","Society","subcategory")
keyMap[9] = new nameKey("War","7","Society","subcategory")
keyMap[10] = new nameKey("Law","8","Society","subcategory")
keyMap[11] = new nameKey("Economics","9","Society","subcategory")
keyMap[12] = new nameKey("Education","10","Society","subcategory")
keyMap[13] = new nameKey("Health & Social Services","11","Society","subcategory")
keyMap[14] = new nameKey("Society Other","12","Society","subcategory")
keyMap[15] = new nameKey("Sport","3","0","category")
keyMap[16] = new nameKey("Soccer","13","Sport","subcategory")
keyMap[17] = new nameKey("Rugby","14","Sport","subcategory")
keyMap[18] = new nameKey("American Football","15","Sport","subcategory")
keyMap[19] = new nameKey("Basketball","16","Sport","subcategory")
keyMap[20] = new nameKey("Baseball","17","Sport","subcategory")
keyMap[21] = new nameKey("Auto","18","Sport","subcategory")
keyMap[22] = new nameKey("Tennis","19","Sport","subcategory")
keyMap[23] = new nameKey("Golf","20","Sport","subcategory")
keyMap[24] = new nameKey("Hockey","21","Sport","subcategory")
keyMap[25] = new nameKey("Wrestling","22","3","0")
keyMap[145] = new nameKey("Cricket","23","Sport","subcategory")
keyMap[146] = new nameKey("Boxing","24","Sport","subcategory")
keyMap[26] = new nameKey("Sport Other","25","Sport","subcategory")
keyMap[27] = new nameKey("World","4","0","category")
keyMap[28] = new nameKey("News","24","World","subcategory")
keyMap[29] = new nameKey("Environment","25","World","subcategory")
keyMap[30] = new nameKey("Science","26","World","subcategory")
keyMap[31] = new nameKey("Technology","27","World","subcategory")
keyMap[32] = new nameKey("Internet","28","World","subcategory")
keyMap[33] = new nameKey("Bizarre","29","World","subcategory")
keyMap[34] = new nameKey("World Other","30","World","subcategory")
keyMap[35] = new nameKey("Lifestyle","5","0","category")
keyMap[36] = new nameKey("People","31","Lifestyle","subcategory")
keyMap[37] = new nameKey("Religion","32","Lifestyle","subcategory")
keyMap[38] = new nameKey("Health","33","Lifestyle","subcategory")
keyMap[39] = new nameKey("Sex","34","Lifestyle","subcategory")
keyMap[40] = new nameKey("Alternative","35","Lifestyle","subcategory")
keyMap[41] = new nameKey("Jobs & Work","36","Lifestyle","subcategory")
keyMap[42] = new nameKey("Lifestyle Other","37","Lifestyle","subcategory")

keyMap[43] = new nameKey("Africa","1","0","region")
keyMap[44] = new nameKey("Africa Other","1","Africa","subregion")
keyMap[45] = new nameKey("Algeria","2","Africa","subregion")
keyMap[46] = new nameKey("Angola","3","Africa","subregion")
keyMap[47] = new nameKey("Benin","4","Africa","subregion")
keyMap[145] = new nameKey("Botswana","103","Africa","subregion")
keyMap[146] = new nameKey("Burkina Faso","104","Africa","subregion")
keyMap[147] = new nameKey("Burundi","105","Africa","subregion")
keyMap[148] = new nameKey("Cameroon","106","Africa","subregion")
keyMap[149] = new nameKey("Cape Verde","107","Africa","subregion")
keyMap[150] = new nameKey("Central African Republic","108","Africa","subregion")
keyMap[151] = new nameKey("Chad","109","Africa","subregion")
keyMap[152] = new nameKey("Comoros","110","Africa","subregion")
keyMap[153] = new nameKey("Congo, Republic of","111","Africa","subregion")
keyMap[154] = new nameKey("Congo, Democratic Republic of The","112","Africa","subregion")
keyMap[155] = new nameKey("Ivory Coast","113","Africa","subregion")
keyMap[156] = new nameKey("Djibouti","114","Africa","subregion")
keyMap[157] = new nameKey("Egypt","115","Africa","subregion")
keyMap[158] = new nameKey("Equatorial Guinea","116","Africa","subregion")
keyMap[159] = new nameKey("Eritrea","117","Africa","subregion")
keyMap[160] = new nameKey("Ethiopia","118","Africa","subregion")
keyMap[161] = new nameKey("Gabon","119","Africa","subregion")
keyMap[162] = new nameKey("The Gambia","120","Africa","subregion")
keyMap[163] = new nameKey("Ghana","121","Africa","subregion")
keyMap[164] = new nameKey("Guinea","122","Africa","subregion")
keyMap[165] = new nameKey("Guinea-Bissau","123","Africa","subregion")
keyMap[166] = new nameKey("Kenya","124","Africa","subregion")
keyMap[167] = new nameKey("Lesotho","125","Africa","subregion")
keyMap[168] = new nameKey("Liberia","126","Africa","subregion")
keyMap[169] = new nameKey("Libya","127","Africa","subregion")
keyMap[170] = new nameKey("Madagascar","128","Africa","subregion")
keyMap[171] = new nameKey("Malawi","129","Africa","subregion")
keyMap[172] = new nameKey("Mali","130","Africa","subregion")
keyMap[173] = new nameKey("Mauritania","131","Africa","subregion")
keyMap[174] = new nameKey("Mauritius","132","Africa","subregion")
keyMap[175] = new nameKey("Morocco","133","Africa","subregion")
keyMap[176] = new nameKey("Mozambique","134","Africa","subregion")
keyMap[177] = new nameKey("Namibia","135","Africa","subregion")
keyMap[178] = new nameKey("Niger","136","Africa","subregion")
keyMap[179] = new nameKey("Nigeria","137","Africa","subregion")
keyMap[180] = new nameKey("Rwanda","138","Africa","subregion")
keyMap[181] = new nameKey("Sao Tome and Principe","139","Africa","subregion")
keyMap[182] = new nameKey("Senegal","140","Africa","subregion")
keyMap[183] = new nameKey("Seychelles","141","Africa","subregion")
keyMap[184] = new nameKey("Sierra Leone","142","Africa","subregion")
keyMap[185] = new nameKey("Somalia","143","Africa","subregion")
keyMap[186] = new nameKey("South Africa","144","Africa","subregion")
keyMap[187] = new nameKey("Sudan","145","Africa","subregion")
keyMap[188] = new nameKey("Swaziland","146","Africa","subregion")
keyMap[189] = new nameKey("Tanzania","147","Africa","subregion")
keyMap[190] = new nameKey("Togo","148","Africa","subregion")
keyMap[191] = new nameKey("Tunisia","149","Africa","subregion")
keyMap[192] = new nameKey("Uganda","150","Africa","subregion")
keyMap[193] = new nameKey("Zambia","151","Africa","subregion")
keyMap[194] = new nameKey("Zimbabwe","152","Africa","subregion")
keyMap[195] = new nameKey("Africa Other","153","Africa","subregion")

keyMap[48] = new nameKey("Middle East","2","0","region")
keyMap[49] = new nameKey("Egypt","5","Middle East","subregion")
keyMap[50] = new nameKey("Iran","6","Middle East","subregion")
keyMap[51] = new nameKey("Israel","7","Middle East","subregion")
keyMap[52] = new nameKey("Kuwait","8","Middle East","subregion")
keyMap[53] = new nameKey("Lebanon","9","Middle East","subregion")
keyMap[54] = new nameKey("Morocco","10","Middle East","subregion")
keyMap[55] = new nameKey("Saudi Arabia","11","Middle East","subregion")
keyMap[56] = new nameKey("Syria","12","Middle East","subregion")
keyMap[57] = new nameKey("Turkey","13","Middle East","subregion")
keyMap[58] = new nameKey("U. A. Emirates","14","Middle East","subregion")
keyMap[59] = new nameKey("Middle East Other","15","Middle East","subregion")

keyMap[60] = new nameKey("Asia","3","0","region")
keyMap[61] = new nameKey("Armenia","16","Asia","subregion")
keyMap[62] = new nameKey("Bangladesh","17","Asia","subregion")
keyMap[63] = new nameKey("Cambodia","18","Asia","subregion")
keyMap[64] = new nameKey("China","19","Asia","subregion")
keyMap[65] = new nameKey("India","20","Asia","subregion")
keyMap[66] = new nameKey("Indonesia","21","Asia","subregion")
keyMap[67] = new nameKey("Japan","22","Asia","subregion")
keyMap[68] = new nameKey("Malaysia","23","Asia","subregion")
keyMap[69] = new nameKey("Myanmar","24","Asia","subregion")
keyMap[70] = new nameKey("Nepal","25","Asia","subregion")
keyMap[71] = new nameKey("Pakistan","26","Asia","subregion")
keyMap[72] = new nameKey("Philippines","27","Asia","subregion")
keyMap[73] = new nameKey("Singapore","28","Asia","subregion")
keyMap[74] = new nameKey("South Korea","29","Asia","subregion")
keyMap[75] = new nameKey("Sri Lanka","30","Asia","subregion")
keyMap[76] = new nameKey("Taiwan","31","Asia","subregion")
keyMap[77] = new nameKey("Thailand","31.1","Asia","subregion")
keyMap[78] = new nameKey("Uzbekistan","32","Asia","subregion")
keyMap[79] = new nameKey("Vietnam","33","Asia","subregion")
keyMap[80] = new nameKey("Asia Other","34","Asia","subregion")
keyMap[81] = new nameKey("Europe","4","0","region")
keyMap[82] = new nameKey("Albania","35","Europe","subregion")
keyMap[83] = new nameKey("Austria","36","Europe","subregion")
keyMap[84] = new nameKey("Belarus","37","Europe","subregion")
keyMap[85] = new nameKey("Belgium","38","Europe","subregion")
keyMap[86] = new nameKey("Bosnia","39","Europe","subregion")
keyMap[87] = new nameKey("Bulgaria","40","Europe","subregion")
keyMap[88] = new nameKey("Croatia","41","Europe","subregion")
keyMap[89] = new nameKey("Cyprus","42","Europe","subregion")
keyMap[90] = new nameKey("Czech Rep.","43","Europe","subregion")
keyMap[91] = new nameKey("Denmark","44","Europe","subregion")
keyMap[92] = new nameKey("Estonia","45","Europe","subregion")
keyMap[93] = new nameKey("Finland","46","Europe","subregion")
keyMap[94] = new nameKey("France","47","Europe","subregion")
keyMap[95] = new nameKey("Germany","48","Europe","subregion")
keyMap[96] = new nameKey("Greece","49","Europe","subregion")
keyMap[97] = new nameKey("Hungary","50","Europe","subregion")
keyMap[98] = new nameKey("Iceland","51","Europe","subregion")
keyMap[99] = new nameKey("Ireland","52","Europe","subregion")
keyMap[100] = new nameKey("Italy","53","Europe","subregion")
keyMap[101] = new nameKey("Latvia","54","Europe","subregion")
keyMap[102] = new nameKey("Liechtenstein","55","Europe","subregion")
keyMap[103] = new nameKey("Lithuania","56","Europe","subregion")
keyMap[104] = new nameKey("Luxembourg","57","Europe","subregion")
keyMap[105] = new nameKey("Macedonia","58","Europe","subregion")
keyMap[106] = new nameKey("Malta","59","Europe","subregion")
keyMap[107] = new nameKey("Monaco","60","Europe","subregion")
keyMap[108] = new nameKey("Netherlands","61","Europe","subregion")
keyMap[109] = new nameKey("Norway","62","Europe","subregion")
keyMap[110] = new nameKey("Poland","63","Europe","subregion")
keyMap[111] = new nameKey("Portugal","64","Europe","subregion")
keyMap[112] = new nameKey("Romania","65","Europe","subregion")
keyMap[113] = new nameKey("Russia","66","Europe","subregion")
keyMap[114] = new nameKey("Slovakia","67","Europe","subregion")
keyMap[115] = new nameKey("Slovenia","68","Europe","subregion")
keyMap[116] = new nameKey("Spain","69","Europe","subregion")
keyMap[117] = new nameKey("Sweden","70","Europe","subregion")
keyMap[118] = new nameKey("Switzerland","71","Europe","subregion")
keyMap[119] = new nameKey("Ukraine","72","Europe","subregion")
keyMap[110] = new nameKey("United Kingdom","73","Europe","subregion")
keyMap[111] = new nameKey("Europe Other","74","Europe","subregion")
keyMap[112] = new nameKey("Oceania","5","0","region")
keyMap[113] = new nameKey("Australia","75","Oceania","subregion")
keyMap[114] = new nameKey("New Zealand","76","Oceania","subregion")
keyMap[115] = new nameKey("Oceania Other","77","Oceania","subregion")
keyMap[116] = new nameKey("Central America","6","0","region")
keyMap[117] = new nameKey("Costa Rica","78","Central America","subregion")
keyMap[118] = new nameKey("Cuba","79","Central America","subregion")
keyMap[119] = new nameKey("El Salvador","80","Central America","subregion")
keyMap[120] = new nameKey("Guatemala","81","Central America","subregion")
keyMap[121] = new nameKey("Haiti","82","Central America","subregion")
keyMap[122] = new nameKey("Jamaica","83","Central America","subregion")
keyMap[123] = new nameKey("Mexico","84","Central America","subregion")
keyMap[124] = new nameKey("Panama","85","Central America","subregion")
keyMap[125] = new nameKey("Central America Other","86","Central America","subregion")
keyMap[126] = new nameKey("North America","7","0","region")
keyMap[127] = new nameKey("Canada","87","North America","subregion")
keyMap[128] = new nameKey("USA","88","North America","subregion")
keyMap[129] = new nameKey("North America Other","89","North America","subregion")
keyMap[130] = new nameKey("South America","8","0","region")
keyMap[131] = new nameKey("Argentina","90","South America","subregion")
keyMap[132] = new nameKey("Bolivia","91","South America","subregion")
keyMap[133] = new nameKey("Brazil","92","South America","subregion")
keyMap[134] = new nameKey("Chile","93","South America","subregion")
keyMap[135] = new nameKey("Colombia","94","South America","subregion")
keyMap[136] = new nameKey("Ecuador","95","South America","subregion")
keyMap[137] = new nameKey("Paraguay","96","South America","subregion")
keyMap[138] = new nameKey("Peru","97","South America","subregion")
keyMap[139] = new nameKey("Suriname","98","South America","subregion")
keyMap[140] = new nameKey("Uruguay","99","South America","subregion")
keyMap[141] = new nameKey("Venezuela","100","South America","subregion")
keyMap[142] = new nameKey("South America Other","101","South America","subregion")
keyMap[143] = new nameKey("World Wide","9","0","region")
keyMap[144] = new nameKey("World Wide","102","World Wide","subregion")