XMLHTTP Writting To File

I cant find out how to get this to work...i got this bit of code..
--------------------------------------------

Code:
dim objXMLHTTP
dim URL

URL = "http://www.yahoo.com" 'the url that you want to pull html from

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") 'create the

xmlhttp object
objXMLHTTP.Open "GET", URL, false 'use the open command to get the url
objXMLHTTP.Send

'TO GET HEADERS
'response.write objXMLHTTP.getAllResponseHeaders

Response.Write "<hr>"
Response.Write "<h4>HTML Code for&nbsp"&URL&"</h4>"
Response.Write "<textarea rows=30 cols=120>"
Response.Write objXMLHTTP.responseText 'output the html that was
pulled from the page
Response.Write "</textarea>"
Set objXMLHTTP = Nothing

-----------------------------------------------
and it works...it fetches the page but i want it to save the information that it fetches into an html file

I tried using this code as well...
------------

Code:
sFile = "test.html"
sURL = "http://www.yahoo.com"

Set objXMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

objXMLHTTP.Open "GET", sURL, False
objXMLHTTP.Send

set strm1=createobject("adodb.stream")
With strm1
.type = 1
.open
.write objXMLHTTP.responsebody
.savetofile sFile, 2' adSaveCreateOverWrite
.close
End With
-------------------------
but it doesnt want to write to file.

i get the following error
ADODB.Stream error '800a0bbc'

Write to file failed.

/bytesect/data/test2.asp, line 15

Can anyone please help i am really struggling with this...I simply want a generated ASP page to be saved into an html page on the server through a script. I tried the filesystemobject method but it would be insane to insert an FSo.writeline "" code into every single line of html. This XMLHTTP component is promising but i wanna save the file!