Mrb Asp De Toplu Kayıt Silmeyi Öğreneceğiz Bu Dersde

<%
    Set baglanti=Server.createobject("adodb.connection" )
        baglanti.provider="microsoft.jet.oledb.4.0"
        baglanti.open Server.Mappath("Database.mdb" )

    Set rs=baglanti.execute("select * from mesajlar" )
        response.write "<form action=""?islem=sil"" method=""post"">"

    do until rs.eof
        response.write rs("id" ) & ". "&rs("isim" )& _
        "<input type=""checkbox"" name="&rs("id" )&"><br>"
    rs.movenext:loop
       response.write "<input type=""submit"" value=""Sil""></form>"
    
    if request.querystring("islem" )="sil" and not request.form="" then
        gelen=split(request.form,"&" )
        say=ubound(gelen )

    idler="":for i=0 to say
        bolunecek=gelen(i )
        id=split(bolunecek,"=" )

    if idler="" then
        idler="id="&id(0 )
        else
        idler=idler + " or id=" & id(0 )
    end if
    next

        baglanti.execute("delete from mesajlar where " & idler )
    end if
%>