[vbscript] waarom werkt dit niet ?

[Verwijderd]

ik probeer een .txt file van het web te halen om daaruit wat stats te peuteren (en die in Samurize te tonen), maar krijg met mijn (zeer) beperkte vbs kennis dit stukje code niet aan de praat :

code:

GetURL = "http://www.stephenbrooks.org/muon1/rawstats.txt"

Function writefile

 Dim Http
 Set Http = CreateObject("Microsoft.XMLhttp")
 Http.Open "GET",GetURL,False
 Http.Send
 HtmlResult = Http.ResponseText
 Set Http = Nothing
 set fs=CreateObject("Scripting.FileSystemObject")
 set f=fs.CreateTextFile("rawstats.tmp",true)
 f.write(HtmlResult)
 f.close
 set f=nothing
 set fs=nothing
 writefile = "Stats File Written"

End Function

"invalid procedure call or argument"
wat doe ik fout ?

bvd,
Goner

[j_du_pee]

je textbestand trekt geen unicode

code:

set f=fs.CreateTextFile("rawstats.tmp",true, 1)

werkt wel

[ Voor 8% gewijzigd door j_du_pee op 01-07-2003 15:24 ]

[Verwijderd]

je declareert een variable (dim http) zonder aan te geven wat het is.
as string, as integer etc.

Mijn kennis is overigens ook zeer beperkt maar dit viel me direct op.

[whoami]

Blijkbaar roep je een procedure aan die niet bestaat, of roep je ze aan met de verkeerde argumenten.
Misschien even debuggen en nagaan op welke regel je die fout precies krijgt, en dan de gepaste actie ondernemen.
P&W is niet bedoeld om voor jou het debug-werk op te knappen.

succes.

[curry684]

wat doe ik fout ?

Nou....
• Je post in het verkeerde forum, clientside scripting is in Webdesign & Graphics
• Je geeft geen regelnummer bij de foutmelding
• Je plaats overbodige groetjes
• Je geeft niet aan wat je al geprobeerd hebt en waar je denkt dat het probleem zit.

Lees even de FAQ van Webdesign & Graphics door en probeer het daarna aldaar opnieuw