Write a string component function and save the result in an array

<% DIM ID_ARRAY (20) DIM TOTAL_ID TOTAL_ID = 0 SUB Interceptstring (TXT, STR) TXT = TRIM (TXT) X = LEN (TXT) Y = 0 Tempstr = ""

IF x> = 1 THEN for II = 1 TO X if MID (TXT, II, 1) = strnstr y = y 1 tempstr = "" Else Tempstr = Tempstr MID (TXT, II, 1) End if next end if id_Array (y) = Tempstr total_id = y end sub%>