scusa eh, ma come faccio a capire che cosa ha correlato il prodotto? li vedo solo una query che stampa tutti gli accessori presenti. cmq mentre ci pensi ti rispondo:

codice:
sql = "SELECT * " & _
"FROM accessori ORDER BY codice ASC"
		

'//ACCESSORIO GIA ASSOCIATO AL PRODOTTO
dim associato
associato= '//VALORE PRESENTE NEL DB

%>
<select name="correlato1">
<option value="">------ scegliere un prodotto------ </option>
<%

SET RS1 = Conn.Execute(sql)
Do While Not RS1.EOF
%>
<option value="<%= rs1("id") %>" <%if rs1("id")=associato then response.write("selected=""selected""") %>><%= rs1("codice") %></option>
<%

RS1.MoveNext
Loop

%>
</select>