bir foksiyon var arkadaşlar

metin içerisinde önceden belirlenen kelimenin kaç kere kullanıldığını sayıyor

Function kelimesay(metin,kelime)

kelimesay=0
a=1

Do While Not a=0
a=instr(metin,kelime)

If a>0 Then
kelimesay=kelimesay+1
metin=Right(metin,Len(metin)-a)
End If
Loop

End Function

response.write kelimesay(metin,aranacak)

sorunum veritabanındaki yorumlar bölümündeki alan text olunca "metin=Right(metin,Len(metin)-a) " bu alanda sorun veriyor varchar yapınca sorun vermiyor fakat varchar da benim işime gelmiyor 600 1000 karakterli en az yorumlarım olacak o yüzden sebep ne olabilir

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 22:57:28 -->-> Daha önceki mesaj 22:23:04 --

sorunu halletim arkadaşlar bilmeyenlerin işine yarar belki
varchar da boşluk yada satır olayı yok o yüzden yukarıdaki kod satırlık metinlerde (text,long text medium text gibi )uyarı veriyor metni replace ile boşlukları silerek çalışır duruma geliyor.

kolay gelsin
response.write kelimesay(replace(metin," ",""),aranacak)

saygılar