<%
Function neatTrim( strToTrim, desiredLength )
strToTrim = trim( strToTrim )
if len( strToTrim ) < desiredLength then
neatTrim = strToTrim
exit function
else
if inStrRev( strToTrim, " ", desiredLength ) = 0 then
strToTrim = left( strToTrim, desiredLength - 1 ) & "…"
else
strToTrim = left( strToTrim, inStrRev( strToTrim, " ", desiredLength + 1 ) -1 ) & "…" 'no carriage return here
end if
end if
neatTrim = trim( strToTrim )
End Function
strLong = " This string is too long! "
strTrimmed = NeatTrim( strLong, 13 )
response.write( strTrimmed )
%>