codice:
<%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim OBJdbConn
Dim rst1
Dim src
Dim sConnStr
%>
<HTML>
<HEAD>
<TITLE>Query di aggregazione e conteggio</TITLE>
</HEAD>
<BODY>
<%
src = Server.MapPath ("db1.mdb")
sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src
'Crea e apre un oggetto Connection
Set OBJdbConn = Server.CreateObject("ADODB.Connection")
OBJdbConn.Open sConnStr
'Crea Oggetto RECORDSET
Set rst1 = Server.CreateObject("ADODB.Recordset")
rst1.CursorType = adOpenDynamic
rst1.CursorLocation = adUseClient
rst1.LockType = adLockOptimistic
'Esegue la query di aggregazione e calcolo
rst1.open "SELECT nazione.nazione, nazione.dex, [oro]+[arge]+[bronz] AS totalemedaglie, medagliere.oro FROM nazione LEFT JOIN medagliere ON nazione.nazione = medagliere.nazione GROUP BY nazione.nazione, nazione.dex, [oro]+[arge]+[bronz], medagliere.oro ORDER BY medagliere.oro DESC" , OBJdbConn
Response.Write ("Elaborazione terminata.
")
while not rst1.EOF
Response.Write "" & rst1(0).name & ": " & rst1(0) & "" & rst1(1).name & ": " & rst1(1) & "" & rst1(2).name & ": " & rst1(2)& "" & rst1(3).name & ": " & rst1(3) & "
"
rst1.movenext
wend
Set Rst1 = Nothing
Set OBJdbConn = Nothing
%>
</BODY>
</HTML>
Prova un po'. Dovrebbe funzionare