Teman-teman yang sedang belajar asp perlu memahami <%
setel koneksi=server.buat objek(adodb.koneksi)
connstr=Provider=Microsoft.jet.oledb.4.0;data source=&server.mappath(cou.mdb) //cou adalah nama database
koneksi.buka koneksi
jika sesi(dikunjungi)<>ya maka
aplikasi.Kunci()
conn.execute(update counter set hits=hits+1 dimana kid=1) //counter adalah nama tabel yang digunakan untuk menyimpan data di database
aplikasi.BukaKunci()
sesi(dikunjungi)=ya
berakhir jika
setel rs=conn.execute(pilih * dari kuo di mana kid=1)
jika rs.eof dan rs.bof maka
penghitung=0
kalau tidak
counter=rs(hit)
berakhir jika
rs.tutup
samb.tutup
atur rs=tidak ada
setel samb=tidak ada
%>