La base de datos del ejemplo se llama mibd y la tabla se llama visitas.
El campo es hits.

Copiar los codigos y pegar

<% 'Hacemos la conexión a la BD. Set oConn = Server.CreateObject ("ADODB.Connection") Set RS = Server.CreateObject ("ADODB.RecordSet") oConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\trabajo\db\mibd.mdb" sql = "SELECT * FROM visitas" RS.Open sql, oConn, 1,3 'Ahora nos fijamos si existe ya un registro. 'Si no existe lo creamos. If RS.EOF then oConn.Execute"INSERT INTO cuenta (hits) VALUES (1)" 'Si existe el registro se aumenta en 1 el valor. Else oConn.Execute"UPDATE cuenta SET hits="&(rs("hits")+1)&"" End IF 'La siguiente linea imprime la cantidad de hits. Response.Write "Hasta este momento esta pagina fue ""visitada"":<B> "&RS("hits")&"</B>" RS.CLose oConn.Close Set RS = nothing Set oConn = nothing %>