Miscellany

<!-- #include file="./include/dwMarkupParser.asp"-->
<%
	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--<br />"
	Response.Write Frame.ToString(DV_BROWSER)
	SetXMLParsing()
	Response.Write "<br />XML Parsing--<br />"
	Response.Write Frame.ToString(DV_BROWSER)
	Frame.SaveToFile "Test.XML"
%>