Dele besked

Du bruger left, mid og right funktionerne.

dim i,n, arr
i=1
n=1

while i<=len(str)-125 do
  arr(n) = mid(str,i,i+124)
  n=n+1
  i=i+125
wend

PS: Glem left og right - det er lavet uden brug af disse to funktioner.

Jeg får en fejl..Unexpected 'Next'

/split.asp, line 42

next
^

hov next = wend... og linie 42 = wend i det kode du lige har vist...

'str' indeholder strengen

Const split_len = 3
Dim cnt, aStr

cnt = Int(Len(str)/split_len)
ReDim aStr(cnt) ' tilpas array

For i=0 To cnt
    aStr(i) = Mid(str, i*split_len+1, split_len)
Next


' print resultat
For i=0 To cnt
    Response.Write aStr(i) & "<br>"
Next

Jeg har fået begge eksempler til at virke ksoren smid et svar..så deler i..

ok