Ciao a tutti ragazzi ho credo un semplice problemino da risolvere... vado subito al dunque.

questa è la qry:

codice:
<%
i=1
SQLCASE = "SELECT DISTINCT F2,F1 FROM [Sheet1$] WHERE F2<>''"
Set DBCCASE = connessionExcel.Execute (SQLCASE)
if not DBCCASE.EOF then
do while not(DBCCASE.eof)
I=I
TITOLO_MAGAZZINO=DBCCASE("F2")
TITOLO_MAGAZZINO=(Replace(TITOLO_MAGAZZINO," "," "))
ALTRO=DBCCASE("F1")
a=Split(TITOLO_MAGAZZINO)
PRIMA=(a(0))

response.write PRIMA &"
"

DBCCASE.movenext
I=I+1
loop
else
ERRORE="Nessun case disponibile."
end if
set connesionExcel = nothing
set DBCCASE = nothing
set SQLCASE = nothing
%>
Ottengo il seguente risultato (compresi duplicati)

codice:
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ADATTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
ALIMENTATORE
La mia domanda è la seguente è possibile in visualizzazione eliminare i duplicati dello split ?