[VBScript]
Set gr = Server.CreateObject("ImageGlue7.Graphic")
theFile = Server.MapPath("iptc.tif")
gr.ReadIPTC = True
gr.SetFile theFile
Response.Write gr.IPTC.Item("Headline") & "<br>"
Response.Write gr.IPTC.Item("Caption") & "<br>"
This example writes the Headline and Caption from a TIFF file.
An error will be raised if the IPTC data does not contain a
headline and caption.
|