XMLHTTP

url1 = "http://icon.hanmail.net/top/0303/logo2.gif"

Set xh = CreateObject("MSXML2.ServerXMLHTTP")

xh.Open "GET", url1, false

xh.Send()

imgData = xh.ResponseBody

Set  xh = Nothing

Set stm =CreateObject("ADODB.Stream")

stm.open()

stm.type=1

stm.write imgData

stm.SaveToFile Server.MapPath("/") & "\logo.gif", 2

stm.close()

Set  stm = Nothing