HJÆLP!

Hej!


HVad er der galt her:


<%
email = Request.form(\"email\")
aktion = Request.form(\"aktion\")
If aktion = \"tilmeldt\" then

Const adOpenKeyset = 1
Const adLockOptimistic = 3


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../db/visitme_maillingliste.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From mail\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"email\") = email
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect \"tilmeldt.asp?email=\" & email & \"&hvad=\" & aktion & \"\"


elseIF aktion = \"afmeldt\" then


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"DELETE * From mail WHERE email=\'\" & email &\"\'\"
    rs.Open strSQL, Conn


    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect \"tilmeldt.asp?email=\" & email & \"&hvad=\" & aktion & \"\"
End If
%>