<% Function SetRIBParsing() MARKUP_START_TAG = "" '"<" MARKUP_END_TAG = "" '">" MARKUP_END = "" '"/" ATTRIBUTE_NAME_START_PREFIX = "" ATTRIBUTE_NAME_END_PREFIX = "" ATTRIBUTE_NAME_START_POSTFIX = "Begin" ATTRIBUTE_NAME_END_POSTFIX = "End" End Function Function SetXMLParsing() MARKUP_START_TAG = "<" MARKUP_END_TAG = ">" MARKUP_END = "/" ATTRIBUTE_NAME_START_PREFIX = "" ATTRIBUTE_NAME_END_PREFIX = "" ATTRIBUTE_NAME_START_POSTFIX = "" ATTRIBUTE_NAME_END_POSTFIX = "" End Function Set Frame = New cMarkupElement Set World = New cMarkupElement Set Attr = New cMarkupElement Set Simple = New cMarkupElement Frame.Create("Frame") World.Create("World") Attr.Create("Attribute") Simple.Create("Simple") Frame.SetParm CreateParm("", "1") Simple.SetParm CreateParm("X", 100) Simple.SetParm CreateParm("Y", 100) Simple.SetParm CreateParm("Width", 200) Simple.SetParm CreateParm("Height", 200) Simple.SetParm CreateParm("", """ValueOnlyParameter""") Simple.SetParm CreateParm("", "AnotherValueOnlyParameter") World.Variables.FromString "hello=World x=10 y=20 ""HelloWorld""" World.Variables.RawPut "hello", "user" Attr.AppendChild(Simple) World.AppendChild(Attr) World.AppendChild(Attr) Frame.AppendChild(World) SetRIBParsing() Response.Write "RIB Parsing--
" Response.Write Frame.ToString(DV_BROWSER) SetXMLParsing() Response.Write "
XML Parsing--
" Response.Write Frame.ToString(DV_BROWSER) Frame.SaveToFile "Test.XML" %>