-- Welcome to QUESTRA --

<% 'Initialize Dim strHomeImage, strLogoImage If Request.Cookies("Visitor").HasKeys Then Session("CompanyCode") = Request.Cookies("Visitor")("CompanyCode") End If If Not Len(Trim(Session("CompanyCode"))) > 0 Then Session("CompanyCode") = "GENP" End If Dim strSpecialSlice1, strSpecialSlice2, strSpecialSlice3, strSpecialSlice4, strSpecialsLink Select Case UCase(Session("CompanyCode")) Case "BSS" strHomeImage = "bss_home.jpg" strLogoImage = "bss_logo.gif" 'default specials area strSpecialSlice1 = "home_promo.gif" strSpecialSlice2 = "home_specialsbody.gif" strSpecialSlice3 = "home_specialsleft.gif" strSpecialSlice4 = "home_specialsright.gif" strSpecialsLink = "specials.asp" Case "LABC" strHomeImage = "home_labcorp.jpg" strLogoImage = "questra_logo.gif" 'labweek images and link for specials area 'strSpecialSlice1 = "home_promo_lcad.gif" 'strSpecialSlice2 = "lc_shirtad.gif" 'strSpecialSlice3 = "home_specialsleft_lcad.gif" 'strSpecialSlice4 = "home_specialsright_lcad.gif" 'strSpecialsLink = "labweek_instructions.asp" 'default specials area strSpecialSlice1 = "home_promo.gif" strSpecialSlice2 = "home_specialsbody.gif" strSpecialSlice3 = "home_specialsleft.gif" strSpecialSlice4 = "home_specialsright.gif" strSpecialsLink = "specials.asp" Case Else Dim aImages(), intRnd Redim aImages(3) aImages(1) = "home_image1.jpg" aImages(2) = "home_image2.jpg" aImages(3) = "home_image3.jpg" Randomize 'Int((upperbound - lowerbound + 1) * Rnd + lowerbound) intRnd = Int((3 - 1 + 1) * Rnd + 1) strHomeImage = aImages(intRnd) strLogoImage = "questra_logo.gif" strSpecialSlice1 = "home_promo.gif" strSpecialSlice2 = "home_specialsbody.gif" strSpecialSlice3 = "home_specialsleft.gif" strSpecialSlice4 = "home_specialsright.gif" strSpecialsLink = "specials.asp" End Select %> -- Welcome to QUESTRA --