function SetState(p_theForm) {

        var	iSelIndex = p_theForm.country.selectedIndex;
	var	theForm = p_theForm.state;

	var	iCountry = p_theForm.country[iSelIndex].value;


	for (var count=0; count < 24; count++){
		theForm.options[count].text="";
		theForm.options[count].value="";
	}

	if (iCountry == 0){   // Australia
		theForm.options[0].text="Australian Capital Territory";
		theForm.options[0].value="ACT";
		theForm.options[1].text="New South Wales";
		theForm.options[1].value="NSW";
		theForm.options[2].text="Northern Territory";
		theForm.options[2].value="NT";
		theForm.options[3].text="Queensland";
		theForm.options[3].value="QLD";
		theForm.options[4].text="South Australia";
		theForm.options[4].value="SA";
		theForm.options[5].text="Tasmania";
		theForm.options[5].value="TAS";
		theForm.options[6].text="Victoria";
		theForm.options[6].value="VIC";
		theForm.options[7].text="Western Australia";
		theForm.options[7].value="WA";
	}
	else if (iCountry == 64) { // NZ
		theForm.options[0].text="Auckland";
		theForm.options[0].value="AK";
		theForm.options[1].text="Blenheim";
		theForm.options[1].value="BM";
		theForm.options[2].text="Christchurch";
		theForm.options[2].value="CH";
		theForm.options[3].text="Dunedin";
		theForm.options[3].value="DN";
		theForm.options[4].text="Greymouth";
		theForm.options[4].value="GM";
		theForm.options[5].text="Gisborne";
		theForm.options[5].value="GS";
		theForm.options[6].text="Waikato";
		theForm.options[6].value="HN";
		theForm.options[7].text="Invercargill";
		theForm.options[7].value="IN";
		theForm.options[8].text="Masterton";
		theForm.options[8].value="MS";
		theForm.options[9].text="Hawkes Bay";
		theForm.options[9].value="NA";
		theForm.options[10].text="Nelson";
		theForm.options[10].value="NN";
		theForm.options[11].text="North Shore";
		theForm.options[11].value="NS";
		theForm.options[12].text="Taranaki";
		theForm.options[12].value="NU";
		theForm.options[13].text="NW";
		theForm.options[13].value="NW";
		theForm.options[14].text="Oamaru";
		theForm.options[14].value="OU";
		theForm.options[15].text="Manawatu";
		theForm.options[15].value="PM";
		theForm.options[16].text="Rotorua";
		theForm.options[16].value="RO";
		theForm.options[17].text="South Auckland";
		theForm.options[17].value="SA";
		theForm.options[18].text="Tauranga";
		theForm.options[18].value="TG";
		theForm.options[19].text="Waikato";
		theForm.options[19].value="TH";
		theForm.options[20].text="Timaru";
		theForm.options[20].value="TU";
		theForm.options[21].text="Wellington";
		theForm.options[21].value="WN";
		theForm.options[22].text="Westport";
		theForm.options[22].value="WP";
		theForm.options[23].text="Whangarei";
		theForm.options[23].value="WR";
	}
}


function setCountry(p_theForm, iSelect) {

	var	theForm = p_theForm.country;

	for (var count=0; count < 4; count++){
		if (count == iSelect) {
                    theForm[count].selected = true;
                } else  {
                    theForm[count].selected = false;
                }
        }
        SetState(p_theForm);
}

function getCountryIndex(iInstituteid) {

        var iCountryIndex = 1;
        if (iInstituteid > 89) {
            iCountryIndex = 2;
        }
        return iCountryIndex;
}