ok. Here is my code.

Dim xmlHttp
    Set xmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
    Call xmlHttp.open("GET", "http://www.google.co.in/logos/summer2004_weightlifting.gif")
    Call xmlHttp.send()

    Dim stream
    Set stream = Server.CreateObject("ADODB.Stream")
    stream.Type = adTypeBinary
    Call stream.Open()
    Call stream.Write(xmlHttp.responseBody)
    Call stream.SaveToFile(Server.MapPath("..") & "\uploads\google_logo.gif", adSaveCreateOverWrite)
    Call stream.Close()
    Set stream = Nothing

    Set xmlHttp = Nothing

It gives error at this line.

stream.Type = adTypeBinary

The error is:

ADODB.Stream error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/testcode/test3.asp, line 17

Like I said, you need to reference the ado constants.

If you haven't got them handy, just at this to the top of your file:

HTH,

Chris

Hello Chris,

This works. Thanks a lot.

Thanks both of you
I got what i want.

~Thanks again