stampare uno solo dei record uguali

[zeweb]

Ho dei Rec che si ripetono in una colonna "idTipologia" (testo).
Me li ripete e invece ne vorrei solo uno di quelli uguali

<%
	Set oCon = Server.CreateObject ("ADODB.Connection")
	Set Rec = Server.CreateObject ("ADODB.Recordset")
	oCon.Open strCon
	sql = "Select id, idTipologia from prodotti where idTipologia <> '' order by idTipologia ASC"
	Rec.Open sql, oCon
	do while not Rec.EOF
%>
&idTipologia=<%=Rec("idTipologia")%>" title="vai alla scheda del prodotto"><%=Rec("idTipologia")%>

<% Rec.movenext 
loop
%>