'Verification
if id_message="" then
'le champ est vide, alors on renvoie vers le formulaire
response.write("<center> Enregistrement impossible.
")
response.write("Retour </center>")
else
'Tout est OK, on continue le traitement
'établissons la connexion avec la base et executons la requête
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
' chaine de connexion
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/agc.mdb"
OBJdbConnection.Open connstring
req_sql="DELETE FROM agenda WHERE id_message="&id_message&";"
Set RS = OBJdbConnection.Execute(req_sql)
response.redirect "agenda.asp"
%>
Au fait ça marche pour l'enregistrement dans les deux tables
Normal, le DELETE supprime tout l'enregistrement.
Tu ne peux supprimer un seul champ, par contre tu peux le remplir avec une chaine vide ou un NULL.
Essaye ça:
req_sql= "UPDATE agenda set heure='' WHERE id_message='" & id_message & "'"