Interesting....
-----Original Message----- From: Sam Thompson [mailto:[EMAIL PROTECTED]] Sent: Thursday, October 10, 2002 11:09 AM To: ActiveServerPages Subject: Re: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000 I just tested your code, it works if strURL is http://www.yahoo.com/ but it doesnt work using that hollywood.com url that you are trying to use. Dunno what to suggest now!!! Cheers Sam ----- Original Message ----- From: "Robert Leonard" <[EMAIL PROTECTED]> To: "ActiveServerPages" <[EMAIL PROTECTED]> Sent: Thursday, October 10, 2002 3:46 PM 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=2 > 55 > 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.unsub%% --- You are currently subscribed to activeserverpages as: [email protected] To unsubscribe send a blank email to [EMAIL PROTECTED]
