Troncare il testo senza troncare le parole

[wallrider]

prova così

<%
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, " ")-1) & "..."  
    End If
End If
Response.Write sText & "
" & sResult
%>