quote:

ORIGINAL: treetopsranch

I just did a test using FF (using 'Save as')and it saved all of the pictures so what browser were you using?

function SaveExternalImage(fromUrl, ToPath, ToName)
     on error resume next

     if ToName="" then
          ' ----- if you want the original filename
          ToFile=right(fromUrl,len(fromUrl)-instrrev(fromUrl,"/"))
     else 
          '----- if you use your own ToName use original extension
          FileExt=right(fromUrl,len(fromUrl)-instrrev(fromUrl,".")+1)
          ToFile=ToName&FileExt
     end if


     Set oImageRequest = Server.CreateObject("Msxml2.SERVERXMLHTTP")
     oImageRequest.Open "GET", fromUrl , false
     oImageRequest.send 
     If  Err.Number = 0 then 
          Set adoStream = Server.CreateObject("ADODB.Stream")
          adoStream.Mode          = 3 ' read write
          adoStream.Type          = 1 ' adTypeBinary
          adoStream.Open()
          adoStream.write oImageRequest.responseBody  
          adostream.SaveToFile ToPath&ToFile,2 
          adostream.Flush
           SaveExternalImage=ToFile 
     else
          SaveExternalImage=""
     end if
end function 

 
 
imgUrl="http://www.google.com/images/nav_logo4.png"
cachedir="c:\webroot\images\upload\cache\"
name="myfilename"  'dont use any extension it comes from the original file

newpicture= SaveExternalImage(imgUrl, cachedir, name) 

if newpicture<>"" then 
     response.write "<img src='/images/upload/cache/"&newpicture&"' >"
else
     response.write "error or no picture found"
end if

<img src='/images/upload/cache/myfilename.png'>