Query per ottenere una somma totale

[ubbicom]

Grazie, ma il codice asp continua a stampare i valori singolarmente:

Query = " SELECT SUM(BT) AS Totale " 
Query = Query & " FROM " 
Query = Query & " tabella_1 " 
Query = Query & " INNER JOIN " 
Query = Query & " tabella_2 ON " 
Query = Query & " tabella_2.COD_2 = tabella_1.COD_1 " 
Query = Query & " GROUP BY " 
Query = Query & " tabella_1.COD_1 "

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open Query, cn

if Not objRS.eof then

objRs.MoveFirst()
   Do While not objRs.eof

        response.write objRs("Totale") & "
"

     objRs.MoveNext()
   Loop
end if