[SerializableAttribute]
public class EPTXmlTextParser : EPTXmlParser

<SerializableAttribute>
Public Class EPTXmlTextParser
	Inherits EPTXmlParser

try
{
    //Load the draft content of the document, this requires READ permission for the caller.
   CSDocumentInformation docInfo = 
           new CSDocumentInformation(CS_ConnectionID, 
                                     CS_UserSessionID, 
                                     3769, 
                                     CSDocumentInformation.ContentToLoad.Draft);
   EPTXmlTextParser ept = new EPTXmlTextParser(docInfo.Content);
   //Enumerate each one of the fields using a foreach loop
   foreach (string s in ept)
   {
      Response.Write ("Field: " + s + "\t" + ept[s] + "<br />");
   }
}
catch(Exception ex)
{
   Response.Write ("<b>Error reading document: " + ex.Message + "</b>");
}

Try
   'Load the draft content of the document, this requires READ permission for the caller.
   Dim docInfo As New CSDocumentInformation(CS_ConnectionID, _
                                            CS_UserSessionID, _
                                            3769, _
                                            CSDocumentInformation.ContentToLoad.Draft)
   Dim ept As New EPTXmlTextParser(docInfo.Content)
   'Enumerate each one of the fields using a For Each loop
   For Each (s As String In ept)
      Response.Write ("Field: " & s & vbTab & ept(s) & "<br />")
   Next
Catch ex As Exception
   Response.Write ("<b>Error reading document: " & ex.Message & "</b>")
End Try

try
{
   //Load the approved content of the document, this requires BROWSE permission for the caller.
   EPTXmlTextParser ept = CS_GetAnyEPTDocument(3769);
   foreach (string s in ept)
   {
      Response.Write ("Field: " + s + "\t" + ept[s] + "<br />");
   }
}
catch(Exception ex)
{
   Response.Write ("<b>Error reading document: " + ex.Message + "</b>");
}

Try
   'Load the approved content of the document, this requires BROWSE permission for the caller.
   Dim ept As EPTXmlTextParser = CS_GetAnyEPTDocument(3769)
   For Each (s As String In ept)
      Response.Write ("Field: " & s & vbTab & ept(s) & "<br />")
   Next
Catch ex As Exception
   Response.Write ("<b>Error reading document: " & ex.Message & "</b>")
End Try