Bonjour le forum,
 
J'ai presque terminé mon site ASP 3 met je reste avec un problème que je ne peux pas résoudre.
 
J'ai un bouton, quand on clique sur ce bouton, une variable récupère son nom.
 
J'ai une table access avec tous les noms des boutons, j'aurais juste voulu mettre le nom de la variable (du nom du bouton cliqué) dans la table (au champs qui porte le nom du bouton)
 
Pour être plus claire, je donne un exemple :
 
on clique sur bouton1
 
La variable nombouton prend la valeur bouton1
 
Il va dans la table access et recherche l'enregistrement qui est égal au contenu de la variable :
 
Table access :
 
Champ 1    Champ 2
bouton 1 (valeur enregistrée) / bouton 1 (valeur de la variable)
bouton 2 (valeur enregistrée)/
bouton 3 (valeur enregistrée)/
....
 
Voici le code HTML de mon bouton :
 
 <form name="Cloture" method="Post">
      <input type="hidden" name="txtBouton" />
      <td bgcolor="#0066cc"><input name="ba1PHARJ202" type="submit" id="ba1PHARJ202" value="Clotûrer" onclick="cloturer(this.name)" /></td>
    </form>
 
le javascript s'occupe de récupérer le nom du bouton et de demander une page asp pour action :
 
<SCRIPT LANGUAGE="Javascript">
<!--
function cloturer(Bouton)
{
var x = confirm('Clôturer signifie que le document sera envoyé au secrétariat et que vous ne pourrez plus y apporter des modifications');
if(x == true)
{
alert('Document envoyé au secrétariat, il est maintenant en read only');
document.Cloture.txtBouton.value = Bouton;
document.Cloture.action = "Maj.asp";
document.Cloture.submit();
} else {
alert('aucune modification a été apportée, le document n est pas clôturé');
}
}
//-->
</SCRIPT>
 
 
Et voici le code asp de la page maj :
 
<%
dim cnn
dim th
dim tp
dim matricule
dim txtSQL
 
set cnn = server.CreateObject("ADODB.CONNECTION" )
cnn.open "delibes"
 
NomBouton = request.form("txtBouton" )
 
txtSQL = ""  
txtSQL = "update [cloturer] set cloturerok = '" & NomBouton & "' where boutoncloturer = '" & NomBouton & "'"
response.Write(txtSQL)
Cnn.close  
set Cnn = nothing  
 
%>
 
avec ça
 
txtSQL = "update [cloturer] set cloturerok = '" & NomBouton & "' where boutoncloturer = '" & NomBouton & "'"
 
J'obtiens cela :
 
update [cloturer] set cloturerok = 'ba1PHARJ202' where boutoncloturer = 'ba1PHARJ202'  
 
Quand je crée une requête manuellement avec Access, il n'y a aucun résultat.
 
Voyez-vous quelque chose qui ne serait pas correct.
 
Je désespère.
 
Merci d'avance pour votre aide et bon Week-End.
 
bgs

RESOLU (MERCI !!!!)

Bonjour,
 
J'ai une confirmation de réponse par alain_61 mais je ne la voit pas ?