Bonjour,
 
Pourriez vous m'aider concernant l'erreur ci-dessous, le code concernant a été mis en gras et en bleu.
Merci de votre aide.
 
L'erreur :
Type d'erreur :
Microsoft OLE DB Provider for SQL Server (0x80040E07)
/include/tuteur_index/action/EnvoyerMessage.asp, line 5  
 
 
Le code :
<%
strsql = "insert into quest_rep(" & session("champs_MAJ" ) & ",isquestion,id_sous_thematique,date_insert) values (" & session("valeur_MAJ" ) & session("id_auteur" )&",1,"&cint(session("categorie" ))&",'"&DateDuJour()&"')"
set distri = server.CreateObject("adodb.RecordSet" )
distri.Open strsql,cnx,adOpenKeyset,adLockOptimistic,adCmdText
m_public = session("m_public" )
objet = session("objet" )
contenu = session("contenu" )
 strsql = "select * from quest_rep where objet like '"& objet&"' and id_auteur="& session("id_auteur" ) &" and contenu like '"&contenu&"'"
  set distri = server.CreateObject("adodb.RecordSet" )
  distri.Open strsql,cnx,adOpenKeyset,adLockOptimistic,adCmdText
 if not distri.eof then
  question_reponse = distri("idqr" )
 end if
liste_MAJ = split(session("liste_MAJ" ),";",-1,1)
i = 0
while liste_MAJ(i)<>0
 id_rec = cint(liste_MAJ(i))
   if liste_MAJ(i) <> "" then
    strsql = "insert into Distri_QR (question_reponse,id_rec,[public],gparent,validite,id_auteur,date_insert) values ("&question_reponse&"," & id_rec & "," & m_public & ","&question_reponse&","&session("validite" )&","&session("id_auteur" )&",'"&DateDuJour()&"')"
      set distri = server.CreateObject("adodb.RecordSet" )
    distri.Open strsql,cnx,adOpenKeyset,adLockOptimistic,adCmdText
        set note = server.CreateObject("adodb.recordset" )
        strsql="select nbquestionpose from membres where idm=" & id_rec
        note.Open strsql,cnx,adOpenStatic
        if not note.EOF then
        nbquestionpose = cint(note("nbquestionpose" )) + 1
        strsql = "update membres set nbquestionpose=" & nbquestionpose & " where idm = " & id_rec
        distri.Open strsql,cnx,adOpenKeyset,adLockOptimistic,adCmdText
        end if
        note.Close
        end if
i = i + 1
Wend
Response.Write("<br><br>" )      
Response.Write("<p align=center>" )
Response.Write("<font size=2>" )
Response.Write("<b>Votre message a bien été distribué aupr&egrave;s des membres sélectionnés !</b>" )
Response.Write("</font>" )
Response.Write("<br><br>" )
Response.Write("<a href=monsite.asp?page=monsite><img src=images/retour.jpg border=0></a>" )
Response.Write("</p>" )
%>

Affiche le contenu de ta variable strsql et lance la dans un client sql déjà.