Læse thumbnail fra images.live.com, kan ikke få det til at spille
Jeg kan ikke få den til at læse en fil fra live search. Kan i sige hvor det går galt?, og om det overhovedet er muligt?file = "http://t4.images.live.com/images/thumbnail.aspx?q=1217803133947&id=14ed288656bb6737e6a26d2f2acfbc8a"
Const adTypeBinary = 0
Set uAgent = Request.ServerVariables("HTTP_USER_AGENT")
if (inStr(uAgent, "IE")) Then
' Explorer
Response.ContentType = "Image/Jpeg"
Response.AddHeader "Content-Disposition", "atachment; filename="& file
Else
' NetScape
Response.ContentType = "Image/Jpeg"
Response.AddHeader "Content-Disposition", "attachment; filename="& chr(34) & file & chr(34)
End if
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile server.mappath(file)
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush
