<%
function korta(myString,myLenght)
If not Len(myString) >= myLenght Then
Response.write myString
else
antal = myLenght
keyWords = split(myString," ")
longString = 0
For Each Word in keyWords
longWord = Len(word)
longString = cint(longString + longWord)
if longString >= antal then
Response.Write Word & "..."
Exit For
else
Response.Write Word & " "
end if
Next
End if
End function
variabel = "här är en jätte lång text som ska kortas av efter 20 bokstäver bla bla testar bla bla test blättan blää..."
' Eller variabel = recset("massatext")
Response.write korta(variabel,20)
%>
