MSXML2.ServerXMLHTTP ve ADODB.Stream kullanarak yapılabilir.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Dim XmlHttp
Dim BinaryStream
Dim Resim
Set XmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
XmlHttp.Open "GET", "http://www.samanalevi.net/images/samanalevi_egaleri.jpg", False
XmlHttp.send
Resim = XmlHttp.ResponseBody
Set XmlHttp = Nothing
Set BinaryStream = Server.CreateObject("ADODB.Stream")
BinaryStream.Type = 1 'Binarydata için 1
BinaryStream.Open
BinaryStream.Write Resim
BinaryStream.SaveToFile Server.MapPath("resim/resim.gif"), 2 '< üstüne yazmak için 2
Set BinaryStream = Nothing
%>
Ekrana yazdırmak içinse;
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Dim XmlHttp
Dim BinaryStream
Dim Resim
Response.ContentType = "image/gif"
Set XmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
XmlHttp.Open "GET", "http://www.samanalevi.net/images/samanalevi_egaleri.jpg", False
XmlHttp.send
Resim = XmlHttp.ResponseBody
Response.BinaryWrite(Resim)
Set XmlHttp = Nothing
%>