<% on error resume next Server.ScriptTimeOut = 60 Session.Timeout=60 page_url = split(Request.ServerVariables("URL"),"/") Welmsg = "" sStrng = trim(Request.Form("sStrng")) curpage = 1 pyes = 0 pagevar = "pages: [" set MyConn = Server.CreateObject("ADODB.Connection") Set RSx = Server.CreateObject("ADODB.Recordset") MyConn.Open "Driver={MySQL};SERVER=localhost;DATABASE=bskwnj62;UID=bskwnj62;PASSWORD=barbtbw5" RSx.CursorType = adOpenStatic RSx.PageSize = 12 sTitle = "" if sStrng <> "" then strngS = split(sStrng, " ") RSx.Open "select * from SUMsiteshop right join SUMsitecat on SUMsiteshop.prodcatid=SUMsitecat.prodcatid where SUMsiteshop.prodname like '%%"&strngS(0)&"%%' and SUMsiteshop.prodstatus = 0 and SUMsiteshop.filename <> '' group by SUMsiteshop.prodname order by SUMsiteshop.prodorder", MyConn RSx.AbsolutePage = cInt(curpage) for i = 1 to RSx.PageCount pagevar = pagevar & "'prodlist.asp?curpage="&i&"&sStrng="&sStrng&"'" if i <> RSx.PageCount then pagevar = pagevar & ", " end if pyes = 1 next RSx.Close sTitle =format_ucase(sStrng) end if if pyes = 0 then pagevar = pagevar & "'prodlist.asp?curpage=1'], selectedpage: 0 " else pagevar = pagevar & "], selectedpage: 0 " end if function format_ucase(tname) do while instr(tname, " ") temp_string = left(tname, instr(tname," " ) -1) ' ucase the first letter format_ucase = format_ucase & ucase(mid(temp_string, 1,1)) ' lcase for the rest of the word format_ucase = format_ucase & lcase(mid(temp_string,2)) & " " tname = right(tname, len(tname) - instr(tname," " )) loop 'send out the rest of the word format_ucase = format_ucase & ucase(mid(tname, 1,1)) format_ucase = format_ucase & mid(tname,2) end function %> Gift Baskets New Jersey NJ Corporate Gifts Parsippany Holiday Gourmet Wine Baskets
Home About Us Ordering Shipping Policies Contact Us
Add to your favorites | Email Us
(0) Total: $0.00
FREE SHIPPING GIFT BASKETS
Gifts Under $50
Gifts $50-$75
Gifts $76-$100
Gifts Over $100
Bakery & Cookie Gifts
Cookie Bouquets
Gift Towers
Gourmet Gift Baskets
Wine & Champagne Gift Baskets
New Baby
Birthday
Congratulations
Get Well
Housewarming
Gifts For Her
Gifts For Him
Sympathy
Thank You
Corporate Gifts

<%=sTitle%>


Acceptance Mark

Home | About Us | Contact Us | Policies | Shipping | Gift Calendar | Site Map

Wine Gift Basket in NJ, New Jersey Gift Basket, Baby Gift Basket, Wine Basket, NJ ,Corporate Gift Baskets, Gourmet Basket, Get Well, Thank You, Sympathy, Fruit Baskets, Business Gifts, Parsippany Gift Basket Company, Corporate Gift Basket NJ, Cookie Bouquet Gift Basket

All Materials Copyright 2004 - 2020 The Basket Works .. Designed by: Hyper Horse: 321-939-3470