You must set strFileLocation. I would also recommend that you specify Overwrite:=True (or False) in the call to CreateTextFile - the default I get when testing as a .vbs and the default indicated by (an earlier version of?) the documentation do not agree. My .vbs script overwrites without this parameter, but documentation states that it defaults to NOT overwrite existing files.
HTH, Tore. -----Original Message----- From: Robert Leonard [mailto:[EMAIL PROTECTED]] Sent: Wednesday, October 09, 2002 10:23 AM To: ActiveServerPages Subject: RE: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000 Sam, Ok - almost works like a charm - except at WriteLine I get the following error. Does create file fine, but empty. Is WriteLine wrong? Thanks much in advance bob *************code Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument /get_movie_14.asp, line 56 ****code Dim objXMLHTTP, xml, s Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.Open "GET", strURL, False xml.Send s = xml.responseText Set xml = Nothing Set fs = Server.CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(strFileLocation) a.WriteLine (s) <------------line 56 a.close -----Original Message----- From: Sam Thompson [mailto:[EMAIL PROTECTED]] Sent: Monday, October 07, 2002 12:25 PM To: ActiveServerPages Subject: Re: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000 <% strURL = "http://www.yahoo.com/"; strFileLocation = Server.MapPath("yahoo.txt") Dim objXMLHTTP, xml, s Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.Open "GET", strURL, False xml.Send s = xml.responseText Set xml = Nothing Set fs = Server.CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(strFileLocation) a.WriteLine (s) a.close %> HTH Sam --- You are currently subscribed to activeserverpages as: [EMAIL PROTECTED] To unsubscribe send a blank email to %%email.unsub%% --- You are currently subscribed to activeserverpages as: [email protected] To unsubscribe send a blank email to [EMAIL PROTECTED]
