Vehicle Accessories

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(oot4wd_cart) set rs1=conn.execute("SELECT DISTINCT category FROM [B Series] ORDER BY category") counter=1 %> <% Do until rs1.Eof%> <% set rs2=conn.execute("SELECT DISTINCT products FROM vehicle where category = '" & rs1("category") & "' ORDER BY products")%> <% Do until rs2.Eof%>     &products=<%=rs2("products")%>" target="I2"> <%=rs2("products")%>
<% counter=counter+1 %> <% rs2.Movenext Loop Rs2.Close %> <% rs1.Movenext Loop Rs1.Close %> <% conn.close %>

General Accessories<%=txt_categories%>

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(oot4wd_cart) set rs1=conn.execute("SELECT DISTINCT category FROM [products] ORDER BY category") counter=1 %> <% Do until rs1.Eof%> <% set rs2=conn.execute("SELECT DISTINCT products FROM products where category = '" & rs1("category") & "' ORDER BY products")%> <% Do until rs2.Eof%>     &products=<%=rs2("products")%>" target="I2"> <%=rs2("products")%>
<% counter=counter+1 %> <% rs2.Movenext Loop Rs2.Close %> <% rs1.Movenext Loop Rs1.Close %> <% conn.close %>

Main