Add SAX to our ASP app (2)
[Author: hydnoahark Add Time: 2001-7-25 20:10:21]
StrqName As String) Strxml = Strxml & "<& strlocalname &" End Sub
Private sub ivbsaxcontenthandler_characters (Text As String) Text = Replace (Text, VBLF, VBCRLF) STRXML = STRXML & TEX SUB
Private property set IvbsaxContentHandler_Documentlocator (byval rhs as msxml2.ivbsaxlocator)
End Property
Private sub ivbsaxcontenthandler_enddocument ()
End Sub
Private sub ivbsaxcontenthandler_endprefixmapping (StrPrefix As String)
End Sub
Private sub ivbsaxcontenthandler_ignorablewhitespace (Strchars as string)
End Sub
Private sub ivbsaxcontenthandler_processinginstruction (Target As String, Data As String) Strxml = STRXML & "
End Sub
Private sub ivbsaxcontenthandler_skippedentity (Strname As String)
End Sub
Private sub ivbsaxcontenthandler_startdocument ()
End Sub
Private sub ivbsaxcontenthandler_startprefixmapping (Struri As String, Struri As String)
End Sub
Class name: ErrorhandlerImpl code: Option Explicit
Implements Ivbsaxerrorhandler
Private sub ivbsaxerrorhandler_fatalerror (Byval LCTR AS IVBSAXLOCATOR, MSG As String, ByVal
Errcode As Long) Strxml = Strxml & "*** Error ***" & MSG End Sub
Private sub ivbsaxerrorhandler_ERROR (Byval LCTR As Ivbsaxlocator, MSG As String, Byval Errcode As
Long) End Sub
Private sub ivbsaxerrorhandler_ignorableWarning (byval Olocator as msxml2.ivbsaxlocator,
STRERRORMESSAGE AS STRING, BYVAL NERRORCODE AS Long
End Sub
OK, let us compile this DLL, it should be no problem. Let us look at the results of the run in the ASP: XML file:
