<%Dim url
url=request("url")
set xmlhttp=server.createobject("MSXML2.XMLHTTP")
xmlhttp.open "get",url,false
xmlhttp.send()
if err.number<>0 then err.Clear 
if xmlhttp.readystate<>4 Then
	response.redirect url
	response.end
Else
	img=xmlhttp.ResponseBody
	set objAdostream=server.createobject("ADODB.Stream")
	objAdostream.type=1
	objAdostream.Mode=3 
	objAdostream.Open()
	Response.ContentType = "image/*"
	Response.BinaryWrite img
	objAdostream.Close   
    Set objAdostream = Nothing   
End if
%>