Listas dinamicas dependientes

[rrufo]

Hol
Quiero hacer una listas dependientes tipo las q aparacen en windows al intalar una impresora.
Fabricante--> Marca

esto con datos dinamicos

La duda q tengo es como tengo q utilizar el evento onChange del menu de fabricantes para llamar a una funcion q actualice el menu de las marcas.

gracias

os transcribo varios trozos de codigo por si pueden ayudar
------------------------------------------------------------------------<%
set Fabricantes = Server.CreateObject("ADODB.Recordset")
Fabricantes.ActiveConnection = MM_Empresas_STRING
Fabricantes.Source = "SELECT Fabricante FROM FS GROUP BY Fabricante ORDER BY Fabricante ASC"
Fabricantes.CursorType = 0
Fabricantes.CursorLocation = 2
Fabricantes.LockType = 3
Fabricantes.Open()
Fabricantes_numRows = 0
%>
<%
Dim Marcas__MMColParam
Marcas__MMColParam = "-1"
if Request.QueryString("MenuFabricantes") <> "") then Marcas__MMColParam = Request.QueryString("MenuFabricantes")

%>
<%
set Marcas = Server.CreateObject("ADODB.Recordset")
Marcas.ActiveConnection = MM_Empresas_STRING
Marcas.Source = "SELECT * FROM FS WHERE Fabricante = '" + Replace(Marcas__MMColParam, "'", "''") + "' AND Denominacion <> '' ORDER BY Marca ASC"
. . .
%>

Os transcrivo el formulario con las dos listas
------------------------------------------------------------------------
<form name="form2" action="">
<select name="MenuFabricantes" size="10" onChange= <% Reselect() %> >
<%
While (NOT Fabricantes.EOF)
%>
<option value="<%=(Fabricantes.Fields.Item("F abricante").Value)%>" ><%=(Fabricantes.Fields.Item("Fabricant e").Value)%></option>
<%
Fabricantes.MoveNext()
Wend
If (Fabricantes.CursorType > 0) Then
Fabricantes.MoveFirst
Else
Fabricantes.Requery
End If
%>
</select>