del ved bogstav nr. 10 og først kommende mellemrum

Du kan lave en functiobn i stil med denne


<%
function maxantal(str)
inputStr = str
reDim  arr(0)
str = replace(inputStr,"<br>",vbCrLf)
MaxLength = 10
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, MaxLength)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, " ", MaxLength)
    if splitIndex = 0 then splitIndex = LEN(str)
  end if 
  ReDim Preserve arr(UBOUND(arr) + 1)
  arr(UBOUND(arr)) = LEFT(str, splitIndex)
  str = MID(str, splitIndex + 1)
wend
outStr = ""
for i = LBound(arr) to UBound(arr)
  if Len("" & arr(i)) > 0 then
    outStr = outStr & arr(i) & vbCrLf
  end if
next
outStr = replace (outStr, vbCrLf, "<br>")
maxantal = outStr
end function
%>


Og så klade dem med:

Response.write maxantal(rs("txt"))

Det virker ikke helt som jeg gerne vil have.
hvis ordet er støre end 10 hopper den ned men det skulle være sådanne så at den skal tage hele linien med mellemrum og hvis linien er støre end 10 så skal den dele linien ved det første mellemrum selv om det overskrider 10chr :)

Lukker.