[VBScript]
Set gr = Server.CreateObject("ImageGlue7.Graphic")
theFile = Server.MapPath("images/iptc.jpg")
gr.ReadIPTC = True
gr.SetFile theFile
gr.IPTC.Add("Headline", True).Text = "Oxford University Ball"
gr.IPTC.Add("Caption", True).Text = "What a laugh!"
gr.IPTC.Embed theFile
The code reads the IPTC information from a JPEG file. It then
changes the headline and caption and embeds the changed information
into the original file.
|