Devo ordinare un array per data


<%

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

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

dim appoggio
if DATAARRAY(0)>DATAARRAY(0+1) then
appoggio=DATAARRAY(0)
DATAARRAY(0)=DATAARRAY(0+1)
DATAARRAY(0+1)=appoggio
end if

response.write "appoggio " & appoggio & " DATARRAY " & DataArray(0) & " -- Codice " & rs1("codice") & "
"

RS1.MOVENEXT
LOOP
%>

il campo codice ha queste caratteristiche...

31/12/2005|21/01/2006|31/12/200510.01.45

ma la risposta di iis é

appoggio DATARRAY 15/04/2006 -- Codice 15/04/2006|20/05/2006|31/12/200516.04.01
appoggio DATARRAY 18/02/2006 -- Codice 18/02/2006|25/02/2006|31/12/200515.21.56
appoggio 21/01/2006 DATARRAY 18/02/2006 -- Codice 21/01/2006|18/02/2006|31/12/200515.21.55
appoggio 21/01/2006 DATARRAY 25/02/2006 -- Codice 25/02/2006|25/03/2006|31/12/200515.48.02
appoggio 25/03/2006 DATARRAY 15/04/2006 -- Codice 25/03/2006|15/04/2006|31/12/200515.52.27
appoggio 31/12/2005 DATARRAY 21/01/2006 -- Codice 31/12/2005|21/01/2006|31/12/200510.01.45