Örnektir basittir.
<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("Sayac.Mdb")
SET EKLE= bag.EXECUTE("UPDATE sayac SET COUNT=COUNT+1")
SET GOR= bag.EXECUTE("SELECT * from sayac")
Response.Write("<center>Sitemizi toplam"&"<center><p>")
for i=1 to len(GOR("COUNT"))
Response.Write("<img src=""" &"" & mid(GOR("COUNT"),i,1) &".gif"& """ width=15 height=20>")
' RESİMLER ÜST DİZİNLERDE İSE SATIR 12 SÜTUN 32 DEKİ "" İŞARETLERİ ARASINDA ../ KOYUNUZ.
Next
Response.Write("<p>")
Response.Write("<center>"&"kullanıcı ziyaret etmiştir."&"</center></p>")
%>
resimli sayaç uygulaması.
hatırlatma her refresh yaptığınızda sayı artar. bunu engellemek için cookiee kullanmanızı tavsiye ederim.


uygulama adresi
http://www.tuncsoft.com/Sayac
dosya adresi
http://www.tuncsoft.com/Sayac/Sayac.rar