Write xmlhttp result to text file

[cwl]

I want to get the content of a webpage containing plain text and write
the content to a text file. My code looks like this:

Set xmlhttp = CreateObject("M icrosoft.XMLHTT P")
xmlhttp.setRequ estHeader "Content-type","text/txt"
xmlhttp.Open "get", "http://www.mysite.com/default.asp", False
xmlhttp.Send
text = xmlhttp.respons eText

dim fs, fname
set fs=Server.Creat eObject("Script ing.FileSystemO bject")
set fname=fs.Create TextFile("c:\te st.txt",true)
fname.WriteLine (text)
fname.Close
set fname=nothing
set fs=nothing

The first and second part of the code runs fine if they are executed in
seperate files. So the text is retrieved and it's possible to write a
text file to the server.

But when they are combined in one file - which they of course have to
be - I'm prompted to logon on the server! And the file containing the
above script is suddenly inaccessible. I'm only able to delete it from
the webserver.

Does anyone have a clue why this happens?

The script runs on IIS 6.

[cwl]

I solved it. It had to do with special characters in the retrieved
text. Had to convert the binary data to string.
Set xmlhttp = Server.CreateOb ject("Microsoft .XMLHTTP")
xmlhttp.Open "get", "http://www.mysite.com/default.asp", False
xmlhttp.Send
text = bts(xmlhttp.res ponseBody)
Set xmlhttp = nothing

dim fs, fname
set fs = Server.CreateOb ject("Scripting .FileSystemObje ct")
set fname=fs.Create TextFile("c:\te st.txt",true)
fname.Write(tex t)
fname.Close
set fname=nothing
set fs=nothing

function bts(data)
'Converts binary data to string
sOut = ""
For i = 0 to UBound(data)
sOut = sOut & chrw(ascw(chr(a scb(midb(data,i +1,1)))))
Next
bts=sOut
end function


cw*@colon.dk skrev:

I want to get the content of a webpage containing plain text and write
the content to a text file. My code looks like this:

Set xmlhttp = CreateObject("M icrosoft.XMLHTT P")
xmlhttp.setRequ estHeader "Content-type","text/txt"
xmlhttp.Open "get", "http://www.mysite.com/default.asp", False
xmlhttp.Send
text = xmlhttp.respons eText

dim fs, fname
set fs=Server.Creat eObject("Script ing.FileSystemO bject")
set fname=fs.Create TextFile("c:\te st.txt",true)
fname.WriteLine (text)
fname.Close
set fname=nothing
set fs=nothing

The first and second part of the code runs fine if they are executed in
seperate files. So the text is retrieved and it's possible to write a
text file to the server.

But when they are combined in one file - which they of course have to
be - I'm prompted to logon on the server! And the file containing the
above script is suddenly inaccessible. I'm only able to delete it from
the webserver.

Does anyone have a clue why this happens?

The script runs on IIS 6.