ASP Nyhedsbrev

Jeg har denne fil og så får jeg den fejl når jeg køre den:

Microsoft OLE DB Provider for ODBC Drivers error \'80004005\'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/jul/nyhedsbrev/mail.asp, line 77

Her er siden:

<%
\' Henter mode - Hver du vil havde script til at gøre
mode = request(\"mode\")
\' Loader databasen ind i hukommelsen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"mail.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN


%>
<html>
<head>
    <title>Mailingliste</title>
</head>

<body>
<%
\' Framelder email og navnet fra mailinglisten
if mode = \"frameld\" then
    email = request(\"email\")

    \'Tjekke om der er skrevet nogen email
    if email = \"\" then
        response.write \"Du skal skrive en email her\"
        fejl = 1
    end if

    \'Tjekker om email findes
    strSQL = \"SELECT * FROM mail WHERE\"
    strSQL = strSQL & \" (email LIKE \'%\" & email & \"%\')\"
    Set rs = myConn.Execute(strSQL)
    if (rs.BOF Or rs.EOF) Then
        response.write \"Email findes ikke i mailinglisten<br>\"
        fejl = 1
    end if
    \' Sletter brugen hvis ingen fejl er fundet
    if not fejl = 1 then
        strSQL = \"Delete * FROM mail WHERE\"
        strSQL = strSQL & \" (email LIKE \'%\" & email & \"%\')\"
        Set rs = myConn.Execute(strSQL)
        response.write \"Email er nu slettet<br>\"
    end if
    if fejl = 1 then
        call frameld
    end if
end if

\' Tilføjer email og navnet til mailinglisten
if mode = \"\" then
    navn = request(\"navn\")
    email = request(\"email\")

    \' Tjekker for om navnet er skrevet
    if navn = \"\" then
        response.write \"Skriv venligst dit navn<br>\"
        fejl = 1
    end if

    \'Tjekker for om email er skrevet
    if email = \"\" then
        response.write \"Skriv venligst din email<br>\"
        fejl = 1
    end if
   
    \'Tjekker for om email findes i mailinglisten
    strSQL = \"SELECT * FROM mail WHERE\"
    strSQL = strSQL & \" (email LIKE \'%\" & email & \"%\')\"
    Set rs = myConn.Execute(strSQL)
    if not (rs.BOF Or rs.EOF) Then
        response.write \"Email findes allerede i mailinglisten<br>\"
        fejl = 1
    end if
   
    \'Tilføjer email, hvis der ikke er fundet en fejl i mellem tiden
    if not fejl = 1 then
        strSQL = \"INSERT INTO mail (navn,email) VALUES (\'\" & navn & \"\',\'\" & email & \"\')\"
        Set rs = myConn.Execute(strSQL)
        response.write \"Email er tilf&oslash;jet\"
    else
        %>
        <!-- Tilmeld formen -->
        <form action=\"mail.asp\" method=\"POST\">
        Skriv venligst dit navn<br><input type=\"Text\" name=\"navn\" size=\"30\"><br>
        Skriv venligst din email<br><input type=\"Text\" name=\"email\"size=\"30\"><br>
        <input type=\"Submit\" value=\"Opret dig i maillinglisten\">
        </form>
        <%
    end if
end if       
           
%>




</body>
</html>


<%sub frameld %>
    <!-- Frameld formen -->
    <form action=\"mail.asp\" method=\"POST\">
    Indtast din email<br><input type=\"Text\" name=\"email\"><br>   
    <input type=\"Hidden\" name=\"mode\" value=\"frameld\">
    <input type=\"Submit\" value=\"Frameld dig mailing listen\">
    </form>
<%end sub %>