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 PROTECTED]
