<% ' Determine what page we are on Dim strPage : strPage = trim(request.querystring("page")) ' Instantiate the website objects Dim objDocument : Set objDocument = New Document Dim objTemplate : Set objTemplate = New Template Dim objContent : Set objContent = New Content Dim objSideBar : Set objSideBar = New Content ' Java script & style sheet includes objDocument.JavaScript = "" objDocument.CSS = "" ' Functions (java script) to call when the page loads objDocument.onLoad = "runSlideShow();" objTemplate.Navigation = "" objTemplate.Page = strPage ' Determine what page we are on and get and display that content select case strPage case "About" ' Information used by search engines objDocument.Description = "QSS began in May 1995 as a service contractor to local municipalities. Founded by Terry McCall, the organization primarily focused on the management and operation of dining facilities, campus dining services, corporate catering for large organizations and government agencies, and janitorial services." objDocument.KeyWords = "" objDocument.Title = "About Us" ' Content to display objTemplate.Content = objContent.render(strPage,"main") objTemplate.SideBar = objSideBar.render(strPage,"side") case "Payroll" ' Information used by search engines objDocument.Description = "QSS has experience in providing temporary and contract staffing and payrolling services to all types of organizations. We specialize in government agencies, government contractors, and the hospitality industry." objDocument.KeyWords = "" objDocument.Title = "Staffing & Payroll" ' Content to display objTemplate.Content = objContent.render(strPage,"main") objTemplate.SideBar = objSideBar.render(strPage,"side") case "Facilities" ' Information used by search engines objDocument.Description = "QSS understands the impact and importance facilities support has on your organization. Outsourcing some or all of your facilities functions proves an efficient and cost effective solution for our clients." objDocument.KeyWords = "" objDocument.Title = "Facilities Support" ' Content to display objTemplate.Content = objContent.render(strPage,"main") objTemplate.SideBar = objSideBar.render(strPage,"side") case "Wholesale" ' Information used by search engines objDocument.Description = "QSS is a powerful partner to manage your wholesale purchasing needs. Youíll realize the value our services offer by saving you time and money. Plus, you can enjoy the purchasing power established through our long-term relationships with domestic and international vendors." objDocument.KeyWords = "" objDocument.Title = "Wholesale Purchasing" ' Content to display objTemplate.Content = objContent.render(strPage,"main") objTemplate.SideBar = objSideBar.render(strPage,"side") case "Contact" ' Information used by search engines objDocument.Description = "We welcome any feedback or questions you may have. Please submit the form below, and a representative will contact you shortly about your question/comment." objDocument.KeyWords = "" objDocument.Title = "Contact Us" ' Content to display objTemplate.Content = objContent.render(strPage,"main") objTemplate.SideBar = objSideBar.render(strPage,"side") case "Admin" response.redirect("?page=Home_Admin") case else ' Information used by search engines objDocument.Description = "Quality Support Services (QSS) is a HUBZone certified minority-owned firm. We provide workforce solutions tailored specifically to your organizationís needs." objDocument.KeyWords = "" objDocument.Title = "Home Page" ' Content to display objTemplate.Content = objContent.render(strPage,"main") objTemplate.SideBar = objSideBar.render(strPage,"side") end select ' Render the information to the screen response.write objDocument.displayHeader() response.write objTemplate.render() response.write objDocument.displayFooter() %>