Hallo

kommentier das mal ein,

'objTextStream.close

ich glaube "close" ist ein ungültiges Argument.

Du zerstörst das Objekt doch schon mit nothing.

Grüße Gudula

----- Original Message -----
From: "Heiko Bauer [UNSHAPE]" <heiko.bauer@unsh...>
To: <activeserverpages@glen...>
Sent: Thursday, March 02, 2006 2:38 PM
Subject: [ASP] Probleme mit CreateTextFile und beim speichern


> Hi,
>
> kann mir jemand sagen wieso dieses Script die folgende Fehlermeldung
> erzeugt:
>
>
> Fehlermeldung:
> --------------
> Microsoft VBScript runtime  Fehler "800a0005'
>
> Invalid procedure call or argument
>
> /grab.asp, line 21
>
>
>
> Script:
> -------
> <%
> ' FileSystemObject objFs oeffnen
> Set objFs= CreateObject("Scripting.FileSystemObject")
>
> ' Dateiname festlegen
> strDateiname = Server.MapPath("/grabbed.txt")
>
> ' Einen Textstream (objTextStream) zur Textdatei oeffnen
> Set objTextStream = objFs.CreateTextFile(strDateiname, True)
>
> ' Webpage grabben
> Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
> objXmlHttp.open "GET", "http://www.google.de", False
> objXmlHttp.setRequestHeader "User-Agent","My funky browser."
> objXmlHttp.send ""
>
> ' Inhalt fuer Datei in String strWriteString speichern:
> strWriteString = objXmlHttp.responseText
>
> ' String in Datei schreiben:
> objTextStream.write strWriteString
>
> ' Objekte schliessen
> objTextStream.close
> Set objTextStream = Nothing
> Set objFs = Nothing
> Set objXmlHttp = Nothing
> Response.write "Webpage grabbed"
> %>
>
> Das Script soll eine Webpage grabben und den Inhalt in eine
> Datei abspeichern. Gibt es dabei vielleicht Längenbegrenzungen?
>
> Danke schon mal im vorraus,
> Heiko
>
>
> _______________________________________________
> ActiveServerPages Mailingliste, Postings senden an:
> ActiveServerPages@glen...
> An-/Abmeldung und Suchfunktion unter:
> http://www.glengamoi.com/mailman/listinfo/activeserverpages
>
>

_______________________________________________
ActiveServerPages Mailingliste, Postings senden an:
ActiveServerPages@glen...
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/activeserverpages