codice:
<%

SQLCASE = "SELECT DISTINCT F2,F1 FROM [Sheet1$] WHERE F2<>''"
Set DBCCASE = connessionExcel.Execute (SQLCASE)
if not DBCCASE.EOF then

array=dbccase.getrows
colonne=ubound(array,1)
righe=ubound(array,2)

for i=0 to righe
ii=i-1
if i>0 and array(1,ii)<>array(1,i) then
response.write(array(i))&"</br>"
end if
next

else
ERRORE="Nessun case disponibile."
end if
set connesionExcel = nothing
set DBCCASE = nothing
set SQLCASE = nothing
%>
in questo caso ipotizzo che il campo TITOLO_MAGAZZINO sia nella seconda posizione nel recordset...
gli dico:se il valora precedente (ii) è diverso da quello attuale (i) allora stampamelo....tranne naturalemente il primo che è quello da cui si deve iniziare....
magari ho scritto boiate....ma spero di no....