Dim DiyNode:Set DiyNode=FieldXML.DocumentElement.selectnodes("fielditem[fieldtype!=0]")

If diynode.length>0 Then

         Set FieldDictionary=KS.InitialObject("Scripting.Dictionary")

        For Each FNode In DiyNode

          FieldDictionary.add lcase(FNode.SelectSingleNode("@fieldname").text),RS(FNode.SelectSingleNode("@fieldname").text)

           If FNode.SelectSingleNode("showunit").text="1" Then

             FieldDictionary.add lcase(FNode.SelectSingleNode("@fieldname").text) &"_unit",RS(FNode.SelectSingleNode("@fieldname").text&"_Unit")

           End If

          Next

  End If

End If

If IsNULL(PageTitle) Then PageTitle=""