<%
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
----- Original Message -----
From: "Robert Leonard" <[EMAIL PROTECTED]>
To: "ActiveServerPages" <[EMAIL PROTECTED]>
Sent: Monday, October 07, 2002 5:10 PM
Subject: RE: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000
> Sam appreciate the help..
>
> Very simply, we have a spider program that picks up a page from a given
> web site and stores that page (source) in a given location. No database
> involved. Code is:
>
> **************************
> Set Inet = Server.CreateObject("InetCtls.Inet.1") (problem line)
> Inet.RequestTimeOut=170
> Server.ScriptTimeOut=170
>
> Do While Not objRecordset.EOF
> 'strURL = objRecordset("url")&""
> strURL = "http://www.anywhere.com";
> strFileLocation = objRecordset("file_location")&""
> %>
> <%=strURL%> Is The URL.<br>
> <%=strFileLocation%> Is Being Worked On.<br>
> <%
> Inet.Url = strURL
> s = Inet.OpenURL
> Set fs = Server.CreateObject("Scripting.FileSystemObject")
> Set a = fs.CreateTextFile(strFileLocation)
> a.WriteLine (s)
> a.close
> ********************************
>
> -----Original Message-----
> From: Sam Thompson [mailto:[EMAIL PROTECTED]]
> Sent: Monday, October 07, 2002 11:33 AM
> To: ActiveServerPages
> Subject: Re: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000
>
>
> Before I/we give you some code you need to explain more, please try and
> spend abit more time typing your posts and thinking about what you want
> us to help you with, reading your mind isnt easy!
>
> Have you got an ASP page which drags data from a database? Is it this
> data that you want to create a text file from? Or have you just got a
> static HTML page, and you need to create an ASP page which creates a txt
> file from the static HTML page?
>
> Detail is important.
>
> ----- Original Message -----
> From: "Robert Leonard" <[EMAIL PROTECTED]>
> To: "ActiveServerPages" <[EMAIL PROTECTED]>
> Sent: Monday, October 07, 2002 4:13 PM
> Subject: RE: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000
>
>
> >
> > Yes, that is exactly what I want to do; I am creating a txt file from
> > the source HTML file of the site. How else?
> >
> > bob
> >
> > -----Original Message-----
> > From: Sam Thompson [mailto:[EMAIL PROTECTED]]
> > Sent: Monday, October 07, 2002 10:26 AM
> > To: ActiveServerPages
> > Subject: Re: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000
> >
> >
> > So you wanna create a txt or html file containing some data which you
> > have dragged out of a database? You dont need to use the Inet
> > component to do that, IS that what you want to do?
> >
> > If not, maybe you need to add additional components to IIS on your W2K
>
> > box, I dont think the Inet control is installed by default. Try
> > Add/Remove programs.
> >
> > HTH
> >
> > Sam Thompson
> >
> > ----- Original Message -----
> > From: "Robert Leonard" <[EMAIL PROTECTED]>
> > To: "ActiveServerPages" <[EMAIL PROTECTED]>
> > Sent: Monday, October 07, 2002 3:20 PM
> > Subject: RE: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000
> >
> >
> > > I am simply trying to go to a web site and write the data(source) to
>
> > > a
> >
> > > specified file name on the server (different than would be in the
> > > Temp
> >
> > > Internet directory). Problem is, I do not know what I am missing
> > > either; works on our NT server, but not on 2000 server
> > >
> > > Confused in florida (at least its sunny)
> > >
> > > Bob
> > >
> > >
> > > -----Original Message-----
> > > From: Chris Tifer [mailto:[EMAIL PROTECTED]]
> > > Sent: Monday, October 07, 2002 12:26 PM
> > > To: ActiveServerPages
> > > Subject: Re: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000
> > >
> > >
> > > The component seems to need to be registered.
> > > What component is this?
> > >
> > > Chris Tifer
> > >
> > > ----- Original Message -----
> > > From: "Robert Leonard" <[EMAIL PROTECTED]>
> > > To: "ActiveServerPages" <[EMAIL PROTECTED]>
> > > Sent: Sunday, October 06, 2002 10:21 AM
> > > Subject: 'ASP 0177 : 800401f3' works fine on NT4 errors on 2000
> > >
> > >
> > > > Problem... worked on old server (nt4) but now on 2000 server does
>
> > > > not. What am i missing?
> > > >
> > > > all I am trying to do is create a source file of a web page being
> > > > accessed
> > > >
> > > > Line 35
> > > > ***************************
> > > > Set Inet = Server.CreateObject("InetCtls.Inet.1")
> > > >
> > > > error message
> > > > ***************************
> > > > Server object error 'ASP 0177 : 800401f3'
> > > >
> > > > Server.CreateObject Failed
> > > >
> > > > /get_movie_14.asp, line 35
> > > >
> > > > Invalid ProgID. For additional information specific to this
> > > > message please visit the Microsoft Online Support site located at:
>
> > > > http://www.microsoft.com/contentredirect.asp.
> > > >
> > > > ---
> > > > 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.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]
