Öncelikle Veritabanı bağlantı dosyamızı yapalım; Dosya adı : veritabani.asp

<%
Set bag = Server.CreateObject("ADODB.Connection")
veriyolu = "Provider=Microsoft.JET.OLEDB.4.0;data source="&Server.MapPath("sayac.mdb")&";"
bag.open(veriyolu)
%>

Daha sonrasında sayac sayfamızı kodlamaya geçiyoruz; Dosya adı : sayac.asp

<!--#include file="veritabani.asp"-->

<%
Set say = Server.CreateObject("ADODB.Recordset")
say.open "SELECT * FROM sayac",bag,1,3

say("sayac") = say("sayac") + 1
say.update
say.close
%>

<%=say("sayac")%>&nbsp;Kez Görüntülendi