<% dim RecCnt,lng, msgbx catid = Request.Querystring("catid") prodid = Request.Querystring("prodid") lng = 0 SQL_query = "select SUMsitecat.*, SUMsitemenu.menuorder, SUMsitemenu.menuname from SUMsitecat LEFT JOIN SUMsitemenu ON SUMsitecat.prodcatmenu=SUMsitemenu.prodcatmenu where SUMsitecat.prodcatstatus=0 order by SUMsitemenu.menuorder, SUMsitecat.prodcatorder" Set RS = session("MyConn").Execute(SQL_query) if RS.eof then Set RS = Nothing RS = "" else RS.MoveFirst end if if catid <> "" then SQL_query = "select * from SUMsitecat where prodcatid=" & catid Set RSCat = session("MyConn").Execute(SQL_query) catHead = RSCat("prodcatname") catfont = RSCat("prodcatfont") catsize = RSCat("prodcatsize") cattext = RSCat("prodcattext") catid = 0 catid = RSCat("prodcatid") RSCat.close SQL_query = "select * from SUMsiteshop where prodcatid=" & catid & " and prodstatus = 0 and prodid=" & prodid & " order by prodorder" Set RSPrd = session("MyConn").Execute(SQL_query) if RSPrd.eof then set RSPrd = nothing RSPrd = "" end if end if function curency(price) prix = CDbl(price)/100 if len(prix) < 2 then prix = prix & ".00" else if instr(1,prix,".") < 1 then prix = prix & ".00" else if instr(1,right(prix,2), ".") > 0 then prix = prix & "0" end if end if end if curency = "$ " & prix end function Session("CurUrl") = Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING") %>

Holiday & Seasonal Flowers & Plants Corporate Corner Professionals Promotional Corporate Specials Gift Basket Shoppe Administrative Professionals Baby Gift Baskets Bears & Plush Birthday Greetings Children & Teens Comfort & Sympathy Discount Candles Get Well Gifts Gifts for Mom Gifts For Her Gifts For Him Gourmet Baskets Her Garden Gifts Special Occasions Father's Day Gifts Easter Baskets & Gifts Wedding & Anniversary Information Membership Corporate Corner Creative Gallery Tell a Friend Gift Reminder Our Newsletter	<%if isobject(RSPrd) then%> <%else%> <%end if%> <%=catHead%> <%=RSPrd("prodname")%> <%=RSPrd("proddescription")%> <%If RSPrd("prodprice") > 0 then%> Price: <%=curency(RSPrd("prodprice"))%> <%End If%> <%if RSPrd("prodoption2") <> "" then Dim opt2opt, optp, optname optp = 1 opt2opt = "" optname = ""%> <%for I = 11 to 29 if RSPrd.fields(I).value = "" then exit for end if prodopt = split(RSPrd(I).value,"-") if prodopt(2) <> "" then if optname <> prodopt(1) then optp = optp + 1 optname = prodopt(1) if optp > 2 then response.write("") end if Opt = Opt + 1%> <%=prodopt(1)%>:  <%if prodopt(3) <> 0 then%> <%=prodopt(2)%>(<%=curency(prodopt(3))%>) <%else%> <%=prodopt(2)%> <%end if%> <%else if prodopt(3) <> 0 then%> <%=prodopt(2)%>(<%=curency(prodopt(3))%>) <%else%> <%=prodopt(2)%> <%end if end if end if next%> <%end if%> <%If RSPrd("prodprice") > 0 or RSPrd("prodoption2") <> "" then %>    <%end if%> There is no information for this Category. Gift Baskets By Yonnie Phone: 856-728-7447 Home | About Us | Contact Us | Policies | Shipping | Testimonials | Event Calendar | FAQ | View Cart | Flowers & Plants | Professionals | Promotional | Corporate Specials | Father's Day Gifts | Easter Baskets & Gifts | Wedding & Anniversary | Administrative Professionals | Baby Gift Baskets | Bears & Plush | Birthday Greetings | Children & Teens | Comfort & Sympathy | Discount Candles | Get Well Gifts | Gifts for Mom | Gifts For Her | Gifts For Him | Gourmet Baskets | Her Garden Gifts | Membership | Corporate Corner | Creative Gallery | Tell a Friend | Gift Reminder | Our Newsletter | Email us!
© 2003 Gift Baskets By Yonnie.  All rights reserved