Automatisk Unban kan ikke få det til at virke

Hej allesammen på Eksperten.dk

Jeg har lavet et ban system til min side, hvor man kan sætte den til at unbanne automatisk den dato/tid den er sat til.

#########################
Ya= Year(Date)-2004

If NOT rs100.EOF Then
If arrYear(Ya) => rs100("TilYear") Then
If arrMonth(Month(Date)) => rs100("TilMonth") Then
If arrDay(Day(Date)) => rs100("TilDay") Then
If arrHour(Hour(Time)) => rs100("TilHour") Then
If arrMinute(Minute(Time)) => rs100("TilMinute") Then
If arrSecond(Second(Time)) => rs100("TilSecond") Then
#########################

Har prøvet tusindvis af gange bare at banne mig selv i 10minutter, og så når de 10minutter er gået går jeg ind på siden igen og så skriver den jeg er unbanned og opdaterer og så er jeg unbanned igen.

Men så her igår bannede jeg en til idag, og han gik så ind på siden og opdaterede men blev ikke unbanned.

Nogle der kan hjælpe, på forhånd tak.