skrive til txtfil

<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/tutorials/asp/tekstfil.txt")
Set f = fso.OpenTextFile(filespec,2)


Dim x, y
Set x = Server.CreateObject("MSXML2.ServerXMLHTTP");

x.open("GET", "http://www.url.dk");
x.send();

y = x.ResponseText;


f.WriteLine y


f.Close
%>

//>Rune

Brug XML DOM's indbyggede save() method:

Dim x, y
Set x = Server.CreateObject("MSXML2.ServerXMLHTTP")
Set y = Server.CreateObject("MSXML2.DOMDocument")
x.open("GET", "http://www.url.dk")
x.send()
y.load(x.ResponseXML)
y.save(Server.MapPath("/xmldata/savedxml.xml"))

(Der skal naturligvis være skriverettigheder i det ønskede bibliotek)

/CS

jeg har ikke tid/lyst til at teste lige nu da jeg ikke skal bruge det alligevel, men i deler bare pointene :-)

mvh sub

Fair nok..
Thx 4 Poinz

//>Rune