update xml file

i am trying to create a senario in my xml doc where there can be many <forpage> entries for each message. the following loop creates incomplete entries

in <forpage> see below.

     //convert list of <forpage> to an array for looping below

     <cfset myArrayList = ListToArray(opt)>

   <cfset arrayInsertAt(xApps.messageList.xmlChildren,1,xmlElemNew(xApps,'message'))>
   <cfset xApps.messageList.message[1].sender = xmlElemNew(xApps,'sender')>
   <cfset xApps.messageList.message[1].sender.xmlText = "#send#">
   <cfset xApps.messageList.message[1].creator = xmlElemNew(xApps,'creator')>
   <cfset xApps.messageList.message[1].creator.xmlText = "#creat#">

//the loop attempts to enter multipe entries for <forpage>. <forpage> is converted from a list to an array

    <cfloop from="1" to="#arraylen(myArrayList)#" index="j">
           <cfset arrayInsertAt(xApps.messageList.message.xmlChildren, j,xmlElemNew(xApps,'forPage'))>
           <cfset xApps.messageList.message[1].forPage = xmlElemNew(xApps,'forPage')>
           <cfset xApps.messageList.message[1].forPage.xmlText= "#myArrayList#">  

     </cfloop>

this code produces the following entry in my xml doc

<messageList>
     <message>
          <sender>jljkjlkjlkj</sender>
          <forPage/><forPage/>
          <creator>lkjlkjljlkjklj</creator>
          <forPage>three</forPage>
     </message>

</messagelist>

any thoughts would be appreciated. thank you for your time