COMPTEUR DE HITS AVEC BASE DE DONNÉE ACESS

<%' compteur de hits par tidave

'hit = champ ou sont stocké les hits
'hits =table de la base compteur
'h=nombre de hit
' Connexion à la base de donneés compteur
database = server.mapPath("compteur_page.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _
   & " DBQ=" & database

SQL = "SELECT * FROM hits "
RS.open SQL,Conn,3,3
h=rs("hit_page")

SQL = "UPDATE [hits] SET hit_page=" & (h+1)_
   & " WHERE hit_page=" & (h) 
conn.Execute(SQL)

L=rs("hit_page")

'fermeture 
RS.close
set rs=nothing
set conn=nothing
%>

pour lire le hit , on peut mettre cette ligne
cette page a été vue <%=L%> fois