<% 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 function strdate() dstr = FormatDateTime(Date()) a = split(dstr, "/") m = a(0) d = a(1) y = a(2) if len(d) < 2 then d = "0" & d if len(m) < 2 then m = "0" & m strdate = y & m & d end function 'Response.write strdate() ' Create an xmlhttp Object and Get it! Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", srcFile, False xml.Send 'Write Text to File 'Response.Write xml.responseText 'Response.write (Server.MapPath("fileck.php") ) set fs=Server.CreateObject("Scripting.FileSystemObject") set fname=fs.CreateTextFile("C:\websites\historictours_com\trusted-tours\xml\incoming.xml",true) fred = xml.responseText 'Response.write fred fname.WriteLine(fred) Set xml = Nothing fname.Close ' ' ' If (fs.FileExists("C:\websites\historictours_com\trusted-tours\xml\trustedtours.xml"))=true Then ' Neet to rename it to date file fs.copy "C:\websites\historictours_com\trusted-tours\xml\trustedtours.xml", "C:\websites\historictours_com\trusted-tours\xml\" & strdate() & ".xml" fs.delete"C:\websites\historictours_com\trusted-tours\xml\trustedtours.xml" fs.copy "C:\websites\historictours_com\trusted-tours\xml\incoming.xml", "C:\websites\historictours_com\trusted-tours\xml\trustedtours.xml" fs.delete "C:\websites\historictours_com\trusted-tours\xml\incoming.xml" End If 'then rename incoming.xml -> trustedtours.xml ' we will end up with files: 'trustedtours.xml '20080608.xml '20080605.xml '20080601.xml set fname=nothing set fs=nothing %>