<% '==Dimensioning of Variables Dim MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(15, 2) Dim gblnPartnerPromoActive 'Used for the Partner with code redemption Promotion - It is set to TRUE when the user purchases a package code that is the matrix of package code Dim gstrPartnerName 'Holds the Partner Name, for the Redeeming certificates, associeted with the package code being purchased Dim gstrPartnerType 'Holds the Partner Offer type, it contains either CODE or URL Dim gstrPartnerPkgCodeForPromotion 'The package code that triggered the Partner Promotion Code redeption process. This package code will be stored in the Partners_code Table Dim gstrPartnerPromoCodeValue 'This is the actual promo-code to be sent via Email for the associated partner promotion Dim gstrCampaignIDToStoreWithPromoCode 'Get the Campaign ID from the cookie if it exists '==Initialization of Varialbles gblnPartnerPromoActive = False gstrPartnerPromoCodeValue = "" gstrCampaignIDToStoreWithPromoCode = Null MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(0, 0) = "MC_AMAZON_VSO_P" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(0, 1) = "AMAZON_3" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(1, 0) = "MC_AMAZON_VSO_P2" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(1, 1) = "AMAZON_3" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(2, 0) = "MC_AMAZON_VSO_R" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(2, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(3, 0) = "MC_AMAZON_MPF_R" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(3, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(4, 0) = "MC_AMAZON_VSO_R2" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(4, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(5, 0) = "MC_AMAZON_VSO_P" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(5, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(6, 0) = "MC_AMAZON_MPFP_R" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(6, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(7, 0) = "MC_AMAZON_VSO_R3" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(7, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(8, 0) = "MC_AMAZON_MPF_R2" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(8, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(9, 0) = "MC_AMAZON_CLN_R2" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(9, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(10, 0) = "HP_AMAZON_VSO_P" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(10, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(11, 0) = "MC_AMAZON_CLN_R" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(11, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(12, 0) = "MC_AMAZON_MPS_R" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(12, 1) = "AMAZON" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(13, 0) = "MC_CLASSICAL_MPS_P" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(13, 1) = "CLASSICAL_ARCHIVES" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(14, 0) = "MC_CLASSICAL_MPF_R" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(14, 1) = "CLASSICAL_ARCHIVES" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(15, 0) = "MC_CLASSICAL_MPS_R" MATRIX_PKGCODES_FOR_PARTNERS_WITH_PROMO_CODES(15, 1) = "CLASSICAL_ARCHIVES" Function IsAnyCodeAvailableForThisPartner(strPartnerName) '{ Dim conMCAF, cmdMCAF, strCodeValue Dim retValue : retValue = False Set conMCAF = Server.CreateObject("ADODB.Connection") Set cmdMCAF = Server.CreateObject("ADODB.Command") conMCAF.Open "dsn=clinicuser;uid=clinicuser;pwd=clinicuser" Set cmdMCAF.ActiveConnection = conMCAF cmdMCAF.CommandType = &H0004 cmdMCAF.CommandText = "sp_IsPartnerCodeAvailable" cmdMCAF.Parameters.Append cmdMCAF.CreateParameter("@strPartnerName", 200, &H0001, 50, strPartnerName) cmdMCAF.Parameters.Append cmdMCAF.CreateParameter("@strStatus", 200, &H0002, 50) Call cmdMCAF.Execute() strCodeValue = cmdMCAF.Parameters("@strStatus") If (conMCAF.State = adStateOpen) Then conMCAF.Close End If Set cmdMCAF = Nothing Set conMCAF = Nothing If strCodeValue <> "0" Then retValue = True End If IsAnyCodeAvailableForThisPartner = retValue '} End Function Function IsPartnerPackageCode(arrAllPartnersPackages, strPkgCodeToSearch, ByRef strPartnerName) '{ Dim i Dim retValue : retValue = False If IsArray(arrAllPartnersPackages) Then If UBound(arrAllPartnersPackages) = -1 Then IsPartnerPackageCode = retValue Exit Function End If Else IsPartnerPackageCode = retValue Exit Function End If For i = 0 To UBound(arrAllPartnersPackages, 1) If UCase(strPkgCodeToSearch) = UCase(arrAllPartnersPackages(i, 0)) Then retValue = True strPartnerName = UCase(arrAllPartnersPackages(i, 1)) Exit For End If Next IsPartnerPackageCode = retValue '} End Function Function GetPartnerPromotionalCodeValue(intCustID, strOrderID, strPartnerName, intCampaignID, strPkgCode) '{ Dim conMCAF, cmdMCAF Dim retValue : retValue = "" If Len(strOrderID) = 0 Then GetPartnerPromotionalCodeValue = retValue Exit Function End If Set conMCAF = Server.CreateObject("ADODB.Connection") Set cmdMCAF = Server.CreateObject("ADODB.Command") conMCAF.Open "dsn=clinicuser;uid=clinicuser;pwd=clinicuser" Set cmdMCAF.ActiveConnection = conMCAF cmdMCAF.CommandType = &H0004 cmdMCAF.CommandText = "sp_GetPartnerCode" cmdMCAF.Parameters.Append cmdMCAF.CreateParameter("@intCustID", 3, &H0001, 4, intCustID) cmdMCAF.Parameters.Append cmdMCAF.CreateParameter("@strOrderID", 200, &H0001, 50, strOrderID) cmdMCAF.Parameters.Append cmdMCAF.CreateParameter("@strPartnerName", 200, &H0001, 50, strPartnerName) cmdMCAF.Parameters.Append cmdMCAF.CreateParameter("@intCampaignID", 3, &H0001, 4, intCampaignID) cmdMCAF.Parameters.Append cmdMCAF.CreateParameter("@strPkgName", 200, &H0001, 30, strPkgCode) cmdMCAF.Parameters.Append cmdMCAF.CreateParameter("@strPartnerCode", 200, &H0002, 50) Call cmdMCAF.Execute() retValue = cmdMCAF.Parameters("@strPartnerCode") conMCAF.Close Set cmdMCAF = Nothing Set conMCAF = Nothing GetPartnerPromotionalCodeValue = retValue '} End Function Function GetPartnerPromotionalURL(strPartnerName) '{ Dim objDictPartnerURLs Dim retValue : retValue = "" If Len(strPartnerName) > 0 Then strPartnerName = UCase(strPartnerName) Else Exit Function End If Set objDictPartnerURLs = Server.CreateObject("Scripting.Dictionary") objDictPartnerURLs.Add "NETFLIX", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3378" objDictPartnerURLs.Add "UNINST_SHREDDER", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=2054" objDictPartnerURLs.Add "POINT_LOCK", "http://www.ahranta.com/download/mc30days.asp" 'objDictPartnerURLs.Add "REBATE_OFFER", GetRebateFormUrl() objDictPartnerURLs.Add "BLOCK_BUSTER", "http://www.mcafee.com" objDictPartnerURLs.Add "SYSTEM_MECHANIC", "http://promos.mcafee.com/systemMechanic/default.asp" objDictPartnerURLs.Add "WIN_BACKUP", "http://promos.mcafee.com/winbackup/default.asp" objDictPartnerURLs.Add "PEST_PATROL", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=4779" objDictPartnerURLs.Add "UNINSTALLER6.5", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=4908" objDictPartnerURLs.Add "MCAFEE_TRIAL", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=4833" objDictPartnerURLs.Add "ADSUBTRACT_PRO", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=4877" objDictPartnerURLs.Add "STEGANOS", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=5041" objDictPartnerURLs.Add "ANONYMIZER", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=5076" objDictPartnerURLs.Add "KESTRAL", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=5196" objDictPartnerURLs.Add "STUFFIT", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=5208" objDictPartnerURLs.Add "STORECOUPON", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=5401" objDictPartnerURLs.Add "IDGUARD", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=5222" objDictPartnerURLs.Add "SPAM_KILLER", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=5582" objDictPartnerURLs.Add "PC_MAGAZINE", "http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=5524" retValue = objDictPartnerURLs.Item(strPartnerName) Set objDictPartnerURLs = Nothing GetPartnerPromotionalURL = retValue '} End Function 'this function is not used Function GetRebateFormUrl() Dim retValue : retValue = "" Dim strService strService = Trim(GetPartnerOfferServiceFromCookie()) If Len(strService) = 0 Then Exit Function End If retValue = "http://" & HOMEPAGE_SERVER & "/myapps/rebate/" & strService & ".asp" GetRebateFormUrl = retValue End Function %>