<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "http://www.eksperten.dk/images/eksperten_logo.gif", false
http.Send()
If http.Status = 200 Then
    Set stm = CreateObject("ADODB.Stream")
    stm.Open
    stm.Type = 1 'adTypeBinary
    stm.Write http.ResponseBody
    stm.Position = 0
    stm.SaveToFile "C:\InetPub\WWWRoot\upload\e.gif"
    stm.Close
    Set stm = Nothing
    Response.Write "OK"
Else
    Response.Write "Ooops"
End If
Set http = Nothing
%>