<!-- 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
		%>

<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>