<% Dim WWW_MCAFEE_COM, DOWNLOAD_MCAFEE_COM, STORE_MCAFEE_COM, ICHOOSE_MCAFEE_COM, DISPATCH_MCAFEE_COM,DRSOLOMON_MCAFEE_COM,VIRUS_MAP_SERVER Dim CLINIC_MCAFEE_COM, CLINIC_MCAFEE_COM_SECURE, VIL_MCAFEE_COM, SOFTWARE_MCAFEE_COM, BIZ_MCAFEE_COM, KIDS_MCAFEE_COM, PROMOS_MCAFEE_COM,RIGHTNOW_WEB Dim strServer00 strServer00 = LCase(Trim(Request.ServerVariables("SERVER_NAME"))) If InStr(strServer00, "dev.mcafee.com") > 0 Then WWW_MCAFEE_COM = "www.dev.mcafee.com" CLINIC_MCAFEE_COM = "mcdev1.mcafee.com:15000" 'new dev environment for the Desktop clinic CLINIC_MCAFEE_COM_SECURE = "mcdev1.mcafee.com:15443" DOWNLOAD_MCAFEE_COM = "download.dev.mcafee.com" SOFTWARE_MCAFEE_COM = "software.dev.mcafee.com" STORE_MCAFEE_COM = "www.mcafeestore.com" VIL_MCAFEE_COM = "vil.dev.mcafee.com" ICHOOSE_MCAFEE_COM = "ichoose.dev.mcafee.com" DISPATCH_MCAFEE_COM = "dispatch.dev.mcafee.com" BIZ_MCAFEE_COM = "mcafeeasap.dev.mcafee.com" KIDS_MCAFEE_COM = "kids.dev.mcafee.com" DRSOLOMON_MCAFEE_COM = "drsolly.dev.mcafee.com" PROMOS_MCAFEE_COM = "promos.dev.mcafee.com" RIGHTNOW_WEB = "ecusthelp2.mcafee.com" VIRUS_MAP_SERVER = "webmapdev1" ElseIf InStr(strServer00, "dist.mcafee.com") > 0 Then WWW_MCAFEE_COM = "www.dist.mcafee.com" CLINIC_MCAFEE_COM = "clinic.dist.mcafee.com" CLINIC_MCAFEE_COM_SECURE = "clinic.dist.mcafee.com" DOWNLOAD_MCAFEE_COM = "download.dist.mcafee.com" SOFTWARE_MCAFEE_COM = "software.dist.mcafee.com" VIL_MCAFEE_COM = "vil.dist.mcafee.com" STORE_MCAFEE_COM = "store.dist.mcafee.com" ICHOOSE_MCAFEE_COM = "ichoose.mcafee.com" DISPATCH_MCAFEE_COM = "dispatch.dist.mcafee.com" BIZ_MCAFEE_COM = "corporate.mcafee.com" KIDS_MCAFEE_COM = "kids.mcafee.com" DRSOLOMON_MCAFEE_COM = "www.drsolomon.com" VIRUS_MAP_SERVER = "webmapdev1" ElseIf InStr(strServer00, "mcafeetest.mcafee.com") > 0 Then WWW_MCAFEE_COM = "mcafeetest.mcafee.com" CLINIC_MCAFEE_COM = "clinictest.mcafee.com" CLINIC_MCAFEE_COM_SECURE = "clinictest.mcafee.com" DOWNLOAD_MCAFEE_COM = "download.mcafee.com" SOFTWARE_MCAFEE_COM = "software.mcafee.com" VIL_MCAFEE_COM = "vil.mcafee.com" STORE_MCAFEE_COM = "www.mcafeestore.com" ICHOOSE_MCAFEE_COM = "ichoose.mcafee.com" DISPATCH_MCAFEE_COM = "dispatch.mcafee.com" BIZ_MCAFEE_COM = "corporate.mcafee.com" KIDS_MCAFEE_COM = "kids.mcafee.com" DRSOLOMON_MCAFEE_COM = "www.drsolomon.com" VIRUS_MAP_SERVER = "mast.mcafee.com" '[Ravi] ElseIf InStr(strServer00, "qa.mcafee.com") > 0 Then WWW_MCAFEE_COM = "www.qa.mcafee.com" CLINIC_MCAFEE_COM = "clinic.qa.mcafee.com" CLINIC_MCAFEE_COM_SECURE = "clinic.qa.mcafee.com" DOWNLOAD_MCAFEE_COM = "download.qa.mcafee.com" SOFTWARE_MCAFEE_COM = "software.qa.mcafee.com" VIL_MCAFEE_COM = "vil.qa.mcafee.com" STORE_MCAFEE_COM = "www.mcafeestore.com" ICHOOSE_MCAFEE_COM = "ichoose.mcafee.com" DISPATCH_MCAFEE_COM = "dispatch.qa.mcafee.com" BIZ_MCAFEE_COM = "corporate.mcafee.com" KIDS_MCAFEE_COM = "kids.qa.mcafee.com" DRSOLOMON_MCAFEE_COM = "www.drsolomon.com" PROMOS_MCAFEE_COM = "promos.qa.mcafee.com" RIGHTNOW_WEB = "ecusthelp.mcafee.com" VIRUS_MAP_SERVER = "mast.mcafee.com" ElseIf InStr(strServer00, "webca5.mcafee.com") > 0 Then WWW_MCAFEE_COM = "webca5.mcafee.com" CLINIC_MCAFEE_COM = "clinicca7.mcafee.com" CLINIC_MCAFEE_COM_SECURE = "clinicca7.mcafee.com" DOWNLOAD_MCAFEE_COM = "downloadca1.mcafee.com" SOFTWARE_MCAFEE_COM = "software.mcafee.com" VIL_MCAFEE_COM = "vil.beta.mcafee.com" VISTO_MCAFEE_COM = "visto.beta.mcafee.com" STORE_MCAFEE_COM = "www.mcafeestore.com" ICHOOSE_MCAFEE_COM = "ichoose.beta.mcafee.com" DISPATCH_MCAFEE_COM = "dispatch.mcafee.com" BIZ_MCAFEE_COM = "corporate.mcafee.com" KIDS_MCAFEE_COM = "kids.mcafee.com" DRSOLOMON_MCAFEE_COM = "www.drsolomon.com" RIGHTNOW_WEB = "ecusthelp.mcafee.com" VIRUS_MAP_SERVER = "mast.mcafee.com" ElseIf InStr(strServer00, "appqa.mcafee.com") > 0 Then WWW_MCAFEE_COM = "www.appqa.mcafee.com" CLINIC_MCAFEE_COM = "clinic.appqa.mcafee.com" CLINIC_MCAFEE_COM_SECURE = "clinic.appqa.mcafee.com" DOWNLOAD_MCAFEE_COM = "download.appqa.mcafee.com" SOFTWARE_MCAFEE_COM = "software.appqa.mcafee.com" VIL_MCAFEE_COM = "vil.appqa.mcafee.com" STORE_MCAFEE_COM = "www.mcafeestore.com" ICHOOSE_MCAFEE_COM = "ichoose.mcafee.com" DISPATCH_MCAFEE_COM = "dispatch.appqa.mcafee.com" BIZ_MCAFEE_COM = "corporate.mcafee.com" KIDS_MCAFEE_COM = "kids.appqa.mcafee.com" DRSOLOMON_MCAFEE_COM = "www.drsolomon.com" PROMOS_MCAFEE_COM = "promos.appqa.mcafee.com" RIGHTNOW_WEB = "ecusthelp.mcafee.com" VIRUS_MAP_SERVER = "mast.mcafee.com" Else WWW_MCAFEE_COM = "www.mcafee.com" CLINIC_MCAFEE_COM = "clinic.mcafee.com" CLINIC_MCAFEE_COM_SECURE = "clinic.mcafee.com" DOWNLOAD_MCAFEE_COM = "download.mcafee.com" SOFTWARE_MCAFEE_COM = "software.mcafee.com" VIL_MCAFEE_COM = "vil.mcafee.com" STORE_MCAFEE_COM = "www.mcafeestore.com" ICHOOSE_MCAFEE_COM = "ichoose.mcafee.com" DISPATCH_MCAFEE_COM = "dispatch.mcafee.com" BIZ_MCAFEE_COM = "corporate.mcafee.com" KIDS_MCAFEE_COM = "kids.mcafee.com" DRSOLOMON_MCAFEE_COM = "www.drsolomon.com" PROMOS_MCAFEE_COM = "promos.mcafee.com" RIGHTNOW_WEB = "ecusthelp.mcafee.com" VIRUS_MAP_SERVER = "mast.mcafee.com" End If 'START///////////////////////////////////////////////////////////////////////////////////////// '-- cteo: for us.mcafee.com Dim strFullNetURL_Variables strFullNetURL_Variables = Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") 'Response.Write "cteo: strFullNetURL_Variables=" & strFullNetURL_Variables If Len(strFullNetURL_Variables) > 0 Then '{ '-- perform a textual comparison ( Example: "/US" = "/us" ) If Instr( 1, strFullNetURL_Variables, "mcafee.com/us", 1 ) > 0 Then '-- dev If InStr( 1, strFullNetURL_Variables, "download.dev.mcafee.com/us", 1 ) > 0 Or _ InStr( 1, strFullNetURL_Variables, "software.dev.mcafee.com/us", 1 ) > 0 Then DOWNLOAD_MCAFEE_COM = "download.dev.mcafee.com/us" SOFTWARE_MCAFEE_COM = "software.dev.mcafee.com/us" '-- live ElseIf InStr( 1, strFullNetURL_Variables, "download.mcafee.com/us", 1 ) > 0 Or _ InStr( 1, strFullNetURL_Variables, "software.mcafee.com/us", 1 ) > 0 Then DOWNLOAD_MCAFEE_COM = "download.mcafee.com/us" SOFTWARE_MCAFEE_COM = "software.mcafee.com/us" End If End If '} End If 'Response.Write "cteo: DOWNLOAD_MCAFEE_COM=" & DOWNLOAD_MCAFEE_COM 'Response.Write "cteo: SOFTWARE_MCAFEE_COM=" & SOFTWARE_MCAFEE_COM 'END/////////////////////////////////////////////////////////////////////////////////////////// %>