Effettuare la somma 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("Database.mdb")
set rs=cn.execute ("Select count(*) as quanti from tabella")
response.write "Record nel database: "&rs("quanti")
cn.close
Set cn = NOTHING
Set rs = Nothing
%>