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