<%@ Language=VBScript%><% 'FM290 par ede le 22/06/2005 : ajout de la destination 22 pour En Direct V2V '20/11/2006 SCH : Support des Média / Support Santé dim codebocAuto, codebocDAH,MediaSupportSante, CampagneUsageSante, destination, dest, theme, adr codebocAuto = request.querystring("codebocauto") if (codebocAuto = "") then codebocAuto = 000000 end if codebocDAH = request.querystring("codebocdah") if (codebocDAH = "") then codebocDAH = 000000 end if MediaSupportSante = request.querystring("mediasupportsante") if (MediaSupportSante = "") then MediaSupportSante = 000000 end if CampagneUsageSante = request.querystring("campagneusagesante") if (CampagneUsageSante = "") then CampagneUsageSante = 000000 end if dest = request.querystring("destination") if (dest = "") or not (isnumeric(dest)) then dest = 0 end if 'numéro emailing theme = request.querystring("theme") if (theme = "") or not (isnumeric(theme)) then theme = 0 end if Select Case dest Case 0 destination = GotoIndex Case 1 destination = GotoTarifAuto Case 2 destination = GotoTarifDAH Case 3 destination = GotoAutoLoadSimul Case 4 destination = GotoNotreCompagnie Case 5 destination = GotoProduit Case 6 destination = "/espace_client/espace_client.asp" Case 7 destination = GotoEnDirectDAH Case 8 destination = GotoEnDirect Case 9 destination = GotoProduitDAH Case 11 destination = "/Endirect/garageservices.html" Case 12 destination = "/Endirect/pa.html" Case 13 destination = "/Endirect/ct.html" Case 14 destination = "/Endirect/parrainage.html" Case 15 destination = "/services/nouscontacter/da_contact_email.asp" Case 16 destination = GotoProduitMoto Case 17 destination = GotoTarifMoto Case 18 destination = "/Endirect/asi.html" Case 19 destination = "/Endirect/qualite_prix.html" Case 20 destination = "/Endirect/moto.html" Case 21 destination = "/Endirect/sin.html" Case 22 destination = "/Endirect/v2v.html" Case 23 destination = "/Endirect/conseil_hiver.html" Case 24 destination = "/Endirect/conseil_hiver.html" Case 25 destination = "/Endirect/pub.html" Case 26 destination = "/Endirect/chgtvoit.html" Case 27 destination = "/Endirect/gamme.html" Case 28 destination = "/Endirect/poll.html" Case 29 destination = "/Endirect/routendirect.html" Case 30 destination = "/Endirect/serv_proxi.html" Case 31 destination = "/Endirect/direct_hab.html" Case 32 destination = "/Endirect/jeune_cond.html" Case 33 destination = "/Endirect/dah_assistance.html" Case 34 destination = "/Endirect/pret_volant.html" Case 35 destination = "/Endirect/secu_route.html" Case 36 destination = "/Endirect/direct_sante.html" Case 37 destination = "/Endirect/ucar.html" Case 90 destination = GotoTarifSAnte Case 91 destination = GotoProduitSante Case 92 destination = GotoRemboursementsSante Case 93 destination = GotoTarifSAnte Case 100 adr = request.querystring("adresse") if (adr <> "") then destination = adr else destination = GotoIndex end if Case Else destination = GotoIndex End Select 'Affectation du code BOC sans redirection CAMPAGNE_SUBLIMINALE_RETURN "Lien_Emailing", "", Cint(left(codebocAuto,3)), Cint(right(codebocAuto,3)), Cint(left(codebocDAH,3)), Cint(right(codebocDAH,3)), Cint(left(MediaSupportSante,3)), Cint(right(MediaSupportSante,3)), Cint(left(CampagneUsageSante,3)), Cint(right(CampagneUsageSante,3)), "" 'suivi par Tfluxstat2 Flux_visite 16,0,2,theme & "-" & destination RedirigeSimple destination %>