Effettuare la media dei valori contenuti in un campo di una tabella.
<%
Dim cn,cm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("Archivio.mdb")
set rs=cn.execute ("Select AVG(spesa) as media from tabella")
response.write "Risultato medio del campo spesa: "&rs("media")
cn.close
Set cn = NOTHING
Set rs = Nothing
%>
Questo script leggerà "Tabella" nel database "Archivio.mdb" e calcolerà la media del valore di questo campo di tutti i record presenti.