<%dim my2array q_level = cstr("1,2,3,4") my1array= Split(q_level,",", -1, 1) ' u have my1array(0) and my1array(1) nloop=0 do nloop=nloop+1 loop while not (Instr(1,q_level,my1array(nloop-1),1))>(InstrRev(q_level,"," ,-1,1)) %> 0 <%For i=1 to 5 c=false for j=0 to nloop-1 if cint(my1array(j))= i then c=true end if if c then exit for end if next if c then response.write(""&i&"") else response.write(""&i&"") end if next %>