Selectmenu som styrer en anden selectmenu

Jeg skal have lavet en selectmenu som styrer en anden selectmenu. Det vil sige at når jeg foretager et valg i den første, så skal nr. 2 selectmenu indeholde options som passer til valget i selectmenu 1.

Options til begge selectmenuer skal hentes fra en tabel i databasen.

Den første selectmenu har jeg lavet på denne måde:

<SELECT NAME="hovedkoder">
<OPTION></OPTION>
<%

Dim recordSet25
Dim strSQL25

set recordSet25 = server.CreateObject("ADODB.Recordset")

strSQL25 = "SELECT distinct(Hovedkodenr), Hovedkodenavn From Korekortkoder ORDER BY Hovedkodenr"
set recordSet25 = forbindelse.Execute(strSQL25)

do until recordSet25.eof

if xxxx = recordSet25("Hovedkodenr") Then
Response.Write "<option value=" & recordSet25("Hovedkodenr") & " selected>" & recordSet25("Hovedkodenavn") & "</option>"
Else
Response.Write "<option value=" & recordSet25("Hovedkodenr") & ">" & recordSet25("Hovedkodenavn") & "</option>"
end if

recordSet25.movenext
loop
recordSet25.Close

Set recordSet25 = Nothing

%>
</SELECT>

Ovenstående virker fint. Nu er det så at jeg ved hjælp af noget onChange vil have den til at vise en anden selectmenu med indhold som svarer til valget af den første.

Min tabel i basen ser sådan her ud:

Hovedkodenr  Hovedkodenavn    Underkodenr  Underkodenavn
10          10 Gearkasse      10.01        Manuel gear
10        10 Gearkasse      10.02        Automatgear
15          15 Kobling          15.01        Manuel kobling
15        15 Kobling          15.02        Automatisk kobling
osv.
Osv.

Det vil sige at den første selectmenu viser indholdet af kolonnen "Hovedkodenavn" mens den anden selectmenu skal vise indholdet af kolonnen "Underkodenavn" (men kun dem, som hører til den hovedkode som man valgte i selectmenu 1

Siden må desuden ikke reloades.

Som jeg ser det skal det laves lidt som en blanding af ASP og javascript, men ved bare ikke hvordan det gøres.