Function wordwrap(str,width,breakString)
	Dim words
	Dim out, temp 
	Dim i,k
	out = ""
	words = Split(str," ")
	For i = 0 To UBound(words)
		If Len(words(i)) >= width Then
			temp = ""
			parola = words(i)
			For k = 1 To Len(parola)
				temp = Left(parola,k)
				If len(temp)>=width Then
					out = out & temp & breakString
					parola = Right(parola,Len(parola) - width)
					k = 1
					temp = ""
				End if
			Next
			out = out & temp & breakString
		Else
			out = out & words(i) & breakString
		End If
	Next
	wordwrap = Trim(out)
End Function

http://www.barattalo.it/

asp function similar to php one, to truncate long words inside a string

ASP word wrap function

function, ASP

ASP