script ne fonctionne pas

Marsh Posté le 19-10-2005 à 09:47:35

Bonjour le forum ,
J ai un probleme avec mon petit script . Comme je debute depuis peu , je n arrive pas à trouver mon erreur .
J ai bien la msgbox qui me demande si je veux valider oui ou non , lorsque je reponds OUI rien ne se passe
merci pour votre aide :

<SCRIPT language="VBscript">
Sub test_OnClick()
Dim reponse
Dim texte
Dim mobiles(1)
Dim nbmobiles
Dim texteSMS

mobiles(0)="06"

nbmobiles = 1
reponse = 0
texteSMS = "test xxxx"

reponse= Msgbox ("Etes-vous sûr de vouloir envoyer ce SMS ?",4)

if reponse = 6 then

Set objExplorer = CreateObject("InternetExplorer.Application" )
for i = 0 to nbmobiles

objExplorer.Navigate "http:passerelle" & mobiles(i) & "&text=" & texteSMS

WScript.sleep(10000)
next

Set objExplorer = Nothing

reponse = msgbox ("Les SMS sont partis",0)

Else

reponse = msgbox ("Envoi des SMS annulé",0)

end if
'----------- Fin du script

end sub
</SCRIPT>
</HEAD>
<BODY>
<FORM>
<INPUT TYPE="button" NAME="test" VALUE="Envoyer SMS TEST">
</FORM>
</BODY>
</HTML>

Message cité 1 fois

Marsh Posté le 19-10-2005 à 09:47:35

Marsh Posté le 22-10-2005 à 13:28:08

Dejà dans ta FORM il faut une METHOD et une ACTION !

<FORM METHOD=POST ENCTYPE="text/plain" ACTION="mailto:toto@tot.fr"> ou
ACTION="../cgi-bin/mycgi.pl">

Puis dans ton INPUT un SUBMIT !

<INPUT TYPE=SUBMIT VALUE="Envoyer SMS TEST">

Marsh Posté le 23-10-2005 à 18:56:21

apple37 a écrit :

...Comme je debute depuis peu...

Difficile de debuter... Depuis longtemps :pt1cable:

---------------
Mangas/DVD - Chiptune

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *