Listas dinamicas dependientes

[rrufo]

Gracias, es el fichero q tenia de referencia y me ha ayudado mucho aunque no se JScrip

lo tengo arreglado del todo menos un detalle en el parametro y las variables.
excepto por ese detalle os pego la subfuncion q he modificado, quizas a alguien le sirva.
En mi opinion es mas rapida pues se realiza el filtra en sql cosa muy importante si como yo tienes 6000 productos.
si alguien puede arreglar el tema de la variable/parametro q explico en el otro post q me avise.
---------------------------------------------<SCRIPT LANGUAGE="Javascript">

function Reselect(fabrica)

{
Listas.Productos.length=0;
<%
Dim Marca__MMColParam
Marca__MMColParam ="bayer"
set Marca = Server.CreateObject("ADODB.Recordset")
Marca.ActiveConnection = MM_Empresas_STRING
Marca.Source = "SELECT * FROM FS WHERE Fabricante = '" + Replace(Marca__MMColParam, "'", "''") + "' AND Denominacion <> '' ORDER BY Marca ASC"
Marca.CursorType = 0
Marca.CursorLocation = 2
Marca.LockType = 3
Marca.Open()
Marca_numRows = 0
%>

<%
While (NOT Marca.EOF)
%>

var newElem = document.createElement("OPTION")
newElem.text = "<%=(Marca.Fields.Item("Marca"). Value)%>"
newElem.value = "<%=(Marca.Fields.Item("IdFS").V alue)%>"
document.forms("Listas").Productos.optio ns.add(newElem)
<%
Marca.MoveNext()
Wend
If (Marca.CursorType > 0) Then
Marca.MoveFirst
Else
Marca.Requery
End If
%>
}

</SCRIPT>