haftalık tablo resetleme

Merhaba arkadaslar kolay gelsın

SimdikiTarih = (Year(Date()) & Month(Date()) & Day(Date()))
gzaman =Girdi("htarih")
GTarih = gzaman
If (SimdikiTarih > GTarih) Then

seklınde fonksıyonum var sımdıkı tarih guncelleme tarihi yanı Gtarihinden buyukse ıslem yaptırıyorum benım ıstegım şimdiki tarih Gtarih ten 7 gün büyükse işlem yapması bu sekılde bu fonksiyonu gelıstırebılırmıyız ? tşkler arkadaslar kolay gelsin

<%
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.

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.