<%
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 howMany from tabella")
response.write "There are " & rs("howMany") & " records in the table"
cn.close
Set cn = Nothing
Set rs = Nothing
%>