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