Check: Hvor mange gange en værdi forekommer i en streng

Hej

Hvordan checker man hvor mange gange en værdi (f.eks. "03-17-2003") forekommer i en streng bestående af datoer, som er listet på følgende måde: "02-17-2003, 03-17-2003, 03-17-2003, 04-17-2003".

Hvis du ved det, kan du så ikke lige udbygge min funktion, som hedder "shareRes"?

___________________________________________


<%

    response.write "<p>Offentliggørelses-dato:<br>"
    response.write "<select name='datoPublikation' style='font-size: 10pt; font-family: Trebuchet MS'>"

    Set myConn=Server.CreateObject("ADODB.Connection")
    myConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="+server.Mappath("/db/selvet.mdb"))
   
    strSQL = "SELECT datopublish FROM search WHERE datopublish >= #"  & Year(date) & "-" & month(date) & "-" & Day(date) &  "# AND datopublish < #" & Year(dateadd("yyyy",1,date)) & "-" & month(dateadd("yyyy",1,date)) &  "-" & Day(dateadd("yyyy",1,date)) & "# order by datopublish"

    set rs = myConn.execute(strSQL)
   
    do while not rs.EOF
          if isDate(rs("datopublish")) then
              myDates = myDates & rs("datopublish") & ", "
        End If
    rs.MoveNext
    Loop
       
    if Session("henvisningStatus") = "opdatere" then
        myDates = Replace(Session("henvisningDatoPublikation") & ", ", "")
    end if
       
    if right(myDates, 2) = ", " then
        myDates = left(myDates,len(myDates)-2)
    end if
   
    myDateArr = Split(myDates,",")

    dato = date ()
    datoSlut = DateAdd("yyyy",1,date)
    i = 0
    do while dato <= datoSlut
        if shareRes() and CDate(myDateArr(i)) <> CDate(dato) then
              Response.Write "<option value=""" & dato & """>" & dato & "</option>"
          else
            i = i + 1
            if i > ubound(myDateArr) then i = ubound(myDateArr)
          end if
        dato = dateAdd("d",1,dato)
    loop

    response.write "</select><br>"
    response.write "<font size='1' color='#808080' face='VERDANA, ARIAL'>" & Session("henvisningVisODBesked") & "</font>"

    function shareRes()

        if ..... myDateArr(i) forekommer mindre end 2 gange i myDateArr .... then
            shareRes = true
        else
            shareRes = false
        end if

    end function

%>