This property tells you how many IPTC items are available. You
can use the count instead of the default enumerator. For example
the following code...
[VBScript]
Set gr = Server.CreateObject("ImageGlue7.Graphic")
gr.ReadIPTC = True
gr.SetFile "c:\myimg.jpg"
For Each iptc In gr.IPTC
Response.Write "<br>" & iptc.Text &
"<br>"
Next
is functionally equivalent to ....
[VBScript]
Set gr = Server.CreateObject("ImageGlue7.Graphic")
gr.ReadIPTC = True
gr.SetFile "c:\myimg.jpg"
For i = 1 To gr.IPTC.Count
Response.Write "<br>" & gr.IPTC(i).Text &
"<br>"
Next
|