Conteggio carattere ( versione 2 )

Grazie al seguente script, viene mostrato un altro metodo per conteggiare il numero di occorrenze di un determinato carattere all'interno di una stringa di testo:

<%

dim strFrase

strFrase="Frase con carattere da conteggiare"

dim chrCarattere

chrCarattere = "a"

dim strAppo

strAppo = split(strFrase,chrCarattere)

dim qtCarattere

qtCarattere = ubound(strAppo)

response.write "Carattere trovato "&
qtCarattere&" volte"

%>