<couleur nom="rouge">ADODB.Field error '800a0bcd'

BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.

/intranet/Form_admin/actu.asp, line 56 </couleur>

<%
               
                Dim strSQL
                Dim DSN_BASE
                Dim database
                Dim dateActu
                Dim titreActu
                Dim nomDoc
                Dim imageActu
                Dim articleOk
                Dim modifierActu
               
                'On crée une fonction qui mets des slashs devant les cotes
                function slash_cotes(SQL)
                SQL_bis = replace(SQL,"'","\'")
                slash_cotes = SQL_bis
                end function
               
                'On crée une variable pour éviter de remettre Request.Form("var")
                dateActu = date()
                titreActu = slash_cotes(Request.Form("titreActu"))
                nomDoc = slash_cotes(Request.Form("nomDoc"))
                imageActu = slash_cotes(Request.Form("imageActu"))
                articleOk = 1
                modifierActu = Request.QueryString("modifierActu")
                               
                'On crée la variable de la requête SQL
                strSQL = "SELECT * FROM actub WHERE numActu='"&modifierActu&"'"
                database = "intranet"
                DSN_BASE = "DRIVER={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=" & database & ";Uid=root;Pwd=;" & _
                             "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
               
                Set ConnActu = Server.CreateObject("ADODB.Connection")
                        ConnActu.Open DSN_BASE
                       
                Set RsRecupMess = Server.CreateObject("ADODB.Recordset")
                               
                RsRecupMess.Open strSQL, ConnActu
               
                'si on demande de modifier l'actu
                if not isnull(modifierActu) then
                       
                        'On récupère les informations dans des variables simples
                       
                        titreActu = RsRecupMess("titreActu")
                        nomDoc = RsRecupMess("nomDoc")
                        imageActu = RsRecupMess("imageActu")
                        numActu =RsRecupMess("numActu")
                       
                else 'On rédige une nouvelle news
               
                        titreActu = ""
                        nomDoc = ""
                        imageActu = ""
                        numActu = 0
                end if
               
               
               
                %>
               
                <form action="Actu_liste.asp" method="post">
                <p>Titre Actu : <input type="text" name="titreActu" value="<%=titreActu%>" /></p>
                <p>Nom Doc : <input type="text" name="nomDoc" value="<%=nomDoc%>" /></p>
                <p>Image Actu : <input type="text" name="imageActu" value="<%=imageActu%>" /></p>
                <p> <input type="submit" name="Envoyer" value="Envoyer" />
                </form>