'-----------------------------------------------------------------
' Copyright (c) Network Associates Corporation
' Free Scan Web page Language dependent constants
'-----------------------------------------------------------------
' Author: Ramy Eldesoky
' Created: 10/15/2002
'-----------------------------------------------------------------
' http://us.mcafee.com/apps/vsfreescan/en-us/activex.asp
Const UPDATE_SERVER = "us.mcafee.com" ' This is the domain where the app is going to call back for updates.
Const LANG_ID = "en-us" ' Change this constant to support other languages. i.e.: fr, en-gb,..
Const AFF_ID = "260" ' Keep empty as default value
'------------------------------------------------------------------------------------------
' URLs initialization
'------------------------------------------------------------------------------------------
dim strFreeScanUpdateServer, strBuyAndMoreInfoUrlDomain
Dim strVirusGlossaryURL
dim strDomainName
strDomainName = trim(LCase(document.location.hostname))
if InStr( strDomainName , "mcafee" ) > 0 then
'{
'// Default values....
'// They are two possible values here so that App Engineering can change the "Dev" values for their own package.
strFreeScanUpdateServer = "http://" & strDomainName & "/apps/vsfreescan/" & LANG_ID & "/default.asp"
strBuyAndMoreInfoUrlDomain = "/offsite.asp?{mcavirus|free}&"
strVirusGlossaryURL = "http://" & strDomainName & "/root/genericURL_genericLeftNav.asp?genericURL=/VirusInfo/VIL/glossary.asp&genericLeftNav=/VirusInfo/VIL/vil_nav.asp"
'}
else
'{
strFreeScanUpdateServer = "http://" & UPDATE_SERVER & "/apps/vsfreescan/" & LANG_ID & "/default.asp"
strBuyAndMoreInfoUrlDomain = "/offsite.asp?{mcavirus|free}&"
strVirusGlossaryURL = "http://" & UPDATE_SERVER & "/root/genericURL_genericLeftNav.asp?genericURL=/VirusInfo/VIL/glossary.asp&genericLeftNav=/VirusInfo/VIL/vil_nav.asp"
'}
end if
Dim strBuyNowURL_VirusFound, strBuyNowURL_NoVirusFound, strMoreInfoURL_VirusFound, strMoreInfoURL_NoVirusFound
Dim strBuyNowURL_CancelScan, strMoreInfoURL_CancelScan
Dim strCampaignURL
'BuyNow_NoVirus - 0, MoreInfo_NoVirus - 1
'BuyNow_Virus - 2, MoreInfo_Virus - 3
'BuyNow_Cancel - 4, MoreInof_Cancel - 5
strBuyNowURL_NoVirusFound = strBuyAndMoreInfoUrlDomain & "link=0&affid=" & AFF_ID
strMoreInfoURL_NoVirusFound = strBuyAndMoreInfoUrlDomain & "link=1&affid=" & AFF_ID
strBuyNowURL_VirusFound = strBuyAndMoreInfoUrlDomain & "link=2&affid=" & AFF_ID
strMoreInfoURL_VirusFound = strBuyAndMoreInfoUrlDomain & "link=3&affid=" & AFF_ID
strBuyNowURL_CancelScan = strBuyAndMoreInfoUrlDomain & "link=4&affid=" & AFF_ID
strMoreInfoURL_CancelScan = strBuyAndMoreInfoUrlDomain & "link=5&affid=" & AFF_ID
strCampaignURL = strBuyAndMoreInfoUrlDomain & "affid=" & AFF_ID & "&link="
'------------------------------------------------------------------------------------------
' Constants
'------------------------------------------------------------------------------------------
Const gRotatingFactsSpeed = 10000 ' milliseconds
Const MAX_INFECTED_FILES = 25
'------------------------------------------------------------------------------------------
' Language dependent string constants
'------------------------------------------------------------------------------------------
Const strPageTitle = "McAfee FreeScan"
Const sMsgMaxInfectedFilesFound = "Too many files are infected, Scan operation has been stopped"
Const strInformation = "Information"
Const strScanCompleted = "Scanning completed!"
Const strScanCanceled = "The scan operation was cancelled by the user."
Const strFile = "file"
Const strFiles = "files"
Const strLabelScannedFiles = "Files Scanned"
Const strLabelInfectedFiles = "Files Infected"
Const strLabelScanning = "Scanning"
Const strLabelInformation = "Information"
Const strHeaderFileName = "File Name"
Const strHeaderVirusName = "Virus Name"
Const varCount = "%count%"
Const varVirusCount = "%virus_count%"
Const varFileCount = "%file_count%"
Const varFiles = "%files%"
Const varHREF_1 = "%href_1%"
Const varHREF_2 = "%href_2%"
Const varHREF_3 = "%href_3%"
Const strInitialInformation = "Click the Scan button to begin scanning."
Const strAlertScanCancelled = "The Scanning Operation Was Cancelled!
No viruses were found before the scan operation was cancelled. It is important to scan all files as viruses might still be present on your computer. %href_1%Buy Now! %href_3%Learn More..."
Const strAlertNoVirusFound = "McAfee FreeScan detected NO viruses!
With over 80,000 computer viruses identified and another 500 discovered each month,
Why take chances? Get immediate virus protection with McAfee VirusScan Online. %href_1%Buy Now! %href_3%Learn More..."
Const strAlertVirusesDetected = "McAfee FreeScan has detected %virus_count% infected %files% on your computer!
You need an immediate anti-virus solution! Your personal information might be vulnerable to exposure or corruption.
Also, your computer might transmit infected files to friends, family and co-workers.
Get immediate virus protection with McAfee VirusScan Online. %href_1%Buy Now! %href_3%Learn More..."
dim strAVInfoMessage(2)
strAVInfoMessage(0) = "Important! To avoid conflicts, please temporarily disable any active anti-virus software."
strAVInfoMessage(1) = "Important! If you disabled your anti-virus software, please re-enable it now!"
strAVInfoMessage(2) = "Important! You may have more infected files on your computer!"
Const strTitleInfectedFiles = "List of Infected Files"
Const strTitleScanStatus = "Scan Status"
Const strTitleScanLocation = "Scan Location"
Const strDriveC = "Drive C"
Const strMyDocuments = "My Documents"
Const strWindowsFiles = "Windows Files"
Dim strFactoids(10)
strFactoids(0) = "" ' main message
strFactoids(1) = "Never let your e-mail program automatically execute attached files."
strFactoids(2) = "Do not open files attached to any e-mail whose subject line is questionable."
strFactoids(3) = "More than 80,000 computer viruses have been identified worldwide."
strFactoids(4) = "Macro viruses can spread via shared document files created in Microsoft Word or Microsoft Excel."
strFactoids(5) = "If a virus is detected on your system, clean it immediately."
strFactoids(6) = "Always use comprehensive, up-to-date anti-virus software."
strFactoids(7) = "Always scan all files you download from the Internet."
strFactoids(8) = "Make backup copies of important files and store them on separate diskettes."
strFactoids(9) = "Most viruses can be removed without permanent damage to your computer."
strFactoids(10) = "If a virus is detected, click its name to see details, including its origin and symptoms."
Const strUpsellTitle = "Recommended Security Solution"
Const strUpsellVSO = "VirusScan Online
VirusScan Online is the #1 online anti-virus solution, providing around-the-clock protection for your PC. With over 80,000 computer viruses identified, and another 500 discovered each month, why take chances?"
Const strUpsellVSOBuy = "
"