При изменении значения одного select нужно подгрузить в другой select соответствующие данные, которые лежат в базе

function DelSelect(id) //удаляет все элементы из select
{
	var i;
	var sel=document.all(id);
	for(i=sel.length-1;i>=0;i--)
	{
			sel.remove(i);
	}		
}
function AddItem(id,value,text) //добавляет элемент в указанный select
{
	var sel=document.all(id);
	var oOption = document.createElement('OPTION');
	oOption.text = text;
	oOption.value = value; 
	sel.add(oOption,sel.length);
}

function DelSelect(id)
{
	var i;
	var sel=eval('document.form1.'+id);
	for(i=sel.length-1;i>=0;i--)
	{
	     sel.options[i]=null;
	}		
}
function AddItem(id,value,text)
{
	var sel=eval('document.form1.'+id);
        sel.options[sel.length] = new Option(text,value)
}

<%Response.Write '<script language='Javascript'>'&vbCrLf
Response.Write '<!--'&vbCrLf
Response.Write 'function bla-bla-bla'&vbCrLf
%> и т.д.

<script language='Javascript'>
<!--
function OnSelect(select)
{switch (select.selectedIndex)
{case 0:with (document.srchform.prName){
options.length = 0;
options[0] = new Option('Все','all');
selectedIndex = 0;}; 
break;
case 1:
with (document.srchform.prName) {
options.length = 0;
options[0] = new Option('Все','all');
options[options.length] = new Option('Product1','Product1');
options[options.length] = new Option('Product2','Product2');
selectedIndex= 0;
}; break;
case 2:
и т.д.
}
}
-->
</script>

<%Set con=Server.CreateObject('ADODB.Connection')
con.Open 'connection-string'
Set rs = Server.CreateObject('ADODB.Recordset')
Set rs2 = Server.CreateObject('ADODB.Recordset')
'--- выбираем только тех производителей товары которых есть в наличии
SQL = 'Select DISTINCT(field1) from table Where field1=true ORDER BY field1' 
rs.Open SQL, con, 3
TotalCase = rs.RecordCount ' определяем количество условий CASE для Jscript%>

<script language='Javascript'>
<!--
function OnSelect(select)
{switch (select.selectedIndex)
{case 0:with (document.srchcar.mark){options.length = 0;options[0] = new Option('Все','all');selectedIndex = 0;}; break;
<%
CntCase = 1 ' ---определяем счетчик CASE
do while CntCase <= TotalCase
CompName = rs('field1').value ' ---определяем текущего производителя
Response.Write 'case ' & CntCase &':'& vbCrLf  ' --- выводим CASE 
Response.Write 'with (document.srchform.prName) {' &vbCrLf
Response.Write 'options.length = 0;'&vbCrLf
	Response.Write 'options[0] = new Option('Все','all');'&vbCrLf ' ----в случае если товар не выбран
	' ---- выбираем названия товаров которые соответствуют текущему производителю
	SQL2 = 'Select DISTINCT(field2) from table Where field2=true and field1=''&CompName&'' ORDER BY field2'
	rs2.Open SQL2, con
	do while not rs2.EOF
	' --- выводим список товаров для <option>
	Response.Write 'options[options.length] = new Option(''&rs2('field2').value&'',''&rs2('field2').value&'');'&vbCrLf
	rs2.MoveNext
	Loop
	rs2.Close
Response.Write 'selectedIndex= 0;'&vbCrLf
Response.Write '}; break;'&vbCrLf
rs.MoveNext
CntCase = CntCase+1
Loop%>
}}-->
</script>