Opdeling af streng

jf. www.eksperten.dk/spm/35391

Jeg har en lidt modificeret udgave af scriptet, men det fungerer ikke efter hensigten.

Jeg har f.eks. en streng på 1268 karakterer (strBeskrivelse, som jeg forsøger at køre gennem møllen.

Da den her forsøger at lægge hvert bogstav ned i arrayet enkeltvist, er 150 jo for lille en størrelse. Det er meningen, at den skal splitte strengen på de 1268 ned i bidder af 200, og udskrive dem på skærmen (dvs. 7 linier).

Hvad er det mon jeg overser?

----------------------
Dim Resultat()
ReDim Resultat(150)
Length = len(strBeskrivelse)
Counter = 1
oldcount = 1
Runs = 0

For I = 1 to length
    OldCount = length

    For A = 1 to 200
        If Not Counter > length then counter = counter + 1
next

Resultat(Runs) = Mid (strBeskrivelse,OldCount,Counter)
Runs = Runs + 1
Next           

For H = 0 to Runs
    Response.Write(Resultat(H)) & \"<br>\"
Next
-----------------------