Kendin Pişir Kendin ye demişler


<%
'-----Tablo Güncelleme Fonksiyonu--------------------
Gtarih =tsr("gtarih")
SONUC=DateDiff("d" ,Now,Gtarih)
If SONUC <> "-7" OR tsr("rkoruma") = 0 Then
Response.Write("")
Else
Do While Not tsr.Eof
xtarih = FormatDateTime(Date)
tsr("hit")=0
tsr("gtarih") = xtarih
tsr("rkoruma") = 0
tsr.update
tsr.movenext
loop
Response.Write("")
End If
' --------------------------------------------------
%> şimdiki tarih ile guncelleme tarıhı arasında 7 gun varsa hıt bılgılerı sıfırlanır ve fonksiyonu kapatmak ıcın rkoruma tablosu 0 false konumuna gecer.

<%
'--------Fonksiyon Aktif Etme-----------------------
Gtarih =rsset("gtarih")
SONUC=DateDiff("d" ,Now,Gtarih)
SONUC2=DateDiff("d" ,Gtarih,Now)
If SONUC <> "-6" OR rsset("rkoruma") = 1 Then
Response.Write("")
Else
Do While Not rsset.Eof
rsset("rkoruma") = 1
rsset.update
rsset.movenext
loop
Response.Write("")
End If
' --------------------------------------------------
%> şimdiki tarih güncelleme tarihi arasında 6 gün varsa rkoruma tablosunu 1 yanı true yapan fonksiyondur. Bu şekilde tablo guncelleme fonksiyonu 7. gun calısır konuma gelecektır.

Arayıpda bulamayanlar olursa faydalı olabıldı ısem ne mutlu bana.