Stream Remote Image

Dim URL As String =
"http://chart.apis.google.com/chart?cht=p3&chd=s:hW&chs=250x100&chl=HelloWorld"

Select Case CInt(Request("id"))
Case 1
URL = "http://chart.apis.google.com/chart?cht=p3&chs=420x180&chd=s:Hellob&chl=OtherRestPlayLocomoteForagingEat"
Case 2
URL = "http://chart.apis.google.com/chart?cht=p&chd=s:Uf9a&chs=350x220&chl=Water%20HoleRocky%20AreaTreesBushes"
Case 3
URL = "http://chart.apis.google.com/chart?cht=bhs&chs=300x200&chd=s:Hell8&chbh=30&chf=bg,s,FFF2CC&chxt=x,y&chxl=0:203040501:OctSepAugJulyJun"
End Select


' Get HTML data
Dim client As WebClient = New WebClient()
Dim b As Byte() = client.DownloadData(URL)


Dim response As System.Web.HttpResponse = System.Web.HttpContext.Current.Response
response.Clear()
response.AddHeader("Content-Type", "binary/octet-stream")
response.Flush()
response.BinaryWrite(b)
response.Flush()
response.End()