أصدقاء الله ismailağa

<%sayfa = request.ServerVariables("PATH_INFO")%>
<%ip =request.ServerVariables("REMOTE_ADDR")%>
<%set veri=server.CreateObject("ADODB.Connection")
dsnpath="DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)};"
dsnpath=dsnpath & "DBQ=" & Server.Mappath("db/veritabanıadi.mdb")
veri.open dsnpath%>
<%SQL="insert into say (ip,tarih,saat,sayfa)values('" & ip & "','" & date & "','" & time & "','" & sayfa & "') "%>
<%veri.execute(SQL)%>
bunu sayac.asp olarak kaydet.

<%set veri=server.CreateObject("ADODB.Connection")
dsnpath="DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)};"
dsnpath=dsnpath & "DBQ=" & Server.Mappath("db/veritabaniadi.mdb")
veri.open dsnpath%>
<%SQL="select count(ip) from say"%>
<%set rs=veri.execute(SQL)%>