Esecuzione query multiple

[[trodat]]

Ciao; ho alternativa nella costruzione di questo codice?:

Dim strConnection, myConn, rs

	Set myConn = Server.CreateObject("ADODB.Connection")
	myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../mdb-database/db.mdb")
	
    strSQL = "SELECT sum(n_somma) as tot2000 FROM tabellaPR WHERE programma = 2000"
    set rs = server.createObject("ADODB.Recordset")
    rs.open strSQL, myConn, 1, 3
    pr_2000 = rs("tot2000")
    response.write pr_2000 &"

"
    rs.close
    set rs = nothing
    
    strSQL = "SELECT sum(n_somma) as tot2001 FROM tabellaPR WHERE programma = 2001"
    set rs = server.createObject("ADODB.Recordset")
    rs.open strSQL, myConn, 1, 3
    pr_2001 = rs("tot2001")
    response.write pr_2001&"

"
    rs.close
    set rs = nothing
    
    strSQL = "SELECT sum(n_somma) as tot2002 FROM tabellaPR WHERE programma = 2002"
    set rs = server.createObject("ADODB.Recordset")
    rs.open strSQL, myConn, 1, 3
    pr_2002 = rs("tot2002")
    response.write pr_2002 &"

"

Devo necessariamente eseguire tutte queste query o c'è un metodo più veloce?

Grazie

[Ilpiubasso]

.

[optime]

usa la clausola GROUP BY

[[trodat]]

Originariamente inviato da optime
usa la clausola GROUP BY