<% Lcid = Session.Lcid Session.Lcid = 1033 '-- tablomuzu bugünkü tarihle açıyoruz -- Set rs = Conn.Execute("SELECT tarih,tekil,cogul FROM tblSayac WHERE tarih = #"&DATE()&"#") if not rs.EOF then '++ eğer bugüne ait kayıt varsa if Session("sayac")="true" then '++ eğer ziyaretçi daha önce gelmişse çoğul gösterimi artırıyoruz. Conn.Execute("UPDATE tblSayac SET cogul = cogul + 1 WHERE tarih = #"&DATE()&"# ") else '++ değilse hem tekil hem çoğul gösterimimizi artırıyoruz. Conn.Execute("UPDATE tblSayac SET tekil = tekil + 1,cogul = cogul + 1 WHERE tarih = #"&DATE()&"# ") end if else '++ eğer bugüne ait kayıt yoksa kayıt ekleyip tekil ve çoğul ziyaretleri 1 yapıyoruz. Conn.Execute("INSERT INTO tblSayac(tarih,tekil,cogul)VALUES(#"&DATE()&"#,1,1)") end if Session("sayac")="true" '--------------------------------------------------- Conn.Close : Set Conn = Nothing Session.Lcid = Lcid %>