Execution d'une fonction lors confirmation de msgbox

Re-bonjour,

Voila, j'ai trouvé pour la fermeture d'une page mais mon problème n'est pas tout à fait réglé.

J'aimerai que lorsque je confirme la fermeture de la page, une fonction d'enregistrement s'effectue et que la page se ferme.

Voici le code que j'ai mis mais qui ne fonctionne pas:

Code:

---

1 2 3 4 5 6 7 8 9 10

<Script Language="VBscript"> function confirm_valid() dim valeur_msg valeur_msg=msgbox("Vous voulez quitter sans valider?",vbOkCancel+vbQuestion,"Confirmation") If valeur_msg=1 then call modif_rms(4) window.close() end if end function </script>

---

Quelqu'un verrait ou se trouve le(s) prob(s)?
Merci bcp

voici ce que j'ai fait mais qui ne fonctionne pas mieux(!)

clique pour fermeture:

Code:

---

<a href="#" onclick="test()" >Fermer</a>

---

fonction test():

Code:

---

1 2 3 4 5 6 7 8 9

<Script Language="Javascript"> <!-- function test() { confirm_valid(); modif_rms(4); } --> </script>

---

fonction confirm_valid(): elle fonctionne bien

Code:

---

1 2 3 4 5 6 7 8 9

<Script Language="VBscript"> function confirm_valid() dim valeur_msg valeur_msg=msgbox("Vous voulez quitter sans valider?",vbyesno+vbQuestion,"Confirmation") If valeur_msg=vbyes then window.close() end if end function </script>

---

fonction modif_rms(4) : elle ne fonctionne pas

Code:

---

1 2 3 4 5 6 7

function modif_rms(num) ... elseif num=4 then sql="DELETE * FROM TListeAction Where NumAction="&session("choix_action") Set rst=Application("cnx").Execute(sql) end if end function

---

Pourquoi la fonction modif_rms(4) ne fonctionne pas?
Pourtant aucun msg d'erreur

Tu déclares bien ta connexion avec la base ?

Ta fermeture de fenêtre semble marcher d'après toi, donc le problème vient du traitement au niveau sql.

Essayes de trapper les erreurs pour les afficher

++