<% dim RecCnt,lng, msgbx RecCnt = 7 lng = 0 SQL_query = "select sitecat.*, sitemenu.menuorder, sitemenu.menuname from sitecat LEFT JOIN sitemenu ON sitecat.prodcatmenu=sitemenu.prodcatmenu where sitecat.prodcatstatus=0 order by sitemenu.menuorder, sitecat.prodcatorder" Set RS = session("MyConn").Execute(SQL_query) if RS.eof then Set RS = Nothing RS = "" else RS.MoveFirst end if %>

<%if Isobject(RS) then RS.MoveFirst Menuname = "" Do while not RS.eof if RS("menuname") <> "" and RS("menuname") <> Menuname then%> <%Menuname = RS("menuname") end if%> <%RS.MoveNext if RS("menuname") <> "" and RS("menuname") <> Menuname then%> <%end if Loop end if%> <%=RS("menuname")%> <%=RS("prodcatname")%> Information Memberships Corporate Corner Discount Candles Flowers & Plants Creative Gallery Our Newsletter	Corporate Plant Gifts A corporate gift of a plant can keep your business in the forefront. It is a visual living reminder of your business, availability and your commitment to meeting your customers every need! Here are some very popular choices... Azalea Bonsai Bamboo Fountain American Pride Lucky Bamboo Gardenia Bonsai Redwood Forest with Golf Ball Shogun Juniper Pothos Boots Zen Reflections Gift Baskets By Yonnie Phone: 856-728-7447 Home | About Us | Contact Us | Policies | Shipping | Testimonials | Event Calendar | FAQ | View Cart | <%if Isobject(RS) then RS.MoveFirst%> <%Do while not RS.eof%> <%=RS("prodcatname")%> | <%RS.MoveNext Loop%> <%end if%> Email us!
© 2003 Gift Baskets By Yonnie.  All rights reserved