Jose, I updated your attrib UDF's. Also renamed the one from Rear to Read (I assumed that was a typo.)

Code:
Function WriteXMLattrib($xml, $Path, $Attr, $Value)

	Dim $SelectionTag,$AttrTag,$,$eu

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrTag = $SelectionTag.item(0)

	If @Serror = "Member not found."

		$= WriteXmlValue($xml, $path, "")

		$SelectionTag = $xml.getElementsByTagName($Path)

		$AttrTag = $SelectionTag.item(0)

	EndIf

	$eu = $AttrTag.SetAttribute($Attr,$Value)

EndFunction





Function ReadXMLattrib($xml, $Path, $Attr)

	Dim $SelectionTag,$AttrName

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrName = $SelectionTag.item(0)

	If @Serror = "Member not found."

		$ReadXMLattrib = ""

		Exit @Error

	Else

		$ReadXMLattrib =$AttrName.getAttribute($Attr)

	EndIf

EndFunction


Edited by jtokach (2005-03-17 06:59 PM)
_________________________
-Jim

...the sort of general malaise that only the genius possess and the insane lament.