Vbscript et événement sur lien

pHoEnIxFuRy Messages postés 67 Date d'inscription mercredi 17 juillet 2002 Statut Membre Dernière intervention 18 juillet 2006 - 8 janv. 2004 à 14:29
pHoEnIxFuRy Messages postés 67 Date d'inscription mercredi 17 juillet 2002 Statut Membre Dernière intervention 18 juillet 2006 - 8 janv. 2004 à 15:22
Voici le code d'une page avec vbscript qui ouvre une message box lors d'un clic sur un bouton.

Je voudrais savoir si quelqu'un peut m'aider pour que l'événement ne soit plus le clic sur un bouton mais sur un lien hypertext (sans passer par une 2ème page).

Je sais utiliser des fonctions pour ce genre de truc en javascript mais en vbscript je sèche un peu et javascript ne gère pas les msgbox. :p

Merci d'avance.

-----------------------------------------------------------------

<html>

<head>
<title>test</title>

<SCRIPT LANGUAGE='VBSCRIPT'>

Sub ok_OnClick

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Conserver les récépissés pour une réedition futur ?" ' Define message.
Style = vbYesNo + vbquestion + vbDefaultButton2 ' Define buttons.
Title = " Demande de confirmation" ' Define title.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
document.location.href="http://www.vbfrance.com"
Else ' User chose No.
MyString = "No" ' Perform some action.
End If

End Sub

</SCRIPT>

</head>

<FORM name="commande">

</FORM>

</html>

Si ce que tu as à dire est moins profond que le silence alors ne dis rien.

1 réponse

pHoEnIxFuRy Messages postés 67 Date d'inscription mercredi 17 juillet 2002 Statut Membre Dernière intervention 18 juillet 2006 1
8 janv. 2004 à 15:22
Bon pour ceux qui cherche aussi voici la réponse :

[vbscript: Cliquez ici]

En changeant le "sub ok_OnClick" en "fonction ok()"

Si ce que tu as à dire est moins profond que le silence alors ne dis rien.
0
Rejoignez-nous