LISTAS desplegables (selects)

[rrufo]

Justamente estoy trabajando en ese codigo:

Solo me falta conseguir q la sentencia SQL lea el parametro de la funcion:
te paso el codigo de las funciones:
---------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/Empresas.asp" -->
<SCRIPT LANGUAGE="Javascript">
function ver(idFS)
{
window.open(idFS)
}
</SCRIPT>
<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>