Have you checked what is in "s"? Could you show us? I would imagine that since the error appeared BELOW the line where you response.write the path and "s", I'm assuming it should be somewhere on your screen (the output)
I don't think it should matter, but since you're trying to use WriteLine, would it matter if your string is more than 1 line? Chris Tifer ----- Original Message ----- From: "Robert Leonard" <[EMAIL PROTECTED]> To: "ActiveServerPages" <[EMAIL PROTECTED]> Sent: Thursday, October 10, 2002 7:46 AM Subject: RE: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000 > Sam, > > Everything works up until I try to use the variable 's'. I can write a > literal w writeline and I can use the s variable within a response write > but when I try to use the a.writeline (s), I get the error below; all > works like a charm until we get to there. Could it be something in the > HTML code that is executing(?) causing the error (but if that were the > case, the same problem would exist in the temp file. (??) > > Error************** > Microsoft VBScript runtime error '800a0005' > > Invalid procedure call or argument > > /get_movie_14.asp, line 58 > > Code****************"Just An Example" > strURL = > "http://www.hollywood.com/showtimes/theatre_detail.asp?searchtheatre=255 > 4" > strFileLocation = "C:\out2_working\movies\3.dat" > %> > <%=strURL%> Is The URL.<br> > <%=strFileLocation%> Is Being Worked On.<br> > <% > > 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) > Response.Write "File Name = '" & strFileLocation & "' writing '" & s & > "" > a.WriteLine (s) <----- Line 58 > a.close > > > Thanks in advance again > > bob > > -----Original Message----- > From: Sam Thompson [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, October 09, 2002 11:00 AM > To: ActiveServerPages > Subject: Re: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000 > > > Bob, > > s is supposed to be a variable which contains the string of HTML which > you have grabbed from another site. > > This error would mean that s is empty, or doesnt exist as a variable, > have you changed the name of s or moved it somewhere else? Maybe you > could post your code again. > > Cheers > Sam > > ----- Original Message ----- > From: "Robert Leonard" <[EMAIL PROTECTED]> > To: "ActiveServerPages" <[EMAIL PROTECTED]> > Sent: Wednesday, October 09, 2002 3:23 PM > 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]
