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