Next we go through every metadata type listed for the file and
open each one so that we can return the data to the web page.
For Each theType In theFile.Types
Set theData = theFile.Open(theType)
theText =
Server.HTMLEncode(theData.Text)
Response.Write "Type = " & theType &
"<br>"
Response.Write "Text = " & theText &
"<br><br>"
Next
|