Cargar combo dependiendo de la seleccion de otro

[guideons]

Buenas, he hecho una ligera modificación del código de VITO_GRIS, pero me da un problema y es que no me pasa el valor que deberia, el caso es que no se como pasarle el valor que recoge la funcion para se lo pase a la sentencia SQL.

Gracias a todos.

Este es el código:

function llenarcombo(a)
{

document.form1.NoSerie.length=0;
document.form1.NoSerie.options[0] = new Option("-- Seleccione uno --","","defaultSelected","");
var indice=1;

<%
sql = "select * from almareal where ref1 = '"& a &"';"
call LeerDb(sql,rst,3)
if rst.eof then
%>
document.form1.NoSerie.length=0;
document.form1.NoSerie.options[0] = new Option("No hay existencias","","defaultSelected","");
var indice=1;
<%
else
do until rst.eof
%>
document.form1.NoSerie.options[indice] = new Option("<%=rst("reffab1") %>","<%=rst("reffab1") %>");
indice++;
<%
rst.movenext
loop
end if
%>