<% Dim i Dim OEMappendUrl Dim blnOEMchk Dim blnOemSupportLink Dim OEMID blnOEM = False 'This variable indicates there is an OEM ID in the QueryString/Cookie blnOEMbg = False 'This variable sets the pages's background images to on or off blnOEMmarg = True 'This variable sets the page's margins to regular or 0 - True = regular 10x15 margins blnOEMconsole = True 'This variable will allow you to exclude the "welcome" console in the left bar - True = On blnOEMchk = True 'This variable will allow you to exclude the oem_lb.asp and include the oem_lb_empty.asp blnOemSupportLink = False 'This variable will allow you to provide support link in the left bar of the OEM pages Dim trialSupportURL 'This variable will provide the support link URL for trial users in the OEM pages Dim paidSupportURL 'This variable will provide the support link URL for paid users in the OEM pages Dim strmailId 'This variable will allow you to pass the value to a function used for toshiba customization Dim blnPaid 'This variable will allow you to pass the value to a function used for toshiba customization Dim bTechLeftBar bTechLeftBar = False 'This variable will allow you to include the oem_lb_blank.asp for partner TechKnow-how arrPages = Array("/myapps/clinic/","/myapps/vsw/","/myapps/vso/","/myaccount","/membership/AccountActivated.asp","/Membership/receipt.asp","/copyright/", _ "oem_login.asp","oem_register_final.asp","oem_register_final_notactivated.asp","myaccount/default.asp","oem_register.asp","/aboutus/", _ "/allbusiness/","/beyond/","/bt/","/buyerzone/","/msn/","/msn/promo","/outpost/","/roadrunner/","/staples/","/stream/","/techknow-how/", _ "/hp/","/claranet/","/toshiba/","/compaq/","/fujitsu/","/officemax/","/sony/","/northpoint/","/teamon/","oem_promo.asp","pr_redeem_certs.asp", _ "oem_register_final_certs.asp", "/tangent/", "/hp-club/", "/sbc/", "myapps/firewall/default.asp", "myapps/mps/default.asp", _ "/bestbuy/","partnerthanks2.asp","membership","/yaga/","/mp3/", "/retail/mp3/", "/mp3/firewall/", "/email/toshiba/", "/sohoware/", "/email/mp3/", _ "/cendant/vsw/","/email/mp3/firewall/","/retail/mp3/firewall/","/freedrive/","/email/hp/","/broadjump/","/iomega/","/wincustomize/","/inkline/", _ "/comcast/","pr_register_final_certs.asp","download.asp","/pcworld/","/comdex/","hpnewsgram/","/hpbackweb/","/allbases/", "/iwill/", "/ford/", "/pcpitstop/") '--The array arr and the values in the array will allow you to exclude the oem_lb.asp in all the pre-registration oem pages Dim arr arr = Array("buyprocessor","oem_landing_template_nolbnav","oem_login","oem_register","oem_register_final","oem_register_final_notactivated", _ "allbusiness/default2","beyond/default2","bt/default2","buyerzone/default2","copyright/copyright","copyright/privacy","msn/promo","outpost/default2", _ "roadrunner/clinic/default2","roadrunner/mps/default2","roadrunner/mpf/default2","staples/default2","stream/default2","msn/default", _ "techknow-how/default2","hp/default2","claranet/default2","toshiba/default2","compaq/default2","fujitsu/default2","officemax/default2","sony/default2", _ "northpoint/default2","teamon/default2.asp","sbc/default2.asp","oem_promo.asp","pr_redeem_certs.asp","oem_register_final_certs.asp","tangent/default2.asp", _ "hp/default4","bestbuy/default2.asp","bestbuy/default4.asp","mp3/default2.asp","mp3/default4.asp","mp3/firewall/default2.asp","email/toshiba/default2.asp","sohoware/default2.asp", _ "cendant/vsw/default2.asp","email/mp3/firewall/default2.asp","email/mp3/firewall/default4.asp","retail/mp3/firewall/default2.asp","freedrive/default2.asp", _ "email/hp/default2.asp","broadjump/default2.asp","iomega/default2.asp","wincustomize/default2.asp","inkline/default2.asp","sbc/promos/default2.asp","comcast/default2.asp", _ "pr_register_final_certs.asp","download.asp","/pcworld/default2.asp","/comdex/default2.asp","hpnewsgram/default2.asp","hpbackweb/default4.asp","/allbases/default2.asp", _ "/iwill/default2.asp", "/ford/default2.asp", "/pcpitstop/default2.asp") strSection = Trim(Lcase(Request.ServerVariables("SCRIPT_NAME"))) If Len(Trim(Request.Cookies("MCOEMID"))) > 0 OR Len(Trim(Request.QueryString("oemid"))) > 0 Then For i = 0 To UBound(arr) If InStr(1, strSection , arr(i)) > 0 Then blnOEMchk = False End If Next End If If Len(Trim(Request.Cookies("MCOEMID"))) > 0 OR Len(Trim(Request.QueryString("oemid"))) > 0 Then For i = 0 To UBound(arrPages) If InStr(1, strSection , arrPages(i)) > 0 OR InStr(1, strServer00, "mcdev") > 0 OR InStr(1, strServer00, "clinic.mcafee.com") > 0 Then blnOEM = True bodyBackground = "" End If Next End If 'The following code will grab the OEM ID from the QueryString and the variable "OEMappendURL" has been set at the end of each link in relevant pages If Len(Trim(Request.QueryString("oemid"))) > 0 Then OEMappendUrl = "?oemid=" & Trim(Request("oemid")) OEMID = Trim(Request("oemid")) For i = 0 To UBound(arrPages) If InStr(1, strSection , arrPages(i)) > 0 Then blnOEM = True bodyBackground = "" End If Next ElseIf Len(Trim(Request.Cookies("MCOEMID"))) > 0 Then OEMappendUrl = "?oemid=" & Trim(Request.Cookies("MCOEMID")) OEMID = Trim(Request.Cookies("MCOEMID")) For i = 0 To UBound(arrPages) If InStr(1, strSection , arrPages(i)) > 0 Then blnOEM = True bodyBackground = "" End If Next End If If blnOEMmarg = True Then bodyMargin = "marginwidth='0' marginheight='0'" 'bodyMargin = "marginwidth=10 marginheight=15" Else bodyMargin = "marginwidth=0 marginheight=0 topmargin=0 leftmargin=0" End If 'Set blnOEM for Level1 OEMs (Landing Page Only) Select Case OEMID Case "1785-19","1784-18","1793-27","1773-6","1774-8","1867-88","1787-21","1871-92","1872-94","1873-96","1863-83","1874-97","1875-99", _ "1876-100","1877-101","1879-104","1880-105","1881-106","1878-103","1884-110","1797-76","1888-113","1888-114","1889-115","1890-116", _ "1891-117","1891-118","1887-112","1887-130","1892-120","1893-121","1894-122","1895-123","1896-124","1896-125","1897-126","1897-127", _ "1897-128","1898-129","1899-139","1896-146","1793-147","1897-148","1902-145","1902-143","1902-144","1857-151","1903-150", _ "1904-152","1904-153","1904-154","1904-155","1912-172","1909-169","1910-170","1911-171","1913-173","1914-187","1914-188","1914-189", _ "1915-191","1915-192","1915-193","1916-195","1908-168","1917-196","1922-204","1923-205","1924-206","1926-227","1928-238","1929-239", _ "1930-252","1933-263","1934-267","1915-277","1936-290","1937-279","1936-275","1780-301","1770-262","1897-320","1793-254","1904-356", _ "1951-406","1951-407","1940-309","1951-377","1948-366","1955-405","1951-424","1951-425","1940-440","1940-441","1958-442", _ "1958-444","1958-446","1958-443","1958-445","1940-448","1962-458","1789-449","1960-453","1963-466","1963-467","1959-451","1951-450", _ "1783-512" ',"1965-479","1965-480","1965-481, "1981-630","1884-149" bodyBackground = "background=""""" blnOEM = False End Select 'Set blnOEMmarg (set margins=0) Select Case OEMID Case "1861-81","1782-16","1850-69","1783-102","1768-107","9999-99","1789-23","1860-80","1770-98","1791-25","1780-14","1789-190" blnOEMmarg = False End Select If blnOEMmarg = True Then bodyMargin = "marginwidth='0' marginheight='0'" 'bodyMargin = "marginwidth=10 marginheight=15" Else bodyMargin = "marginwidth=0 marginheight=0 topmargin=0 leftmargin=0" End If '-------------------------------------------------------------------------------------------------------------------- ' The following code allows to have a conditional support link in the leftbar ' for the partners included in the array '-------------------------------------------------------------------------------------------------------------------- Dim arrOemSupport arrOemSupport = Array("1780-14","1789-23") 'If Len(Trim(Request.Cookies("MCOEMID"))) > 0 OR Len(Trim(Request.QueryString("oemid"))) > 0 Then For i = 0 To UBound(arrOemSupport) If InStr(1,Request("oemid"),arrOemSupport(i)) > 0 Then blnOemSupportLink = True Else blnOemSupportLink = False End If Next 'End If if blnOemSupportLink =True Then Select case OEMID case "1780-14" trialSupportURL = "http://pcsupport.toshiba.com" paidSupportURL = "http://" & WWW_MCAFEE_COM & "/aboutus/contact_us.asp?oemid="&OEMID case "1789-23" trialSupportURL = "http://www.hp-at-home.com" paidSupportURL = "http://" & WWW_MCAFEE_COM & "/aboutus/contact_us.asp?oemid="&OEMID End Select Else trialSupportURL = "http://" & WWW_MCAFEE_COM & "/aboutus/contact_us.asp" paidSupportURL = "http://" & WWW_MCAFEE_COM & "/aboutus/contact_us.asp" 'Changed from HOMEPAGE_SERVER to WWW_MCAFEE_COM for 'Support' link in oem_lb.asp, 8/21/00 End If '-------------------------------------------------------------------------------------------------------------------- ' The following code allows to include a blank left bar for the partner TechKnow-how(OEMID=1859-79) and HP Pavilion Club(OEMID=1789-190) '-------------------------------------------------------------------------------------------------------------------- if OEMID = "1859-79" Or OEMID = "1789-190" then bTechLeftBar = True End If '-------------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------------- ' The following code changes "www.mcafee.com" to "oem.dev.mcafee.com" in OEM pages on dev server '-------------------------------------------------------------------------------------------------------------------- 'if Instr(1,LCase(Request.ServerVariables("HTTP_HOST")),"dev") > 0 then ' WWW_MCAFEE_COM = "oem.dev.mcafee.com" 'else 'end if %>