<%
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("mdb-database/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")
If Len(Session(Page)) = 0 Then
	Set RS = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'")
	If RS.EOF = TRUE Then
		Connection.Execute("INSERT INTO TabContatore (pagina, visite) VALUES ('"&Page&"', 0)")
	End If
	Set RS = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'")
	Counts=RS("visite")+1
	Set RS =  Connection.Execute("UPDATE TabContatore SET visite = " & Counts & " WHERE pagina = '" & Page & "'")
	Session(Page) = "something"
	Connection.Close
Else
	Set RS = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'")	
	Counts=RS("visite")
End If
Response.Write Counts
%>