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