<% '=================================== ' set default values '=================================== Dim DEFAULT_PKG_RATE_ID Dim DEFAULT_REGULAR_PRICE Dim COBRAND_MCAFEE Dim DEFAULT_PKG_RATE_ID_FIREWALL '***************************************************************** 'This is enable/disable spotlight tag for GREY customers. Dim blnSpotLightTag 'sblnSpotLightTag = true blnSpotLightTag = true 'This is enable/disable spotlight tag for GREY customers. '***************************************************************** '-- variable and function in cookiecommon.asp OEM_ID = StoreOEMID("") if OEM_ID = "" then COBRAND_MCAFEE = "McAfee" elseif OEM_ID = "1795-29" then COBRAND_MCAFEE = "Lycos-McAfee" end if %> <% '========================================' '=== Set the server locations and URLs ==' '========================================' Dim DOWNLOAD_SERVER, HOMEPAGE_SERVER, OILCHANGE_SERVER Dim URL_NEW_USER, URL_MEMBER, URL_LOGIN, URL_PLUGIN Dim URL_CLINIC, URL_SSL_CLINIC, URL_NEW_PROFILE, URL_SOFTWARE, URL_PROMOS, URL_DISPATCH, URL_BIZ, URL_KIDS, URL_FORUM,URL_BETA Dim VIL_SERVER Dim NSCP_ACTIVATOR_PLUGIN Dim CLINIC_FROM_EMAIL_ADDR Dim PAYMENT_SERVER Dim ECHARGENET_SERVER 'Code added again to avoid code breaks bcos of variables taken off from here DIm gblnXP '---Global variable to findout whether the user has XP OS or not. Dim gblnNT4 '---Global: True if client OS is Windows NT 4 otherwise it False Dim gstrUserAgent '---Global: Holds the User Agent string '== set defaults ( always to the live server's) == DOWNLOAD_SERVER = "download.mcafee.com" HOMEPAGE_SERVER = "www.mcafee.com" OILCHANGE_SERVER = "oilchange.mcafee.com" URL_CLINIC = "clinic.mcafee.com" URL_SSL_CLINIC = "clinic.mcafee.com" VIL_SERVER = "vil.mcafee.com" PAYMENT_SERVER = "transact.mcafee.com" ECHARGENET_SERVER = "accounts.echarge.com" URL_SOFTWARE = "software.mcafee.com" URL_PROMOS = "promos.mcafee.com" URL_BIZ = "corporate.mcafee.com" URL_DISPATCH = "dispatch.mcafee.com" URL_KIDS = "kids.mcafee.com" URL_FORUM = "forum.mcafee.com" URL_BETA = "beta.mcafee.com" ' special case if hosted on localhost or LAN computer name If InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "mcdev1.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "www.dev.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "payment.dev.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "software.dev.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "kids.dev.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "forum.dev.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "promos.dev.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "beta.dev.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "." ) = 0 Then '{ DOWNLOAD_SERVER = "mcdev1.mcafee.com:6000" '"download.dev.mcafee.com" HOMEPAGE_SERVER = "www.dev.mcafee.com" OILCHANGE_SERVER = "mcdev1.mcafee.com:5000" URL_CLINIC = "mcdev1.mcafee.com:15000" URL_SSL_CLINIC = "mcdev1.mcafee.com:15443" VIL_SERVER = "vil.dev.mcafee.com" PAYMENT_SERVER = "payment.dev.mcafee.com" ECHARGENET_SERVER = "model-accounts.echarge.com" URL_SOFTWARE = "software.dev.mcafee.com" URL_PROMOS = "promos.dev.mcafee.com" URL_BIZ = "mcafeeasap.dev.mcafee.com" URL_DISPATCH = "dispatch.dev.mcafee.com" URL_KIDS = "kids.dev.mcafee.com" URL_FORUM = "forum.dev.mcafee.com" URL_BETA = "beta.dev.mcafee.com" '} ElseIf InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "clinictest.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "mcafeetest.mcafee.com" ) > 0 Then '{ DOWNLOAD_SERVER = "download.mcafee.com" HOMEPAGE_SERVER = "mcafeetest.mcafee.com" OILCHANGE_SERVER = "oilchange.mcafee.com" URL_CLINIC = "clinictest.mcafee.com" URL_SSL_CLINIC = "clinictest.mcafee.com" VIL_SERVER = "vil.dev.mcafee.com" '} '-- cteo: for QA testing; change "payment.qa.mcafee.com" to "transact.mcafee.com" ElseIf InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "clinic.qa.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "payment.qa.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "software.qa.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "kids.qa.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "beta.qa.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "www.qa.mcafee.com" ) > 0 Then '{ DOWNLOAD_SERVER = "download.mcafee.com" HOMEPAGE_SERVER = "www.qa.mcafee.com" OILCHANGE_SERVER = "oilchange.mcafee.com" URL_CLINIC = "clinic.qa.mcafee.com" URL_SSL_CLINIC = "clinic.qa.mcafee.com" VIL_SERVER = "vil.qa.mcafee.com" PAYMENT_SERVER = "transact.mcafee.com" ECHARGENET_SERVER = "accounts.echarge.com" URL_SOFTWARE = "software.qa.mcafee.com" URL_PROMOS = "promos.qa.mcafee.com" URL_BIZ = "corporate.mcafee.com" URL_DISPATCH = "dispatch.qa.mcafee.com" URL_KIDS = "kids.qa.mcafee.com" URL_FORUM = "forum.dev.mcafee.com" URL_BETA = "beta.qa.mcafee.com" '} ElseIf InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "lycosappsdev.viruslabs.com" ) > 0 Then '{ DOWNLOAD_SERVER = "mcdev1.mcafee.com:6000" HOMEPAGE_SERVER = "lycosdev.viruslabs.com" OILCHANGE_SERVER = "mcdev1.mcafee.com:5000" URL_CLINIC = "lycosappsdev.viruslabs.com" URL_SSL_CLINIC = "lycosappsdev.viruslabs.com" VIL_SERVER = "vil.dev.mcafee.com" '} ElseIf InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "apps.lycos.com" ) > 0 Then '{ DOWNLOAD_SERVER = "download.mcafee.com/lycos" HOMEPAGE_SERVER = "viruscenter.lycos.com" OILCHANGE_SERVER = "oilchange.mcafee.com" URL_CLINIC = "apps.lycos.com" URL_SSL_CLINIC = "apps.lycos.com" '} ElseIf InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "clinicca7.mcafee.com" ) > 0 Or _ InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "webca5.mcafee.com" ) > 0 Then '{ DOWNLOAD_SERVER = "downloadca1.mcafee.com" HOMEPAGE_SERVER = "webca5.mcafee.com" OILCHANGE_SERVER = "oilchange.mcafee.com" URL_CLINIC = "clinicca7.mcafee.com" URL_SSL_CLINIC = "clinicca7.mcafee.com" VIL_SERVER = "vil.dev.mcafee.com" '} End If 'special case for CNet (oem ID = 1930-252), uses login_page.asp instead of oem_login.asp If Len(OEM_ID) > 0 and OEM_ID <> "1930-252" Then '{ URL_NEW_USER = "http://" & HOMEPAGE_SERVER & "/oem_login.asp?oemid=" & OEM_ID URL_MEMBER = "http://" & HOMEPAGE_SERVER & "/myapps/clinic/default.asp?oemid=" & OEM_ID URL_LOGIN = "http://" & HOMEPAGE_SERVER & "/oem_login.asp?a=ok&oemid=" & OEM_ID '} Else '{ URL_NEW_USER = "http://" & HOMEPAGE_SERVER & "/login_page.asp?a=ok" URL_MEMBER = "http://" & HOMEPAGE_SERVER & "/myapps/default.asp?oemid=" & OEM_ID URL_LOGIN = "http://" & HOMEPAGE_SERVER & "/login_page.asp?a=ok" '} End If 'START/////////////////////////////////////////////////////////////////////////////////////// '-- cteo: for us.mcafee.com Dim strFullNetURL_Common strFullNetURL_Common = Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") If ( Trim(strFullNetURL_Common) <> "" ) Then '{ '-- perform a textual comparison ( Example: "/US" = "/us" ) If Instr( 1, strFullNetURL_Common, "mcafee.com/us", 1 ) > 0 Then '{ '-- dev: software If InStr( 1, strFullNetURL_Common, "software.dev.mcafee.com/us", 1 ) > 0 Then URL_SOFTWARE = "software.dev.mcafee.com/us" '-- live: software ElseIf InStr( 1, strFullNetURL_Common, "software.mcafee.com/us", 1 ) > 0 Then URL_SOFTWARE = "software.mcafee.com/us" '-- dev: download ElseIf InStr( 1, strFullNetURL_Common, "download.dev.mcafee.com/us", 1 ) > 0 Then DOWNLOAD_SERVER = "download.dev.mcafee.com/us" '-- live: download ElseIf InStr( 1, strFullNetURL_Common, "download.mcafee.com/us", 1 ) > 0 Then DOWNLOAD_SERVER = "download.mcafee.com/us" End If '} End If '} End If 'END//////////////////////////////////////////////////////////////////////////////////////// NSCP_ACTIVATOR_PLUGIN = DOWNLOAD_SERVER & "/molbin/Shared/PlgSetup.exe" 'URL_MEMBER The following URL determines where the user will be sent upon successful log in 'changed from HOMEPAGE_SERVER to URL_CLINIC because that page doesnt' exist anymore URL_PLUGIN = "http://" & URL_CLINIC & "/clinic/plugin_install.asp?area=" & Request( "area" ) URL_NEW_PROFILE = "http://" & HOMEPAGE_SERVER & "/pr_register.asp?a=ok" '------------------------------ ' Email Constants '------------------------------ CLINIC_FROM_EMAIL_ADDR = "subscriptions@mcafee.com" ' set the default pkg rate ID's DEFAULT_PKG_RATE_ID = 14 ' STD_NEW / yearly DEFAULT_REGULAR_PRICE = 49.95 If InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "clinic.qa.mcafee.com" ) > 0 Then DEFAULT_PKG_RATE_ID_FIREWALL = 97 ' PKG_FIREWALL_STD ElseIf InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "mcdev1.mcafee.com" ) > 0 Then DEFAULT_PKG_RATE_ID_FIREWALL = 71 ' PKG_FIREWALL_STD ElseIf InStr( LCase(Request.ServerVariables( "HTTP_HOST" )), "lycosappsdev.viruslabs.com" ) > 0 Then DEFAULT_PKG_RATE_ID_FIREWALL = 71 ' PKG_FIREWALL_STD Else DEFAULT_PKG_RATE_ID_FIREWALL = 98 ' PKG_FIREWALL_STD End If %> <% '==================================' ' BounceURL handler functions '==================================' Function GetBounceUrl() '{ Dim szBounceURL szBounceURL = iGetTheBounceURL() If Len(szBounceURL) = 0 Then szBounceURL = "http://" & HOMEPAGE_SERVER & "/myaccount/default.asp?login=homepage" 'URL_MEMBER 'If Len(OEM_ID) > 0 Then szBounceURL = URL_MEMBER ' For OEM Users change the landing URL End If GetBounceUrl = szBounceURL '} End Function %> <% '========================================= ' Checks if the user is already logged in '========================================= Function IsUserLogged() '{ Dim szAuthCookie '-- get the authentication cookie szAuthCookie = GetAuthenticationCookie() 'Response.Write szAuthCookie 'Response.End '-- check to make sure our authentication cookie is valid and it has not been tampered with If InStr( szAuthCookie, CCOM_CRC_STRING ) = 0 Then '-- Cookie is not valid IsUserLogged = False Else IsUserLogged = True End If '} End Function Function IsUserCookiePresentOnMachine() '{ Dim retValue : retValue = False If Len(Request.Cookies(CCOM_MASTER_COOKIE)(CCOM_LOGINID_KEY)) > 0 Then retValue = True End If IsUserCookiePresentOnMachine = retValue '} End Function %> <% Sub PushDummyHtml %> <% End Sub %> <% Function Redirect_NoHistory( szUrl ) '{ %> <% Response.End '} End Function %> <% Function GetDefaultPkgCode( strServiceCode ) '{ Dim strPkgCode dim bNewPrice bNewPrice = true Select Case ucase(strServiceCode) '{ Case "VSO" if bNewPrice then strPkgCode = "P_VSO_STD3" else strPkgCode = "P_VSO_STD2" ' "P_VSO_SALE" end if Case "MSC" strPkgCode = "P_MSC_STD" ' MSC Package Code. Case "CLINIC" if bNewPrice then strPkgCode = "P_CLN_STD2" else strPkgCode = "P_CLN_STD" '39.95/no free trial end if '"P_CLN_SALE" '29.95/No free trial '"P_CLN_SALE2" '"STD_NEW_CLINIC" Clinic 34.95 '"STD_NEW_CLINIC" ' Clinic 39.95 -- 04/16/2001 '"STD_NEW_CLINIC_2" '"P_CLN_UNINSTALLER_PROMO" '"P_CLN_SHREDDER_PROMO" ' Shredder promo for one week. Case "FIREWALL" if bNewPrice then strPkgCode = "P_MPF_STD2" else strPkgCode = "P_MPF_STD" '29.95/no free trial end if Case "MPFP" if bNewPrice then strPkgCode = "P_MPFP_STD" else strPkgCode = "P_MPFP_STD" ' One Year MPF Plus Package Code. (old Price) If date() >= CDate("01/01/2003") Then strPkgCode = "NY2003_MPFP_P" ' One Year MPF Plus Package Code. (New Price) End If end if Case "MPS" if bNewPrice then strPkgCode = "P_MPS_STD2" else strPkgCode = "P_MPS_STD" '29.95/no free trial end if Case "MER" strPkgCode = "PKG_MER_STD2" '49.95 10 days trial '"P_MER_SALE" 39.95 No trial Case "MUO" strPkgCode = "P_MUO_STD" Case "OCO" strPkgCode = "P_OCO_STD" Case "MERP" strPkgCode = "PKG_MERP_STD" '"PKG_MERP_SALE2" '"PKG_MERP_SALE" Case "FAO" strPkgCode = "P_FAO_STD" '"P_FAO_SALE" ' Case "VSW" strPkgCode = "P_VSW_STD" '"P_VSW_SALE" 'Case "WSC" 'strPkgCode = "PKG_NEW_WSC_STD2" 'Case "MOBILEOFFICE" 'strPkgCode = "P_MOffice" '} End Select GetDefaultPkgCode = strPkgCode '} End Function '---If user OS is windows XP set global variable gblnXP to true If InStr(gstrUserAgent, "Windows NT 5.1") > 0 Then gblnXP = True '---If user OS is Windows NT 4 set global variable gblnNT4 to true If InStr(gstrUserAgent, "Windows NT 4") > 0 OR _ InStr(gstrUserAgent, "Windows NT;") > 0 OR _ InStr(gstrUserAgent, "Windows NT)") > 0 OR _ InStr(gstrUserAgent, "WinNT") > 0 Then gblnNT4 = True End If Function SetRegistrationURLCookie(strQueryStringValue) '{ Dim tmpRegistrationPage tmpRegistrationPage = "http://" & HOMEPAGE_SERVER & "/pr_register.asp" If Left(strQueryStringValue, 1) <> "?" Then strQueryStringValue = "?" & strQueryStringValue End If If OEM_ID <> "" Then tmpRegistrationPage = "http://" & HOMEPAGE_SERVER & "/oem_register.asp" End If Call SetRegistrationCookie(tmpRegistrationPage & strQueryStringValue) '} End Function '****************************************************************************************************************** 'GREY Customers 'These functions are for GREY customers. '****************************************************************************************************************** Function LoadSpotLightTag (strCategory, intQty, strProductInfo, strOrdId, strAmt ) Dim intRandom Dim loadImageURL 'Create random number for cache bursting Randomize intRandom = Int((1111111 * Rnd) + 9999999) dim strHttp if LCase(Request.ServerVariables("HTTPS"))="on" then strHttp = "https://" else strHttp = "http://" end if Select Case strCategory Case "receiptActivity" 'receipt page about activity. Values get passed from PymtTxnInc.asp loadImageURL = "" Case "mfeeconf" 'receipt page about sale and quantity loadImageURL = "" Case else 'this is for the pages which does have default values loadImageURL = "" End Select Response.Write loadImageURL End Function Function GetProductId (strServiceName) Dim intProductId If IsNull(strServiceName) or Len(strServiceName) = 0 Then GetProductId = 100 Exit Function End If Select Case strServiceName Case "VSO" intProductId = 100 Case "MPFP" intProductId = 103 Case "FIREWALL" intProductId = 101 Case "MPS" intProductId = 104 Case "MER" intProductId = 105 Case "MERP" intProductId = 107 Case "VSW" intProductId = 102 Case "MSK" intProductId = 123 Case "CLINIC" intProductId = 121 Case "FAO" intProductId = 108 Case "OCO" intProductId = 109 Case "UIO" intProductId = 106 End Select GetProductId = intProductId End Function '****************************************************************************************************************** 'GREY Customers '****************************************************************************************************************** %>