Fermi tutti, per una volta ho risolto da solo (anche se con la utile dritta del nostro magnanimo moderatore Roby_72), ho visto che avevo già aperto un 3d simile, la strada seguita era stata un'altra e non mi aveva portato a niente, ma ho utilizzato per l'appunto il DISTINCT da lì e ho risolto il problema. Posto il codice se dovesse servire a qualcuno:
questo è il recordset modificato:

codice:
<%
Dim prodotti
Dim prodotti_numRows

Set prodotti = Server.CreateObject("ADODB.Recordset")
prodotti.ActiveConnection = MM_connessione_STRING
prodotti.Source = "SELECT DISTINCT(Produttore) FROM Prodotti ORDER BY Produttore ASC" 
prodotti.CursorType = 0
prodotti.CursorLocation = 2
prodotti.LockType = 1
prodotti.Open()

prodotti_numRows = 0
%>
e questo è il link dinamico che mi genera le categorie:

codice:
<%=(prodotti.Fields.Item("Produttore").Value)%>