Best Buy Uniforms About us

<% dbname = "productdb.mdb" dbbase = "/db/" dbpath = Server.MapPath(dbbase & dbname) 'dbdriver = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" 'dbdriver = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" 'dbdriver = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=" 'dbdriver = "Driver={SQL Server};Server=MU01;Database=productdbSQL;Uid=sa;Pwd=welcome;" dbdriver = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; PORT=3306; DATABASE=bestbuyuniforms; USER=steveb123; PASSWORD=bbu052$; OPTION=0;" 'create and open a connection to the database Dim db Set db = Server.CreateObject("ADODB.Connection") On Error Resume Next db.Open dbdriver & dbpath 'error handling here If Err Then dbopen = false else dbopen = true End If On Error Goto 0 %> <% '///////////////////////////// '/// /// '/// CONFIG VALUES /// '/// /// '///////////////////////////// 'pid is the current top level category (parent id) - used by the menu() sub dim pid pid = 99 'default bogus value dim imgexists imgexists = true 'point to the search page dim searchform searchform = "

" 'shopping cart form actions processingpage = "http://www.bestbuyuniforms.com/processorder.asp" cart32page = "https://www.cart32hostingred.com/cgi-bin/cart32.exe/052-AddItem?" cart32cart = "https://www.cart32hostingred.com/cgi-bin/cart32.exe/052-itemlist" 'base URL for all links baseurl = "http://www.bestbuyuniforms.com/" %> <% '////////////////////////////////// '// // '// Quick Config // '// // '////////////////////////////////// ' MAIN TITLE - Enter the title you wish to appear on all pages without a specified category or item number. Dim settitle settitle = "Work Wear Chef Uniforms Hotel Apparel Nursing Scrubs Restaurant Apron" '// END QUICK CONFIG sub infomenu() 'creates and displays the info menu (800#, search box, etc) at the toop of the page %>

Best Buy Uniforms Starfield Secure Site

<%=searchform%>search

1.800.345.1924 | testimonials | free catalog | shopping cart | <% end sub sub topmenu() 'creates and displays the top menu (links to static pages - about us, contact, etc) %> <% end sub sub menu() 'grabs the data from the BBU database and generates the menu items 'Initialise the strSQL variable with an SQL statement to query the database sql = "SELECT CategoryName, CategoryID FROM tblCategories WHERE ParentID = 0;" Set menuitems = db.Execute(sql) if menuitems.EOF then 'this is a pretty serious error that should never occur response.write("ERROR: Unable to load menu.") 'Set myMail=CreateObject("CDO.Message") 'myMail.Subject="DATABASE ERROR - unable to load menu" 'myMail.From="errors@bestbuyuniforms.com" 'myMail.To="capone@novaurora.com" 'myMail.TextBody="DATABASE ERROR - 0 menu items returned from the Best Buy Uniforms database." 'myMail.Send Exit Sub end if response.write("

" & catname & "
" & catname & "

") end sub sub sidemenu() 'creates and displays the side menu %> <% end sub sub promotion() %>

Clients
Sizing Charts
Career Opportuntities

Free How to Videos

Testimonials

Downloadable Order Form

dickies aloha medical scrubs dickies everyday scrubs dickies medical uniforms dickies sport scrubs dickies nursing uniforms

Our prices are as much as 50% off competitors prices for some of the same exact uniforms take a look for youself!

We just added a large variety of mens and womens sweaters for the holiday christmas season be sure to check back for more holiday deals! Take advantage of our wholesale prices on chef uniforms, nursing uniforms, formal wear, work uniforms, and other career uniforms. We offer hundreds of products (new items added frequently) including an affordable and great selection of chef coats, chef hats, chef pants, chef uniforms and chef accessories in the food service hospitality industry. We also offer a wide variety of formal wear, dress shirts, dress pants, vests, tuxedo shirts, suits, skirts, ties and blazers. If you're in the medical or nursing field we have you covered too with great deals on dickies medical scrubs, landau nursing uniforms, economy nursing uniform scrubs, lab coats, smocks, tunics, warm up jackets and more. We also offer uniforms for spa resorts hotels (maid housekeeping) and security uniforms. We have amazing deals on dickies work shirts, work pants, coveralls, work uniforms, and other industrial safety work wear including hi visibility and safety work uniforms. We offer the best price on bib aprons, bar aprons, waist aprons, restaurant and chef aprons. If you are looking for linens, napkins, and banquet tablecloths we have you covered on those as well with quality restaurant tablecloths, napkins and banquet cloths that you can afford. Best Buy Uniforms offers our customers the best selection in embroidered and logo apparel including polo shirts, golf shirts, womens shirts, jackets, hats and more!

Best of all you can place your order securely, quickly and easily right on our website where most orders are processed and shipped out within 24 hours if they are in stock.

Dickies Work Shirts - Medical Scrubs - Work Uniforms - Chef Uniforms

International Orders

Partners

Nursing Resources

Culinary Resources

Chef & Cooking Articles

Nursing and Medical Articles

Police and Security Articles

Business & Work Uniform Articles

<% end sub sub maketitle() pageid = request.servervariables("script_name") pageid = replace(pageid, "/", "") pageid = replace(pageid, ".asp", "") if pageid = "about" then response.write "Best Buy Uniforms About us" Session("TempTitle") = "Best Buy Uniforms About us" elseif pageid = "contact" then response.write "Best Buy Uniforms Contact us" Session("TempTitle") = "Best Buy Uniforms Contact us" elseif pageid = "catalog" then response.write "Best Buy Uniforms Free Catalog" Session("TempTitle") = "Best Buy Uniforms Free Catalog" elseif pageid = "catalog_request" then response.write "Best Buy Uniforms Catalog Request Form" Session("TempTitle") = "Best Buy Uniforms Catalog Request Form" elseif pageid = "clients" then response.write "Best Buy Uniforms Clients List" Session("TempTitle") = "Best Buy Uniforms Clients List" elseif pageid = "sizing" then response.write "Best Buy Uniforms Sizing Charts" Session("TempTitle") = "Best Buy Uniforms Sizing Charts" elseif pageid = "testimonials" then response.write "Best Buy Uniforms Testimonials" Session("TempTitle") = "Best Buy Uniforms Testimonials" elseif pageid = "extended_catalog" then response.write "Best Buy Uniforms Extended Catalog" Session("TempTitle") = "Best Buy Uniforms Extended Catalog" elseif pageid = "faqs" then response.write "Best Buy Uniforms Frequently Asked Questions" Session("TempTitle") = "Best Buy Uniforms Frequently Asked Questions" elseif pageid = "careers" then response.write "Best Buy Uniforms Career Opportunities" Session("TempTitle") = "Best Buy Uniforms Career Opportunities" elseif pageid = "wsjournal" then response.write "Best Buy Uniforms In the Wall Street Journal" Session("TempTitle") = "Best Buy Uniforms In the Wall Street Journal" elseif pageid = "pghtimes" then response.write "Best Buy Uniforms In the Pittsburgh Business Times" Session("TempTitle") = "Best Buy Uniforms In the Pittsburgh Business Times" elseif pageid = "beverage_service_alcohol_awareness" then response.write "Beverage Service and Alcohol Awareness Training DVD" Session("TempTitle") = "Beverage Service and Alcohol Awareness DVD" elseif pageid = "dishwashing" then response.write "Bussing and Dishwashing Training DVD" Session("TempTitle") = "Bussing and Dishwashing Training DVD" elseif pageid = "enhanced_selling" then response.write "Enhanced Selling Training DVD" Session("TempTitle") = "Enhanced Selling Training DVD" elseif pageid = "food_prep" then response.write "Food Preparation and Kitchen Operations Training DVD" Session("TempTitle") = "Food Preparation and Kitchen Operations Training DVD" elseif pageid = "food_safety" then response.write "Food Safety and Sanitation Training DVD" Session("TempTitle") = "Food Safety and Sanitation Training DVD" elseif pageid = "hosting_cashiering" then response.write "Hosting and Cashiering Training DVD" Session("TempTitle") = "Hosting and Cashiering Training DVD" elseif pageid = "house" then response.write "Housekeeping and Laundry Training DVD" Session("TempTitle") = "Housekeeping and Laundry Training DVD" elseif pageid = "new_employee_orientation" then response.write "New Employee Orientation Training DVD" Session("TempTitle") = "New Employee Orientation Training DVD" elseif pageid = "professional_table_service" then response.write "Professional Table Services Training DVD" Session("TempTitle") = "Professional Table Services Training DVD" elseif pageid = "quality_guest_service" then response.write "Quality Guest Service Training DVD" Session("TempTitle") = "Quality Guest Service Training DVD" elseif pageid = "workplace_safety_security" then response.write "Workplace Safety and Security Training DVD" Session("TempTitle") = "Workplace Safety and Security Training DVD" end if If pageid <> "view" then If request.querystring("cid") <> "" then 'Initialise the strSQL variable with an SQL statement to query the database sql = "SELECT * FROM tblCategories;" 'response.write db.connectionstring set menuitems = db.Execute(sql) Do While not menuitems.EOF catid = menuitems("CategoryID") catname = menuItems("CategoryName") if Cstr(catid) = request.querystring("cid") then if menuitems("ParentID") <> "0" then catname = Replace(catname, "", "") catname = Replace(catname, "", "") response.write "" & catname & " from Best Buy Uniforms" Session("TempTitle") = "" & catname else response.write "" & catname & " from Best Buy Uniforms" Session("TempTitle") = "" & catname end if end if menuitems.MoveNext Loop ElseIf request.querystring("id") <> "" then 'Initialise the strSQL variable with an SQL statement to query the database sql = "SELECT * FROM tblProducts WHERE ProductID = '" & request.querystring("id") & "';" Set iteminfo = db.Execute(sql) if iteminfo.EOF then errorpage("The product you requested cannot be found (#BADID).") end if itemname = iteminfo("ItemName") itemname = Replace(itemname, "", "") itemname = Replace(itemname, "", "") ' Addition Amanat Ali If pageid = "detail" then response.write "Buy " & itemname & " from Best Buy Uniforms" Session("TempTitle") = "" & itemname Elseif pageid = "pricing" then response.write "Best Buy Uniforms Pricing Table of " & itemname & "" Session("TempTitle") = "Best Buy Uniforms's pricing details of " & itemname Else response.write "Best Buy Uniforms " & itemname & "" Session("TempTitle") = "Best Buy Uniforms offers " & itemname End if Else response.write "" & settitle & "" Session("TempTitle") = settitle End If Else ' New Adition Amanat Ali If request.querystring("id") <> "" then 'Initialise the strSQL variable with an SQL statement to query the database sql = "SELECT * FROM tblProducts WHERE ProductID = '" & request.querystring("id") & "';" Set iteminfo = db.Execute(sql) if iteminfo.EOF then errorpage("The product you requested cannot be found (#BADID).") end if itemname = iteminfo("ItemName") itemname = Replace(itemname, "", "") itemname = Replace(itemname, "", "") response.write "Best Buy Uniforms Large Image - " & itemname & "" Session("TempTitle") = "Best Buy Uniforms Large Image of " & itemname Else response.write "Best Buy Uniforms Large Image" Session("TempTitle") = "Best Buy Uniforms" End if End If Session("TempDesc")="" Dim KeyW Dim DescA Dim MetaTagList Dim iUpper, iLower, iLoop, iSwapPos, varTmp KeyW = Array ("work uniforms", "wholesale","shirts", "pants", "restaurant uniforms", "chef uniform","corporate apparel", "security uniform", "formal vest","clothes", "clothing","embroidery", "wholesale uniforms", "work shirts", "dress pants", "aprons", "scrubs", "linens", "towels", "work pants", "chef coats", "nursing uniform","housekeeping uniform", "polos", "chef wear", "scrubs", "linen", "towel","apron", "maid", "attire", "shoes","knives", "coat", "jacket", "knife", "custom","logo", "hospital", "tunic", "smock", "discount uniforms", "cheap uniforms") DescA= Array("If you work in a hospital or you're in the medical or nursing career field we have you covered too with great deals on cherokee nursing uniforms with a large new variety of nursing scrub prints, dickies medical scrubs, landau nursing uniforms, economy nursing uniform scrubs, lab coats, smocks, tunics, warm up jackets and more.", "If you are looking for discount prices on linens, napkins, and banquet tablecloths we have you covered on those as well with quality restaurant tablecloths, napkins and banquet cloths that you can afford.", "For schools, students and teachers we offer wholesale pricing on dickies school uniforms, shirts, and pants.", "Take a look at our wholesale prices on spa, resort, restaurant and hotel towels. We offer discount pricing on bulk bath towels, bar mops, and hand towels.") DescB=Array("Take advantage of our wholesale prices on chef uniforms, nursing uniforms, formal wear, work uniforms, and other career uniforms.", "We also offer a wide variety of formal wear, dress shirts, dress pants, vests, tuxedo shirts, suits, skirts, ties and blazers.", "We offer the best price on bib aprons, bar aprons, waist aprons, restaurant and chef aprons.", "Best Buy Uniforms offers our customers the best selection in embroidered and company logo apparel including polo shirts, golf shirts, women's shirts, jackets, hats and more!") DescC=Array("We have an affordable and great selection of chef coats, cook shirts, chef hats, chef pants, chef uniforms, chef accessories, and unbeatable prices on dickies chef uniforms in the restaurant food service hospitality industry.", "If you work in the law enforcement or security industry you will want to check out our prices on security uniforms, police shirts, security pants, handcuffs, metal detectors, and security badges.", "We have amazing deals on uniforms for spa resorts hotels as well as maid and housekeeping uniforms.", "We also offer dickies work shirts, work pants, coveralls, work uniforms, and other industrial safety work wear including hi visibility and safety work uniforms.") 'Code for Description Sentence A iUpper = UBound(DescA) iLower = LBound(DescA) Randomize Timer For iLoop = iLower to iUpper iSwapPos = Int(Rnd * (iUpper + 1)) varTmp = DescA(iLoop) DescA(iLoop) = DescA(iSwapPos) DescA(iSwapPos) = varTmp Next Metataglist = Session("TempTitle") & ". " For iLoop = LBound(DescA) to UBound(DescA) MetaTagList = MetaTagList & DescA(iLoop) if iLoop=UBOUND(DescA)-1 then MetaTagList = MetaTagList & " " elseif iLoop=UBOUND(DescA) then MetaTagList = MetaTagList & " " else MetaTagList = MetaTagList & " " end if Next Session("TempDesc")=MetaTagList '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Code for Description Sentence B iUpper = UBound(DescB) iLower = LBound(DescB) Randomize Timer For iLoop = iLower to iUpper iSwapPos = Int(Rnd * (iUpper + 1)) varTmp = DescB(iLoop) DescB(iLoop) = DescB(iSwapPos) DescB(iSwapPos) = varTmp Next Metataglist = "" For iLoop = LBound(DescB) to UBound(DescB) MetaTagList = metataglist & DescB(iLoop) if iLoop=UBOUND(DescB)-1 then MetaTagList = MetaTagList & " " elseif iLoop=UBOUND(DescB) then MetaTagList = MetaTagList & " " else MetaTagList = MetaTagList & " " end if Next Session("TempDesc")=Session("TempDesc") & MetaTagList '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Code for Description Sentence C iUpper = UBound(DescC) iLower = LBound(DescC) Randomize Timer For iLoop = iLower to iUpper iSwapPos = Int(Rnd * (iUpper + 1)) varTmp = DescC(iLoop) DescC(iLoop) = DescC(iSwapPos) DescC(iSwapPos) = varTmp Next Metataglist = "" For iLoop = LBound(DescC) to UBound(DescC) MetaTagList = metataglist & DescC(iLoop) Next Session("TempDesc")=Session("TempDesc") & MetaTagList 'Code for Keywords iUpper = UBound(KeyW) iLower = LBound(KeyW) Randomize Timer For iLoop = iLower to iUpper iSwapPos = Int(Rnd * (iUpper + 1)) varTmp = KeyW(iLoop) KeyW(iLoop) = KeyW(iSwapPos) KeyW(iSwapPos) = varTmp Next Metataglist = Session("TempTitle") & ", " For iLoop = LBound(KeyW) to UBound(KeyW) if iLoop<>UBOUND (KeyW) then MetaTagList = metataglist & KeyW(iLoop) & ", " else MetaTagList = metataglist & KeyW(iLoop) end if Next Session("TempTitle")=Session("TempTitle") end sub sub header() %> <% maketitle() %> ? Best Buy Uniforms offers wholesale, discount prices on <%=Session("TempTitle")%>. Order <%=Session("TempTitle")%> easily and securely online." /> , uniforms, work uniforms, chef uniforms, corporate uniforms, medical uniform, chef uniform, apparel, nursing uniforms, polo shirts, chef wear, dickies scrubs, security uniforms, linens, towels, aprons, maid uniforms, housekeeping uniform, restaurant uniforms, attire, security uniforms, work shirt, chef shoes, hotel uniforms, chef coat, chef jacket, formal wear, hospital uniform, tunics, smocks, sweaters, business uniform, work pants" />

Dickies Nursing Uniforms and Medical Scrubs

Why Best Buy?

When we say we are the one stop shop for all of your work clothing requirements; we really mean it. We offer hundreds of quality products geared towards meeting the expectations of every type of uniform requirement. In addition, we don’t stock our shelves with the same old clothes and then walk away and forget it. We continually stock our shelves with the latest popular styles so that our customers have the best on the market to choose from. The best part of all, at Bestbuyuniforms.com we work hard to ensure affordability. We know that if you pay less for great quality you will make us your one stop shop.

At Bestbuyuniforms.com we offer first class service to all of our customers. We cater to the lone individual, the smallest of businesses, and the major corporate chains as well. Whether you are ordering a couple of our quality uniforms or a couple hundred; your order will be professionally handled with care.

We offer discount prices on <%=Session("TempDesc")%>

Best of all you can place your order securely, quickly and easily right on our website where most orders are processed and shipped out within 24 hours if they are in stock.

Best Buy Uniforms and Promos™

500 East 8th Avenue
Homestead PA, 15120-1904 USA

Telephone
Toll-Free: 1.800.345.1924
Local: 412.461.4600
Fax: 412.461.4016

Email
customer-service
@bestbuyuniforms.com

Showroom Hours
Monday - Friday
8:30am - 5pm

<% end sub sub footer() %>

<% 'close the db connection if dbopen then ' db.Close Set db = Nothing end if end sub function checkfile(file) image = file + ".jpg" fullpath = Server.MapPath("/images/products/" & image) set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(fullpath)=true then checkfile = true else checkfile = false end if set fs=nothing end function sub errorpage(message) 'header() response.write("

error

") response.write("

an error has occured

") response.write("

" & message & "

") footer() response.end end sub %> <% call header() %> Protein and Nutrition Articles

About Best Buy Uniforms

FAQs about Best Buy Uniforms

Best Buy Uniforms Specials

Career Opportunities at Best Buy Uniforms

Best Buy Uniforms - Where Corporate America Shops for The Highest Quality and Lowest Price Uniforms

Protein Articles
Uniforms

See the Specials of the Week at Bodybuilding.com!

Protein Related Articles

-Bodybuilding Supplements

-Try This Muscle Building Solution

-The Whey Protein Facts You Need to Know

-Whey Protein Natures Amazing Musclebuilder

-The Best Supplements for Building Muscle

Optimum 100% Whey Protein, 2 Lbs., Gold Standard Chocolate
Optimum 100% Whey Protein, 2 Lbs., Gold Standard Chocolate

Whey Protein Isolates As The Primary Protein Source!

Optimum 100% Whey Protein, 2 Lbs., Gold Standard Tropical Punch

Optimum 100% Whey Protein, 2 Lbs., Gold Standard Tropical Punch

Whey Protein Isolates As The Primary Protein Source!

Optimum 100% Whey Protein, 2 Lbs., Gold Standard Strawberry

Optimum 100% Whey Protein, 2 Lbs., Gold Standard Strawberry

Whey Protein Isolates As The Primary Protein Source!

Optimum 100% Whey Protein 5 LBS

Optimum 100% Whey Protein, 5 Lbs., Gold Standard Chocolate Mint

Optimum 100% Whey Protein, 5 Lbs., Gold Standard Chocolate Mint

Whey Protein Isolates As The Primary Protein Source!

Optimum 100% Whey Protein, 5 Lbs., Gold Standard Cookies N' Cream

Optimum 100% Whey Protein, 5 Lbs., Gold Standard Cookies N' Cream

Whey Protein Isolates As The Primary Protein Source!

Optimum 100% Whey Protein 10 LBS

Best Buy Uniforms offers the lowest prices and highest quality optimum 100% whey protein, optimum 100 2lbs whey protein, optimum 100 5lbs whey protein, optimum 100 10lbs whey protein, optimum nutrition whey protein, designer whey protein, whey protein isolate, best whey protein, pure whey protein, natural whey protein, organic whey protein, chocolate whey protein, chocolate mint whey protein, cookies n' cream whey protein, tropical punch whey protein, vanilla whey protein, rocky road whey protein, strawberry whey protein, bulk whey protein, whey protein diet, discount whey protein, cheap whey protein, affordable whey protein, low cost whey protein sale.

optimum whey protein | designer whey protein