<TABLE dir=rtl class=NewsTopTable width=800><TBODY><TR><TD class=NewsContentArea vAlign=top width=780 align=right></TD></TR><TR><TD id=lengthBox align=left></TD></TR><TR id=ctl00_cphBody_trSource><TD style="PADDING-LEFT: 10px" width="100%" align=left></TD></TR><TR class=FeedbackControl><TD style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px"><TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse" dir=rtl cellSpacing=0 cellPadding=0><TBODY><TR><TD style="WIDTH: 100%"></TD></TR></TBODY></TABLE></TD></TR><TR><TD>< language=vb><!--Function GetWordCount(ByVal strInput) Dim strTemp strTemp = Replace(strInput, vbTab, " ") strTemp = Replace(strTemp, vbCr, " ") strTemp = Replace(strTemp, vbLf, " ") strTemp = Trim(strTemp) Do While InStr(1, strTemp, " ", 1) <> 0 strTemp = Replace(strTemp, " ", " ") Loop GetWordCount = UBound(Split(strTemp, " ", -1, 1)) + 1End Function--></>< language=><!--function onSelectWcc(obj,target,pMax) { var mC = obj.value.length; mC = mC - window..selection.createRange()..length; var mR = pMax-mC; .getElementById(target).innerHTML = ' C: '+mC+' || R: '+mR+''}function Wcc(obj,target,pMax) { var mW = GetWordCount(obj.value); var mC = obj.value.length; var mR = pMax-mC; .getElementById(target).innerHTML = 'W: '+mW+' || C: '+mC+' || R: '+mR+''}--></></TD></TR></TBODY></TABLE>