<%Set WM = Server.CreateObject("ADODB.Recordset")
sor = "Select * from sayac where id like '%"&id&"%' and gun like "&day(Now)&" and ay like "&month(Now)&" and yil like "&year(Now)&""
WM.Open sor,Sur,1,3
toplamhit=WM.recordcount
if toplamhit<1 then
today = Now()
id = Request.QueryString("id")
gun = Day(today)
ay = Month(today)
yil = Year(today)
hit1 = WM("hit1")
WM.addnew
WM("id") = id
WM("gun") = gun
WM("ay") = ay
WM("yil") = yil
WM("hit1") = hit1+1
WM.update
else
WM("hit1") = hit1+1
end if
%>şöyle bir kod yazdım ama bilemedim doğru mu değil mi. gerçi çalıştırdığımda hata veriyor. verdiği hata;ADODB.Field hata '800a0bcd' Ya BOF ya da EOF Doðru veya geçerli kayýt silinmiþ. Ýstenen iþlem geçerli bir kayýt gerektiriyor. /programlarimm/Windows/indir.asp, satır 196196. satır hit1=WM("hit1") kısmı oluyor.
--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 01:27:08 -->-> Daha önceki mesaj 00:53:27 --
tamamdır oldu arkadaşlar. kodu </body>nin hemen üstüne ekleyince halloldu.