Bonjour j'ai le code suivant pour passer un formauliare en méthode post le problème c'est que cela ne fonctionne pas et je ne comprend pas
Voici mon code:
Sub test_OnClick()
option explicit
dim http, fso, fout, StrResult
dim url, corps
set fso = CreateObject("Scripting.FileSystemObject" )
Set http = CreateObject("MSXML2.XMLHTTP" )
http.URL = "http://fniweb2/GTA/Default1b.asp"
http.RequestMethod = "POST"
http.PostData = "NAME=CANO&VALUE=1326"
fso.CreateTextFile "testBody.txt", true, false ' ecraser + ascii
set fOut = fso.GetFile("testBody.txt" ).OpenAsTextStream(2, 0)' ecrire + ascii
fOut.Write http.ResponseText
fout.Close
fso.CreateTextFile "testStatus.txt", true, false ' ecraser + ascii
set fOut = fso.GetFile("testStatus.txt" ).OpenAsTextStream(2, 0)' ecrire + ascii
fOut.Write http.Status & ": " & http.StatusText
fOut.Close
set fOut = nothing
set fso = nothing
set http = nothing
end Sub
ensuite j'ai une form comme celle là
<form action="http://fniweb2/GTA/Default1b.asp"
method="post"
type="submit"
target=""
name="frm_BADGER"
>
<INPUT NAME="CANO" VALUE="1326" type="hidden">
</form>
et dans le code de ma page j'ai une autre form
<FORM>
<INPUT TYPE="button" NAME="test" VALUE="Tester">
</FORM>
est ce que quelqu'un pourrait me dire ce qu'il ne va pas svp