Dynamisk menu ud fra 2 tabeller

jeg vil gerne lave en menu som på http://www.sneakershop.dk/shop/ hvor den folder sig ud. Jeg har en tabel med Produktgrupper og en med Producenter. Jeg har lavet nedenstående udtræk men aner ikke hvordan man kan lave en menu af ud dem.

produktgrupper:
<%
Dim rsProduktgrupper
Dim rsProduktgrupper_numRows

Set rsProduktgrupper = Server.CreateObject("ADODB.Recordset")
rsProduktgrupper.ActiveConnection = MM_webshop_STRING
rsProduktgrupper.Source = "SELECT DISTINCT Produktgruppe  FROM produkt  ORDER BY Produktgruppe ASC"
rsProduktgrupper.CursorType = 0
rsProduktgrupper.CursorLocation = 2
rsProduktgrupper.LockType = 1
rsProduktgrupper.Open()

rsProduktgrupper_numRows = 0
%>


producenter:
<%
Dim rsProducenter
Dim rsProducenter_numRows

Set rsProducenter = Server.CreateObject("ADODB.Recordset")
rsProducenter.ActiveConnection = MM_webshop_STRING
rsProducenter.Source = "SELECT DISTINCT Producent  FROM produkt  ORDER BY Producent ASC"
rsProducenter.CursorType = 0
rsProducenter.CursorLocation = 2
rsProducenter.LockType = 1
rsProducenter.Open()

rsProducenter_numRows = 0
%>