Bug parsing

spacer: charset reduce [#" " newline]
letter: charset reduce ["ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890=_-" {#}]
 
content: {
 
                       <td>
<%--                            <ftv:DaletLink ID="HyperLink1" runat="server" IdDalet="FTV_Documents_Associes"/>
                            <ftv:DaletLink ID="HyperLink2" runat="server" IdDalet="FTV_Documents_Associes"/>--%>
                            <ftv:DaletTextBox ID="txtDocJoint" IdDalet="Documents_Associes" Width="400px" 
                            Rows="5" TextMode="MultiLine" runat="server" ReadOnly="true" 
                            BackColor="#AACBE0"/>                          
                        </td>
}
 
daletTextBoxes: []
parse load/markup content [
  some [set tag tag! (
    block: parse to-string tag { <>#" "=}
	if not none? find block "Multiline" [
		append daletTextBoxes select block "ID"
    ]
  ) 
  | string! ]
]
 
 
rule:  [
	any [
 
		to {<ftv:DaletTextBox} pos:
		(
			print {to {<ftv:DaletTextBox}}
 
		)
 
		{<ftv:DaletTextBox} pos: to "ID" 		
		to "=" "="		
		to {"} {"} copy ID to {"} {"}
		(print rejoin ["ID=" ID])
		[
			(Multiline: false
				if not none? find daletTextBoxes ID [
					Multiline: true
					print join "Multiline: " ID
				]
				)
 
				[
				  [
				  temp: (print "before />" write clipboard:// temp input)
            [            
              any [[any letter {"} any letter {"}] any spacer]
            ]		
 
					  mark: 
					  (print "before /> 2" write clipboard:// mark input) 																		  
					  "/>" 
 
						(write clipboard:// mark input
							skipsize: 0
							if Multiline [
								insert mark { Visible="false" }
								print {insert Visible="false"}
								skipsize: 17				
							]
							print "after insert" write clipboard:// mark input
						)						
 
						skip skipsize			  
					  |				
						to ">" 	mark: pos:						
						(																				
							if Multiline [
								insert mark { Visible="false"}
								print {insert Visible="false"}
 
							]
						)												
						thru {</ftv:DaletTextBox>}				  							
 
				  ]
 
					mark:
					(						
						if Multiline [							
							insert mark rejoin [newline {<asp:Literal ID="} rejoin ["Literal" replace ID "textBox" ""] {" runat="server"></asp:Literal>}]		
						]
					)
				]
			]
		]
		to end
]
 
Parse content rule