<%
Dim Connection, RS, Page, Counts
Page=Request.ServerVariables("SCRIPT_NAME")
Set Connection=Server.Createobject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/visite/contatore.mdb")
'nel caso si usi frontpage, lasciare creare la cartella fpdb e togliere l'apice iniziale nella riga sotto ricordandosi di metterlo nella riga sopra
'Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/contatore.mdb")
Set RS = Connection.Execute("SELECT * FROM TabContatore")
Counts=RS("visite")
'Response.Write "Ci sono state N " & Counts & " Visite"
%>