istediğim şu kelime sayısı 50 ise 50 den sonraki boşluktan sonra bir alt satırdan dev

<%

Veri = "Ankara mahallesi kamil sok demirci apartmanı no:40 yeşilköy"
VeriSayisi = Len(Veri) ' Veri değişkenindeki karakter sayısını VeriSayisi değişkenine yazdır
If VeriSayisi>40 Then ' Eğer VeriSayisi değişkenindeki sayı 10 dan büyükse

ayirac = Split(Veri, " ")
i=0
for each bosluk in ayirac
%>
<a href="<%=ayirac(i)%>"><br><%=ayirac(i)%></a>
<%
i = i+1
next
%>


<%

Response.Write "40′dan fazla" ' Ekrana 10dan fazla yazdır
Else ' Eğer değilse yani VeriSayisi değişkenindeki sayı 10 a eşit ve ya 10 dan küçükse
Response.Write "40′dan az" ' Ekrana 10 dan az yazdır
End If ' Şartı sonlandır

%>

istediğim şu kelime sayısı 50 ise 50 den sonraki boşluktan sonra bir alt satırdan devam etsin