Dynamically linked dropdown boxes with MS Acess

[ribena]

I have two dropdown boxes linked with a table of Microsoft Access. After I choose one of the options in the first the second listbox should change. The thing is that I have different queries from the database. What can I do or any examples about that??

 

[luciddream]

i'm not quite sure what you're trying to do... are you trying to give completely different options in the second drop down depending upon what is selected in the first? or are you just try to change the selected index of the second depending upon what is selected in the first...


both can be done with javascript. but, it would be easier to help you if we knew which you wanted and explained a little more.

for the the latter, this is very easy, but, for the former, it would require you to build arrays with your data from the quiry, then populate the select box with the correct array depending upon the selection. adam@aauser.com

 

[ribena]

I'm trying to give completely different options in the second drop down box depending upon what is selected in the first.

I have done part of code, but don't know what's wrong with the code, it can't display any option in the second box, would you help me to check it, please?

<table width=&quot;100%&quot; border=&quot;0&quot; align=&quot;left&quot;>
<tr><td colspan=&quot;2&quot;>
<form name=&quot;partslocator&quot;>
<table border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;>
<tr><td>
<b>Step 1.</b>
</td>
<td>
<select name=&quot;model&quot; size=&quot;1&quot; onChange=&quot;redirect(this.options.selectedIndex);&quot;>
<option selected> Select Category Type </option>
<%
myconn = &quot;PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=&quot; &amp; server.mappath(&quot;NewsData.mdb&quot &amp; &quot;;&quot;
myquery=&quot;select distinct Category from Category&quot;
dim conntemp, rstemp
set conntemp=server.createobject(&quot;adodb.connection&quot
conntemp.open myconn
set rstemp=conntemp.execute(myquery)
do while not rstemp.eof
fieldfirst=RStemp(0)
if isnull(fieldfirst) or fieldfirst=&quot;&quot; then
' ignore
else
response.write &quot;<option value='&quot; &amp; fieldfirst
response.write &quot;'>&quot; &amp; fieldfirst &amp; &quot;</option>&quot;
end if
rstemp.movenext
loop
%>
</select>
<%
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
%>
</td></tr>
<tr><td>
<b>Step 2.</b>
</td>
<td>
<select name=&quot;availablemodels&quot; size=&quot;1&quot;>
<option value=&quot;#&quot; selected> Select the Category first </option>
</select></td></tr></table></form>

<script>
var groups=document.partslocator.model.options.length
var group=new Array(groups)
for (i=0; i<groups; i++)
group=new Array()
group[0][0]=new Option(&quot;Select Model&quot;

<%
myconn = &quot;PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=&quot; &amp; server.mappath(&quot;NewsData.mdb&quot &amp; &quot;;&quot;
myquery=&quot;select MICode from Category where Category='&quot; &amp;model&amp; &quot;'&quot;
dim conntemp1, rstemp1
set conntemp1=server.createobject(&quot;adodb.connection&quot
conntemp1.open myconn
set rstemp1=conntemp1.execute(myquery)
j=1
do while not rstemp1.eof
k=0
MICode=RStemp1(&quot;MICode&quot
%>
group[<%=j%>][<%=k%>]=new Option(&quot;<%=MICode%>&quot;
<%
j=j+1
rstemp1.MoveNext
loop
rstemp1.close
%>

var temp=document.partslocator.availablemodels
function redirect(x)
{
for (m=temp.options.length-1; m>0; m--)
temp.options[m]=null
for (i=0; i<group[x].length; i++)
{
temp.options=new Option(group[x].text,group[x].value)
}
temp.options[0].selected=true
}
</script>

Thank you for your advise!!

Ribena