<%
Set Baglanti = Server.CreateObject("ADODB.Con nection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri_tabanlari \depo.mdb")
Set Kayit = Server.CreateObject ("ADODB.RecordSet")
Sql_Komutu = "Select * from sayac"
Kayit.Open Sql_Komutu, Baglanti, 1, 3
Kayit.AddNew
Kayit("tarih")=date()
Kayit.Update
Kayit.close
Set Kayit = Nothing
%>
[ana pencere]
ÇOCUK SİTELER�
<%
Set Baglanti = Server.CreateObject("ADODB.Con nection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri_tabanlari/depo.mdb")
Set Kayit = Server.CreateObject("ADODB.Rec ordset")
Sql_Komutu = "Select * from sayac order by id desc"
Kayit.Open Sql_Komutu, Baglanti, 1, 3
%>
Bu güne kadar <%=Kayit("id")%> kez ziyaret edildik.
