<%
Set regEx = New RegExp
regEx.Global = True
sourcestring = "14,00,19,53,63,01,63,59,65,62,63,10,18,56,06,64,08,04,16,12,51,64,07,09,14,02,51,63,14,00,09,60,58,65,64,03,60,54,53,51,65,08,11,10,13,58,15,17,53,11,52,05,59,58,11,07,13,58,61,62,57,09,04,05,52,19,07,62,03,00,05,08,55,64,13,51,16,65,11,15,58,08,12,53,11,16,03,04,15,63,62,58,02,57,17,65,64,13,09,02,61,55,04,57,08,57,07,10,60,05,12,64,64,57,17,61,54,06,11,52,11,59,54,14,11,53,01,17,08,65,03,59,63,15,52,09,62,53,53,51,13,62,02,09,19,10,62,13,16,60,14,17,65,19,58,56,06,16,15,08,66,63,12,50,00,51,04,10,64,05,63,17,18,59,16,03,50,58,07,00,15,54,04,59,03,55,08,01,52,11,51,63,61,54,17,55,06,63,19,03,59,65,58,18,53,15,51,02,06,14,13,65,01,53,63,59,64,18,52,51,54,00,52,06,65,61,18,02,17,64,58,63,50,51,51,18,05,55,66,66,62,15,05,08,56,09,12,56,01,04,15,57,04,55,56,56,55,56,19,55,65,04,66,64,06,16,58,50,19,50,50,08,63,11,12,12,60,52,62,08,57,02,15,53,09,01,51,57,56,65,66,62,57,19,03,08,09,19,57,65,05,52,10,15,65,01,11,09,51,66,58,03,62,14,06,11,65,02,11,58,50,14,52,52,63,05,50,17,66,53,03,57,09,15,66,17,53,06,14,59,02,62,51,62,54,59,10,05,11,64,57,04,51,19,62,19,63,17,51,03,59,52,02,65,65,57,15,65,02,50,62,11,10,11,19,17,52,00,61,18,03,16,13,56,04,62,58,07,65,15,04,14,13,11,62,03,09,05,12,00,50,63,08,14,05,54,64,00,16,17,62,62,14,61,65,18,03,13,15,59,61,53,03,07,15,53,08,59,12,01,56,10,17,04,17,02,52,60,01,11,07,57,02,52,09,50,51,52,64,18,10,50,19,60,01,60,12,53,64,00,66,53,11,05,53,54,16,61,08,07,10,19,65,59,04,19,50,05,55,11,50,50,64,06,10,13,05,07,08,52,04,12,57,65,64,51,08,13,56,08,04,10,10,03,18,05,07,17,64,08,09,00,09,56,57,18,08,61,17,52,04,56,01,03,03,60,63,18,10,12,57,12,50,61,10,62,59,15,15,00,09,07,63,15,55,12,08,01,01,07,13,01,15,05,12,16,51,03,65,63,65,16,62,06,04,14,63,04,56,56,07,10,63,62,52,51,64,57,09,08,08,17,18,02,51,64,62,12,60,66,57,17,57,53,13,55,59,56,61,19,07,18,16,64,07,03,13,18,07,56,07,04,63,53,52,09,55,10,05,59,02,02,62,03,11,56,06,59,18,12,65,13,19,10,03,01,19,12,57,13,06,17,08,61,51,57,64,61,60,53,10,16,04,03,04,18,07,05,17,56,61,03,05,55,15,03,61,18,17,12,56,08,02,08,66,12,17,04,15,56,09,15,63,00,19,62,63,01,12,59,65,07,63,10,15"
regEx.Pattern = "\b63\b(.*?)\b62\b(.*?)\b12\b(.*?)\b07\b(.*?)\b15\b"
Set regEx2 = New RegExp
regEx2.Global = True
regEx2.Pattern = ","
Set Matches = regEx.Execute(sourcestring)
  For z = 0 to Matches.Count-1
    results = results & "Matches(" & z & ") = " & chr(34) & Matches(z) & chr(34) & chr(13)
    TotalCommas=0
    For zz = 0 to Matches(z).SubMatches.Count-1
      Set Commas = regEx2.Execute(Matches(z).SubMatches(zz))
      results = results & "Matches(" & z & ").SubMatches(" & zz & ") = " & chr(34) & Matches(z).SubMatches(zz) & chr(34) & "(" & Commas.Count & ")" & chr(13)
      TotalCommas=TotalCommas+Commas.Count
    next
    If TotalCommas/Matches(z).SubMatches.Count = Commas.Count Then
      results = results & "Matches(" & z & ")" & " *** SUCCESS ***" & chr(13)
    End If
    results=Left(results,Len(results)-1) & chr(13)
  next
Response.Write "<pre>" & results
%>