et mindre problem

Jeg har lavet det her java script:

<script language="Javascript">
function CountrySelect()
{
  if (document.form.Country.options[document.form.Country.selectedIndex].value == "Denmark")
    {document.form.City.disabled = false;}
  else
    {document.form.City.disabled = true;}
}
</script>

også har jeg de 2 dropdown boxe som jeg skal bruge, den ene med lande og den anden med byer i Danmark:

Response.Write "<form name=""form"" action="""" method=""POST"">"& vbCrLf
Response.Write "<select class=""txtfield"" name=""Country"" size=""1"" OnChange=""CountrySelect();"">"& vbCrLf
Response.Write "<option value="""" selected>Country</option>"& vbCrLf
Response.Write "<option value=""-"">----------------------</option>"& vbCrLf
                                    Set conntemp = Server.CreateObject("ADoDB.Connection")
                                    conntemp.open DSN
                                    SQL = "SELECT DISTINCT COUNTRIES FROM COUNTRIES ORDER BY COUNTRIES"
                                    Set rsCountry = conntemp.execute(SQL)
                                    Do While Not rsCountry.EOF
Response.Write "<option value="""& rsCountry("COUNTRIES") &""""
                                    If blah = rsCountry("COUNTRIES") Then
Response.Write "selected"
                                    End If
Response.Write ">"& rsCountry("COUNTRIES") &"</option>"& vbCrLf
                                    rsCountry.MoveNext
                                    Loop
                                    rsCountry.close
Response.Write "</select>"& vbCrLf
Response.Write "<select class=""txtfield"" name=""City"" size=""1"">"& vbCrLf
Response.Write "<option value="""" selected>City</option>"& vbCrLf
Response.Write "<option value=""-"">----------------------</option>"& vbCrLf
                                    Set conntemp = Server.CreateObject("ADoDB.Connection")
                                    conntemp.open DSN
                                    SQL = "SELECT DISTINCT CITIES FROM CITIES ORDER BY CITIES"
                                    Set rsCity = conntemp.execute(SQL)
                                    Do While Not rsCity.EOF
Response.Write "<option value="""& rsCity("CITIES") &""""
                                    If blah = rsCity("CITIES") Then
Response.Write "selected"
                                    End If
Response.Write ">"& rsCity("CITIES") &"</option>"& vbCrLf
                                    rsCity.MoveNext
                                    Loop
                                    rsCity.close
Response.Write "</select>"& vbCrLf
Response.Write "</form>"& vbCrLf

Scriptet kan også ses her: http://212.242.188.97/limitless/test.asp

Det virker sådan at når man vælger Danmark i dropdown boxen med lande, så bliver boxen med danske byer "låst op"
Det jeg gerne vil og har prøvet at få fixet, er at når man har valgt "Danmark" i boxen med lande og man har valgt en by, så skal det være sådan at hvis man vælger et andet land, så skal den ikke bare "låse" boxen med byer som den gør nu, den skal også gå til det første element i by boxen, altså den skal selected "City".

Håber at i forstår hvad jeg mener ellers kan i jo bare spørge.

På forhånd tak!