<%
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 "Average: "&rs("media")
cn.close
Set cn = NOTHING
Set rs = Nothing
%>