% 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 = "
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("
| Clients Sizing Charts Career Opportuntities |
| Free How to Videos Testimonials Downloadable Order Form |

| 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. |



" & message & "
") footer() response.end end sub %> <% call header() %>