Speedlayer senin yazdığın işlem sonuç bile vermiyor

<%
Kelime = "Merhaba nasılsın iyimisin"
Islem = Split(Kelime,"a")
Kactane=Ubound(Islem)
Response.Write(Kactane)
'Sonuç = 3 Tane
%>

Yok bunu Function a dönüştürüm Dersen

<%
Function AdetBul(Degisken,Islem)
  If Degisken="" Then Exit Function
  Islem = Split(Degisken,Islem)
  AdetBul = Ubound(Islem)
End Function
Kelime = "Merhaba nalan ne var ne yok nasılsın"
HangiKarakter = "a"
KactaneVarSoyle= AdetBul(Kelime,HangiKarakter)
Response.Write(KactaneVarSoyle)
%>

Allah kolaylık versin .asp de çare tükenmez Gecerli İşlemlerin bittiği yerde function başlar function ların bittiği yerde componentler başlar