Moze uz jednu napomenu: cini mi se da ce ova tvoja skripta da vrsi brisanje svakih 14 dana. Sto znaci ako danas izvrsis brisanje, do sledeceg brisanja mogu da se pojave oglasi koji ce preci starosnu granicu od 14 dana a nece biti obrisani sve dok ne prodje 2 nedelje.
Jednostavno, pozovi kod za brisanje svaki dan. Dovoljno je jednom.
Code:
Sub Session_OnStart()
If datediff("d", Application("timer"), Now() ) >= 1 Then
' brisi i salji mailove
Application.Lock
Application("timer") = Now()
Application.Unlock
End if
...
[Shadowed: dodati [code] tagovi ]
[Ovu poruku je menjao Shadowed dana 06.07.2005. u 18:42 GMT+1]
Commercial-Free !!!