<% dim strid_prof, strid_cours, strid_classe dim querystr4 strid_prof = request.form("formid_prof") strid_cours = request.form("formintitule") strid_classe = request.form("formclasse") strintitule_anc = request.form("formintitule_anc") strclasse_anc = request.form("formclasse_anc") Set Cndb5 = Server.CreateObject("ADODB.Connection") cnDBQ ="DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="&Server.MapPath("..")&"/basedonnee/bd1.mdb;" Cndb5.Open cnDBQ queryStr4 = "UPDATE table_cle SET id_prof = ("&strid_prof&") , id_cours = ("&strid_cours&") , id_classe = ("&strid_classe&") WHERE id_prof = ("&strid_prof&") AND id_cours = ("&strintitule_anc&") AND id_classe = ("&strclasse_anc&")" Cndb5.Execute(queryStr4) Cndb5.close %>

Si les valeurs sont des chaînes de caractère, il faut rajouter des '

queryStr4 = "UPDATE table_cle SET id_prof = ('"&strid_prof&"') , id_cours = ('"&strid_cours&"') , id_classe = ('"&strid_classe&"') WHERE id_prof = ('"&strid_prof&"') AND id_cours = ('"&strintitule_anc&"') AND id_classe = ('"&strclasse_anc&"')"