<%
Str = "ahmet ali ile boluya gitti"
Sp_Str = Split(Str,"")
Karakter = "a"
c = 0
for i = 0 to uBound(Sp_Str)
 If Sp_Str(i)=Karakter Then
  c = c + 1
 End If
Next

Response.Write(Karakter&" kullanım sayısı "&c&" adet." )
%>