Poser une question

Alimenter une table Access via un site ASP 3

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

Réponses

Re: Alimenter une table Access via un site ASP 3  beegees 19/2/2006