Hi,
I use the following code and it works well for me:
<!-- get mfg from products-->
<%' Change blue text to your DataBase location.
Dim Mfgset,sqlstr,myconn,strMfgline,rs
ShopOpenDatabase myconn
Set rs = myconn.Execute("SELECT distinct upper(mfg)as mfg from products where mfg > ' '")
%> </font></font> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<form name="form1">
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)" style="font-size:8pt">
<OPTION VALUE="Select Manufacturer" selected>Select Brand</option>
<% Do While Not rs.EOF
if rs("mfg")<>"" then %>
<OPTION VALUE="shopquery.asp?mfg=<%= rs("mfg") %>"><%= rs("mfg") %></option>
<% end if
rs.MoveNext %>
<% Loop %>
</SELECT>
</form>
</font>
<%rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
NB > If you are using access, change the 'upper' to 'ucase'.
Also : put the following in your header
<script language="JavaScript" type="text/JavaScript">
}
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
</script>
Hope this helps.
cheers
rustytec