Antal forekomster af tekststreng i tekststreng

Her er et forslag:
Dim n, txt, s, antal
  txt = "qweordwerordffforddsds"
  s = "ord"
  n = InStr(txt, s)
  While n > 0
    antal = antal + 1
    n = InStr(n + 1, txt, s)
  Wend

Den variable antal indeholder antalforekomster ar strengen "ord" i teksten gem i den variable txt.

Her er mit forslag
<% 
str = "jeg kan godt lide ost, ost, ost! (og også ostestrenge og koste for de indeholder også ost)"
tabel = split(str,"ost")

response.write ubound(tabel)
%>

Her er det, men skrevet som en funktion:

function antal(txt,s)
  dim n,tmp
  n=Instr(txt,s)
  while n>0
    tmp=tmp+1
    n=Instr(n+1,txt,s)
  wend
  antal=tmp
end function

Funktione var klar til umiddelbar implementering i mit script - så den nupper jeg :-) Thanx nmh!

Selv tak, det var så lidt. :o)