<% sql="select code,ename from product where len(code)<=6 order by code" set rs = GetMdb("data/2c.mdb",sql,2,"") %>

---

<% pp=1 while not rs.eof if len(rs("code"))=3 then if pp=1 then Response.Write "

<<" & rs(1) & "" else Response.Write "
<<" & rs(1) & "" end if pp=1 end if if len(rs("code"))=6 then if pp=1 then Response.Write "	>>" & rs(1) & "" pp=2 else Response.Write " , " & rs(1) & "" pp=2 end if end if rs.movenext wend %>

---