<% 

Set rs1 = Server.CreateObject("ADODB.recordset") 
SQL="SELECT CODICE FROM mia_tab WHERE CODOFF=261 GROUP BY CODICE ORDER BY CODICE ASC" 
rs1.open SQL, conn 
DO UNTIL RS1.EOF 

vettore=split(rs1("codice"),"|") 

dim appoggio
  for i=0 to ubound(vettore)
    for j=0 to ubound(vettore)-1
      if vettore(j)>vettore(j+1) then
        appoggio=vettore(j)
        vettore(j)=vettore(j+1)
        vettore(j+1)=appoggio
    response.write "appoggio " & appoggio & " DATARRAY " & DataArray(0) & " -- Codice " & rs1("codice") & "<br>" 
       end if
    next
  next

RS1.MOVENEXT 
LOOP 

%>