<%
cnsURL = "http://www.resimsakla.com/data/media/8/Bebek_.jpg"

Set XmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
XmlHttp.Open "GET", cnsURL, False
XmlHttp.send
Resim = XmlHttp.ResponseBody 'Resim dosya kodları
Set XmlHttp = Nothing

Set BinaryStream = Server.CreateObject("ADODB.Stream")
BinaryStream.Type = 1 'Binarydata içi 1
BinaryStream.Open
BinaryStream.Write Resim

ResimFTPADI = "bebek.jpg" 'resmi kaydetmek için bir adı olmalı

BinaryStream.SaveToFile Server.MapPath("resimklasor/" & ResimFTPADI & ""), 2 '< varsa üstüne yazmak için 2
Set BinaryStream = Nothing

Response.Write("İşlem Tamam")
%>