Check om Cookies er Expired

Response.Cookies("savvy").Expires = DateAdd("n", 1, now())

Ville jeg mene skulle sætte cookien til at Expire on et minut.


men når jeg kører dette får jeg altid samme væredi ud lige meget om jeg venter 1 2 eller 20 minutter


<%
If not request.Cookies("savvy") is nothing Then
   
    Urlen1 = request.Cookies("savvy")("Urlen1")
    thumb1 = request.Cookies("savvy")("thumb1")
    HeadLine1 = request.Cookies("savvy")("HeadLine1")
    Urlen2 = request.Cookies("savvy")("Urlen2")
    thumb2 = request.Cookies("savvy")("thumb2")
    HeadLine2 = request.Cookies("savvy")("HeadLine2")
   
Else   

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={MySQL ODBC 3.51 Driver}; server=localhost; database=XXXX; uid=XXXX; pwd=XXXX;"

SQL = "select * from Tagger  Where UserName = 'admaster' order by rand() limit 2"
set rs = connect.Execute(SQL)

Counter = 1
Response.Cookies("savvy").Expires = DateAdd("n", 1, now())

if not rs.EOF then
Do until rs.EOF
   
        If Counter = 1 then
        Response.Cookies("savvy")("Urlen1") = rs("Urlen")
        Response.Cookies("savvy")("thumb1") = rs("thumb")
        Response.Cookies("savvy")("HeadLine1") = rs("HeadLine")
        Else
        Response.Cookies("savvy")("Urlen2") = rs("Urlen")
        Response.Cookies("savvy")("thumb2") = rs("thumb")
        Response.Cookies("savvy")("HeadLine2") = rs("HeadLine")
        End If
       
Counter = Counter + 1
   
rs.MoveNext
Loop
else
response.write "ingen felter"
end if

    Urlen1 = request.Cookies("savvy")("Urlen1")
    thumb1 = request.Cookies("savvy")("thumb1")
    HeadLine1 = request.Cookies("savvy")("HeadLine1")
    Urlen2 = request.Cookies("savvy")("Urlen2")
    thumb2 = request.Cookies("savvy")("thumb2")
    HeadLine2 = request.Cookies("savvy")("HeadLine2")


End If
%>