Contatore di accessi

[cardo]

Nel codice sotto riportato è possibile inserire la funzione che non conta l'eventuale aggiornamento di pagina?

<%
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " +
Server.MapPath("/mdb-database/contatore.mdb")


conn = Server.CreateObject("ADODB.Connection")
conn.Open(strConn )

SQL = "UPDATE conta SET ID = ID + 1"

conn.Execute(SQL)

SQL ="SELECT ID FROM conta"

rs = conn.Execute(SQL)


if (rs.EOF==false) {
visite = rs("ID")
}

rs.Close
conn.Close

%>

[rixx]

eh?

[cardo]

Intendo che con il codice sopra scritto ogni volta che un utente aggiorna la pagina o ritorna ad esempio alla home page il contatore scatta di 1.
E' possibile modificare il codice in modo che per quella sessione il visitatore non faccia scattare il contatore tutte le volte che torna alla home page o aggiorna la pagina?

[X_Gold*]

Originariamente inviato da cardo
Intendo che con il codice sopra scritto ogni volta che un utente aggiorna la pagina o ritorna ad esempio alla home page il contatore scatta di 1.
E' possibile modificare il codice in modo che per quella sessione il visitatore non faccia scattare il contatore tutte le volte che torna alla home page o aggiorna la pagina?

<%
FUNCTION Contatore(Pagina)'Pagina = la pagina che chiama la Function

DIM Conta,Visitato
Conta=Application("Contatore")
Visitato=Request.Cookies("Visitato")

IF Visitato = "" THEN
	Application("Contatore")=Conta+1
	Response.Cookies("Visitato")=Date()
	Response.Cookies("Visitato").Expires=#12/12/2037#
	Visitato=Date()
END IF

Response.write("<font size=4>in "&Application("Contatore")&" hanno visitato questo sito</font>")
Contatore="
La tua prima visita risale al "&Visitato& "
Attualmente stai navigando in " & Pagina

END FUNCTION

response.write(Contatore(request.ServerVariables("URL")))
%>

buttato giu' cosi'.... provalo