Ordinare Array ( in recordset)

[agenti]

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

[Alethesnake]

beh, visto che stai facendo un confronto tra stringhe è normale che ti restituisca che 15 viene prima di 18

[agenti]

come posos fare per adattarlo alle date?

[agenti]

ho adattato cosi... per le date...

<% 

Set rs1 = Server.CreateObject("ADODB.recordset") 
sql = "SELECT DISTINCT(codice) FROM mia_tab WHERE codoff=261 ORDER by codice"
rs1.open SQL, conn 
DO UNTIL RS1.EOF 

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

stringa=DATAARRAY(0)& "|"

stringaArray=split(stringa,"|")

dim appoggio

  for i=0 to ubound(stringaArray)
    for j=0 to ubound(stringaArray)-1
       if stringaArray(j) > cdate(dateadd("d",1,stringaArray(J))) then
        appoggio=stringaArray(j)
       stringaArray(j)=data1
        data1=appoggio
      end if
    next
  next
 
response.write "appoggio " & appoggio & " DATARRAY " & DataArray(0) & " -- Codice " & rs1("codice") & "
" 

RS1.MOVENEXT 
LOOP 
%>

e sembra che vada bene...
solo che l'array non viene ordinato.
:master: :master:

[agenti]

up...