<%  
Sub UzunCumle(strVeri,karakterMiktari)  

karakter_uzunlugu = karakterMiktari

kelimeler = Split(strVeri)  

For i = 0 To Ubound(kelimeler)  
     If Len(kelimeler(i)) > karakter_uzunlugu Then  

               kac_parca = Len(Kelimeler(i)) / karakter_uzunlugu  

          For j = 1 To CInt(kac_parca)  
                 
               If Len(kelimeler(i)) > karakter_uzunlugu Then  

            
                    strKelimeParcalari = Mid(kelimeler(i),1,karakter_uzunlugu)  

                    fark = Len(kelimeler(i)) - karakter_uzunlugu  
                          kelimeler(i) = Right(kelimeler(i),CInt(fark))   
                              Response.Write strKelimeParcalari & " "   
               End If  
          Next  
          Response.Write kelimeler(i)&" "   
     Else  

          Response.Write (kelimeler(i))&" "   

     End If  
Next  

End Sub  

cumle = "şimdi bu bir kadirdoganmaxiaspkarakterbolmeversionbirnokt  
aikidegisikasdljasdlkjasldkjaslkjasdlkajslkdajsd  
lkasjdlkasjdlkasjdlkaoıuhaklhfkajhfkjashfkjashfk  
jahskjdhaskjdhakjhdkaliklazimbunasonrotusden  
emetamikikatiolduğundavetastigindadaaynisonu  
cudonduruyor olsa sonuç olarak ne dönecek"   

UzunCume(cumle)  
%>