Maximálny počet znakov

Ukážka Zapíš max 10 znakov
Script <script language=vbscript><!--
dim P,str
const Pocet=10

Sub TA_onkeydown
P=len(Ta.value)
if P=Pocet then str=Ta.value
End Sub

Sub TA_onkeyup
if P>Pocet-1 then Ta.value=str
End Sub
--></script>
Objekt <TEXTAREA name="textarea" id=TA></TEXTAREA>