<% Dim fs, fname Dim srcFile srcFile = "http://www.historictours.com/trusted-tours/trustedtours.xml" 'Nothing Below Here Has To Change Response.Buffer = True Dim objXMLHTTP, xml ' Create an xmlhttp Object and Get it! Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", srcFile, False xml.Send set fs=Server.CreateObject("Scripting.FileSystemObject") set fname=fs.CreateTextFile("C:\websites\historictours_com\trusted-tours\xml\incoming.xml",true,true) fname.WriteLine(xml.responseText) 'Response.write (xml.responseText) Set xml = Nothing fname.Close set fs = Nothing set fname = Nothing %> Untitled Document