slet i database fejl

Jeg får en intern serverfejl 500 når jeg prøver at køre følgende.. jeg fatter ikke en bjælde!

Set cnDataSkriv = Server.CreateObject("ADODB.Connection")
    cnDataSkriv.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("db.mdb")

    Set rsDataSkriv = Server.CreateObject("ADODB.RecordSet")
    rsDataSkriv.Open "SELECT * FROM list WHERE mail = "& request("mail")  , cnDataSkriv, adOpenDynamic, adLockPessimistic


    if not rsDataSkriv.eof then
   
    rsDataSkriv.delete
   
    response.redirect  "edit.asp"

    end if