Unbannes hvis det er en bestemt dato

Hej!
Jeg har lavet et banlysnings system, som fungerer på den måde at man er en IP i databasen og hvis man skal banlyses, ændres et felt der hedder "Banlyst" fra nej til ja, samt der puttes grund og nogle andre ting ind.
Der er også et felt der hedder "Unbannes", der skriver man den dato som ham der bliver banlyst ska' ha' adgang til siden igen.
Nu vil jeg ha' det lavet sådan at i den fil som tjekker om man er banlyst, der skal der også være en kode som hurtigt løber alle posterne igennem i tabellen, og ser om der er nogle der er banlyst og hvis der er, om de så skal unbannes idag.
- Men det kan jeg ikke få til at virke.

Så nu vil jeg høre om i ved hvordan jeg skal gøre.
Jeg har selv lavet denne kode:

<%

'@@@@@ START @@@@@@

'.:: Diverse ::.

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Database.mdb")

Session.LCID = 1030

'.:: Unbannes eller ej? ::.

strSQL = "SELECT * from IPer"
Set objRS = objConn.Execute(strSQL)

If objRS.EOF Then
Response.Write ""
Else
Do until objRS.EOF

If objRS("Banlyst") = "Ja" Then
Unbannes = objRS("Unbannes")
End If

If Unbannes = Date() Then
Response.Redirect("Index.asp?Side=Unban")
End If

objRS.Movenext
Loop
End if

'.:: Banlyst eller ej? ::.

IP = Request.ServerVariables("REMOTE_ADDR")

strSQL = "Select * From IPer"
Set objRS = objConn.Execute(strSQL)

Do until objRS.EOF

If objRS("IP") = IP AND objRS("Banlyst") = "Ja" Then
Response.Redirect("Banlyst.asp?IP=" & IP & "")
End if

objRS.MoVenext
Loop

'@@@@@ SLUT @@@@@@

%>


Men der sker intet..


- Jeg håber i kan hjælpe :)