1 stemme pr. dag

hvordan kan jeg omskrive det her script så \"stemmeforbuddet\" der er forbundet med ip adressen bliver ophævet efter 1 døgn??
<html>
<head>
    <link rel=\"StyleSheet\" HREF=\"surveyadmin.css\" type=\"text/css\">
    <title>Mini Survey</title>
</head>

<body bgcolor=\"#ffe4b5\">

<%
   
    lAnketID = request(\"ID\")
    lSecenekID = request(\"optSecenek\")
    UserIP = Request.ServerVariables(\"REMOTE_ADDR\")
   
    if lSecenekID = 0 then
        %>
           
            <p class=\"smalltext\">
            You should select an option.<br>
            <a href=\"<%=request(\"http_referer\")%>\">Gå tilbage</a>
        <%
        response.end
    end if

    set conn = Server.CreateObject(\"ADODB.Connection\")
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    conn.open sConnAnket
    set rs.ActiveConnection = conn
    rs.CursorType = adOpenStatic

    sSQL = \"SELECT IP FROM Answers WHERE IP =\'\" & UserIP & \"\' AND SurveyID = \" & lAnketID
    rs.Open sSQL, , , adCmdTable
   
    If rs.Eof then
   
        rs.close
        sSQL = \"SELECT SurveyID, OptionID, IP FROM Answers WHERE AnswerID = 0\"
        rs.Open sSQL, , , adCmdTable
   
        rs.AddNew
        rs(\"SurveyID\") = lAnketID
        rs(\"OptionID\") = lSecenekID
        rs(\"IP\") = UserIP
       
        rs.update
   
        rs.close
       
        %>
       
        <table border=\"0\" cellspacing=\"1\" cellpadding=\"2\" width=\"100%\" bgcolor=\"#ffe4b5\">
<tr>
    <td colspan=2 class=\"header2\">Tak fordi du tog dig tid til at deltage.</td>
</tr>


<%
    sSQL = \"SELECT COUNT(AnswerID) AS TotalAnswers From Answers WHERE SurveyID = \" & lAnketID
    rs.Open sSQL, , , adCmdTable
    lToplamOy = rs(\"TotalAnswers\")
    rs.close

    sSQL =           \"SELECT Count(Answers.OptionID) AS TotalAnswers, Options.OptionText \"
    sSQL = sSQL & \"FROM Answers INNER JOIN Options ON Answers.OptionID = Options.OptionID \"
    sSQL = sSQL & \"WHERE Answers.SurveyID=\" & lAnketID &  \" \"
    sSQL = sSQL & \"GROUP BY Options.OptionText \"
    sSQL = sSQL & \"ORDER BY Count(Answers.OptionID) DESC;\"

    rs.Open sSQL, , , adCmdTable
   
    response.write \"<tr><td colspan=2 class=\"\"header2\"\">Total \" & lToplamOy & \" votes cast.</td></tr>\"
   
    do while not rs.eof
        if lToplamOy <> 0 then
            lYuzde = (rs(\"TotalAnswers\") / lToplamOy) * 100
        else
            lYuzde = 0
        end if
       
        %>
           
            <tr>
                <td class=\"smalltext\"><%=rs(\"OptionText\")%></td>
                <td class=\"smalltext\" align=right><%=formatnumber((rs(\"TotalAnswers\")/lToplamOy)*100,2) & \"%\"%></td>
            </tr>
            <tr>
                <td class=\"smalltext\" colspan=2><img src=\"images/pb.gif\" height=8 width=<%=(lYuzde)*0.9%>%\"><img src=\"images/pbw.gif\" height=8 width=<%=(100-lYuzde)*0.9%>%\"></td>
            </tr>       
        <%
        rs.movenext
    loop

   

%>
</table>
<%Else%>
       
        <table border=\"0\" cellspacing=\"1\" cellpadding=\"2\" width=\"100%\" bgcolor=\"#ffe4b5\">
<tr>
    <td colspan=2 class=\"header2\">Desværre, kun en stemme.</td>
</tr>


<%
    rs.Close
    sSQL = \"SELECT COUNT(AnswerID) AS TotalAnswers From Answers WHERE SurveyID = \" & lAnketID
    rs.Open sSQL, , , adCmdTable
    lToplamOy = rs(\"TotalAnswers\")
    rs.close

    sSQL =           \"SELECT Count(Answers.OptionID) AS TotalAnswers, Options.OptionText \"
    sSQL = sSQL & \"FROM Answers INNER JOIN Options ON Answers.OptionID = Options.OptionID \"
    sSQL = sSQL & \"WHERE Answers.SurveyID=\" & lAnketID &  \" \"
    sSQL = sSQL & \"GROUP BY Options.OptionText \"
    sSQL = sSQL & \"ORDER BY Count(Answers.OptionID) DESC;\"

    rs.Open sSQL, , , adCmdTable
   
    response.write \"<tr><td colspan=2 class=\"\"header2\"\">Total \" & lToplamOy & \" votes cast.</td></tr>\"
   
    do while not rs.eof
        if lToplamOy <> 0 then
            lYuzde = (rs(\"TotalAnswers\") / lToplamOy) * 100
        else
            lYuzde = 0
        end if
       
        %>
           
            <tr>
                <td class=\"smalltext\"><%=rs(\"OptionText\")%></td>
                <td class=\"smalltext\" align=right><%=formatnumber((rs(\"TotalAnswers\")/lToplamOy)*100,2) & \"%\"%></td>
            </tr>
            <tr>
                <td class=\"smalltext\" colspan=2><img src=\"images/pb.gif\" height=8 width=<%=(lYuzde)*0.9%>%\"><img src=\"images/pbw.gif\" height=8 width=<%=(100-lYuzde)*0.9%>%\"></td>
            </tr>       
        <%
        rs.movenext
    loop

%>
</table>   
<%End If%>
</body>
</html>