Troncare il testo senza troncare le parole

[michele.santoro]

Questo è preso dal sito di byluciani.com e fà quello che vuoi tu:

<%
sText = "Questa è la stringa da troncare"
iMaxChar = 23
sResult = sText
If Len(sResult) > iMaxChar Then  
If InStr(iMaxChar, sResult, " ") > 0 Then    
sResult = Left(sResult, InStr(iMaxChar, sResult, " ")) & "..."  
    End If
End If
Response.Write sText & "
" & sResult
%>