If you need to output to the screen or print a long text string that has no spaces, the text string will not wrap to the preset dimensions of a table or to the browser window frame.
This simple function will wrap the text string based on any setting you provide:
<%Function WordWrap(OrigString)StrLength = Len(OrigString)intPosition = 1StrWrapNumber = 80StrLoop = StrLength StrWrapNumberIf StrLoop > 0 thenFor LoopStep = 0 to StrLoop WrapString = Mid(OrigString, intPosition, StrWrapNumber) Response.Write WrapString Response.Write "
" intPosition = intPosition + StrWrapNumberNextElse Response.Write OrigStringEnd ifEnd Function%>You can change the length of the block in the line
StrWrapNumber = 80You can use this function as an include page and call it like so:
<%dim f_ OverallGoalf_OverallGoal = Result1("OverallGoal")response.write WordWrap(f_OverallGoal)%>Note: This example applies to re-displaying from a database query; forre-displaying a form before submittal just use Request.Form rather thanResult1, etc.
