di seguito posto il codice per la costruzione dell'array che poi ordino in base al campo punti e mi tira fuori la classifica
codice:
sql="SELECT distinct(idSquadra)FROM statSquadra "
set rs = server.createObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
if not rs.eof then
v = 0 'Contatore squadre
tot = rs.recordCount-1
ReDim elencoDatiSquadra((tot),9)
do while not rs.eof
sqlStat="SELECT sum(vinta) AS vinte, sum(persa) AS perse, sum(pareggiata) AS patte, sum(golFatti) AS fatti, sum(golSubiti) AS subiti"&_
" FROM statSquadra"&_
" WHERE idSquadra="&rs("idSquadra")
set rsStat = server.createObject("ADODB.Recordset")
rsStat.open sqlStat, conn, 1, 3
giocate = rsStat("vinte") + rsStat("perse") + rsStat("patte")
puntiVittorie = rsStat("vinte") * 3
puntiPareggi = rsStat("patte")
punti = puntiVittorie + puntiPareggi
mediaInglese = rsStat("fatti") - rsStat("subiti")
' qui mi costruisco l'array bidimensionlae che poi andrò ad ordinare in base al puunteggio
elencoDatiSquadra(v,0) = rs("idSquadra")
elencoDatiSquadra(v,1) = punti
elencoDatiSquadra(v,2) = giocate
elencoDatiSquadra(v,3) = rsStat("vinte")
elencoDatiSquadra(v,4) = rsStat("patte")
elencoDatiSquadra(v,5) = rsStat("perse")
elencoDatiSquadra(v,6) = rsStat("fatti")
elencoDatiSquadra(v,7) = rsStat("subiti")
elencoDatiSquadra(v,8) = mediaInglese
v = v + 1
rs.moveNext
loop
rsStat.close
set rsStat = nothing
call ordina(elencoDatiSquadra)
else
response.Write("Non è stata giocata nessuna partita")
response.End()
end if