<%
Gtarih =rsset("gtarih") `guncelleme tarihi
OncekiTarih = cdate(gtarih)
SimdikiTarih = now
Fark = SimdikiTarih - Gtarih
' --------------------------------------------------
If rsset("rkoruma") = 1 Then
ElseIf int(fark) = 7 then
do while not rsset.eof
xtarih = FormatDateTime(Date)
rsset("hit")=0
rsset("gtarih") = xtarih
rsset("rkoruma") = 0
rsset.update
rsset.movenext
loop
Else
End If
%>

7 gun sayfaya her gırıste tabloya reset atmasın dıye rkoruma tablosu olusturdum 7. gun tabloya reset attıldıgında rkoruma tablosu 0 konumuna gelıp fonksıyonu kapatıyor bu fonksıyonda ne yaptı ısem If int(fark) = 8 then ile 8. gun rkoruma tablosunu 1 konumuna getıremedım 8. gun rkoruma yı 1 yapabılırsem hıc bır sorun kalmayacak fonsıyon perıyodık olarak calısacak bu konuda yardımcı olabılecek arkadas varmıdır tskler.