Code: Select all
Set ctrl = server.createobject("GflAx193.GflAx")
sPath = Server.MapPath("/grafik/")
sPath = sPath & "\sverige.gif"
ctrl.EnableLZW = true
ctrl.LoadBitMap sPath
ctrl.DrawPoint 15,15,7,RGB(0,0,0)
response.contenttype = "image/gif"
response.binarywrite ctrl.SendBinary
set ctrl = nothing
So... How does this OLE_COLOR-thing work?