delete fra access database

hej

Jeg vil gerne kunne slette nogle poster fra en database. Først finder jeg posten ved hjælp af dette:


    set strConn = Server.CreateObject("ADODB.connection")
    set rs = Server.CreateObject("ADODB.recordset")
    strConn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strPlacering
    strSQL ="SELECT * from spoergsmol ORDER by id desc"
    rs.open strSQL, strConn, adOpenStatic, adLockOptimistic
   
   

   
%>

<tr><td valign="top"><div id="svarfelt">
<br><br>Vælg spørgsmål fra databasen<br><br><form action="adm_slet_sp.asp" name="sletsp" method="post">
<select name="slet" style="width: 150px">
<%
do
    Response.Write "<option value=""" & rs.fields("titel") & """>" & rs.fields("titel") & "</option>"
    rs.movenext
    Loop while not rs.EOF
       
        rs.close
        set rs = nothing
%>
    </select><input type="submit"  name="sog_sp" value=" Søg "></form>
<%


sletsp = Request.Form("slet")
find_post(sletsp)
sub find_post(sletsp)
    set objConn = Server.CreateObject("ADODB.connection")
    set rs = Server.CreateObject("ADODB.recordset")
    objConn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strPlacering
    strSQL ="SELECT * from spoergsmol ORDER BY id desc"
    rs.open strSQL, objConn, adOpenStatic, adLockOptimistic
   
    do while not(rs.EOF)
        if (rs.fields("titel") = sletsp) then
       
            id = rs.fields("id")
            email = rs.fields("email")
            fornavn = rs.fields("fornavn")
            efternavn = rs.fields("efternavn")
            titel = rs.fields("titel")
            spoergsmol = rs.fields("spoergsmol")
            svar = rs.fields("svar")
    exit do
    end if
        rs.MoveNext
    loop
   
    rs.close
    set rs = nothing
    objConn.close
    set objConn = nothing
end sub

Så vises posten her:

<form action="adm_slet.asp" name="sletsporgs">
    <table class="table3"><tr><td>Navn <%=fornavn%> &nbsp;<%=efternavn%></td></tr>
    <tr><td>Email:<%=email%></td></tr>
    <tr><td><b>Titel: <%=titel%></b><hr></td></tr>
    <tr><td>Spørgsmål:<br> <%=spoergsmol%></td></tr>
    <tr><td><hr color="#CCCCCC"><br><br>Svar: <% =svar%></td></tr></table>
<input type="submit" name="delete_sp" value=" delete "></form>   

og så kan jeg ikke komme længere. jeg har prøvet utallige udgaver af det her:


sub slet_post
    set objConn = Server.CreateObject("ADODB.connection")
    objConn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strPlacering   
    strSQL ="DELETE from spoergsmol WHERE id='" & id & "'"
    set objRec = objConn.execute(strSQL)
    response.Redirect("adm_slet_sp.asp")
end sub
objConn.close
set objConn = nothing

hvad gør man!

hilsen Celine