Henter XML via http og vil gemme lokalt

Jeg henter data på følgende måde:

Function getXML(strURL)
On Error Resume Next
Set objXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")

objXMLHttp.Open "GET", strURL ,False,"",""

objXMLHttp.Send

If Err.Number = 0 Then
    If objXMLHttp.Status = 200 then
        getXML = objXMLHttp.ResponseText
    Else
        getXML = "Incorrect URL"
    End if
Else
    getXML = Err.Description
End If

Set objXMLHttp = Nothing
End Function

set XML = Server.createObject("Microsoft.XMLDOM")
XML.async = false

kald = getKald("http://" & udtraek)

boolvalue = XML.loadXML(GetXML(kald))
   
if not boolvalue then
    fejltext = "Der er ikke adgang til Serveren!"
End If

Jeg har forsøgt med XML.save("fil.xml") men dette giver Access Denied!?!?

Der er fuld skrald på pointene, for jeg skulle bruge svaret igår :-)