<%
Set bag = Server.CreateObject("ADODB.connection")
bag.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &_
Server.MapPath("..\httpdocs\sayac.mdb"))
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="Select * FROM sayac"
rs1.Open sql1, bag, 1, 3
count=cint(rs1("count"))
count=count+1
rs1("count")=count
rs1.update
%>
Toplam ziyaretçi: <%=count%>
<%
rs1.close
set rs1=nothing
bag.close
set bag=nothing
%>