Opdel tekst streng

noget i denne retning???

dim textStreng, leng
textStreng = "dette er en lang test, dette er en lang test, dette er en lang test, dette er en lang test"
ordArr = split(textStreng," ")
'så har du hvert ord for sig.

leng = 0
for f=0 to ubound(ordArr)
  leng = leng + len(ordArr(f)&" ")
  'lav break hvis længde overstiger 30
  if leng > 30 then
    Response.write "<br>"
    leng = len(ordArr(f)&" ")
  end if
  Response.write ordArr(f) & " "
next

Se!.. det var lige noget jeg kunne bruge :]
Læg et svar så du kan få dine point :D

Det var så lidt. Jeg er her for at hjælpe....

Ja og BTW! tak for hjælpen ;]

Jeg har nu modificeret den til flg:

tekst = replace(rsq("tekst"),vbCrLf,"<br />")
ordArr = split(tekst," ")    'så har du hvert ord for sig.
page = 1
leng = 0
Response.write "<sider>" & vbCrLf
Response.write "<side" & page & ">"
for f=0 to ubound(ordArr)
  leng = leng + len(ordArr(f)&" ")
  if leng > 550 then      'lav break hvis længde overstiger 550
    Response.write "</side" & page & ">"
    page = page + 1
    Response.write vbCrLf & "<side" & page & ">"
    leng = len(ordArr(f)&" ")
  end if
  Response.write ordArr(f) & " "
next
Response.write "</side" & page & ">"
Response.write "</sider>"

Det giver dog et problem mht.
tekst = replace(rsq("tekst"),vbCrLf,"<br />")

idet den så nogle gange laver fejl fordi den bliver brudt midt i <br />
har du en løsning på det?
håber du stadigvæk gider hjælpe :)

enten:
tekst = replace(rsq("tekst"),vbCrLf,"<br/>")
eller
tekst = replace(rsq("tekst"),vbCrLf,"<br>")