tæl antal tegn i tekststreng.

Måske sådan

j=0
for i = 1 to len(streng)
If mid (streng, i, 1) = \",\" then
j=j+1
next

response.write (j)

<%
    Function MatchCount(strString, strSearch)
                If Instr(strString, strSearch) = 0 Then MatchCount = 0: Exit Function
        intIndex = 1

        Do
            intSubIndex = Instr(intIndex, strString, strSearch)
            If intSubIndex = 0 Then Exit Do

            intMatch = intMatch + 1
            intIndex = intSubIndex + 1
        Loop

        MatchCount = intMatch
    End Function
%>

Response.Write MatchCount(\",3,7,9,12,15,\",\",\")

output: 6

Det er den hurtigste måde. Hurtigere end For..Next måden.

Jeg er 100% sikker på at følgende er hurtigst:

MatchCount = UBound(Split(strString, strSearch))