The proposition of the dead fish !! Simple writing!
<% Function Test (MAX, X, STR1) IF X> 0 THEN for i = 1 To Max if INSTR (STR1, "," & I & I & I & I ",") = 0 Test Max, X-1, STR1 & I & I & I, "END If Next Else Response.write (str1 & ") endiff 'response.write (str1 &") end functionmax = 3str1 = "," TEST MAX, MAX, STR1%>