Hm. Testing with an empty string in strFileLocation, I got runtime error '800a0005'. Are you sure your variable contains a path where your web app would have sufficient permissions?
Did you try including the Overwrite parameter? (Specifying False gave me runtime error '800A003A'). Do a Response.Write "File Name = '" & strFileLocation & "' writing '" & s & "'" to make sure everything is as you expect. Since Norton Antivirus seems to want to interfere with some of the scripting objects - is it loaded on the web server? HTH, Tore. -----Original Message----- From: Robert Leonard [mailto:[EMAIL PROTECTED]] Sent: Wednesday, October 09, 2002 2:08 PM To: ActiveServerPages Subject: RE: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000 "strFileLocation" was defined earlier in the code. File actually is created, but write does not work. Confused..... bob -----Original Message----- From: Bostrup, Tore [mailto:[EMAIL PROTECTED]] Sent: Wednesday, October 09, 2002 11:10 AM To: ActiveServerPages Subject: RE: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000 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.unsub%% --- 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]
