<%@ Language=VBScript %> <% Dim idCntr, nom, prenom, dest, theme, destination, infoVehicule ' récupération des parmaètres d'entrée idCntr = Request.QueryString("idCntr") nom = Request.QueryString("nom") prenom = Request.QueryString("prenom") destination = Request.QueryString("destination") theme = request.QueryString("theme") 'numéro emailing infoVehicule = request.QueryString("infoVehicule") if (theme = "") or not (isnumeric(theme)) then theme = 0 end if if (dest = "") or not (isnumeric(dest)) then dest = 0 end if Select Case destination Case 0 ' par défaut destination = "/DA.WEB.PS.EspacePerso.Web/Accueil.aspx" Case 1 ' menu principal destination = "/DA.WEB.PS.EspacePerso.Web/Accueil.aspx" Case 2 ' consultation contrat destination = "/DA.WEB.PS.EspacePerso.Web/Accueil.aspx" Case 3 ' déclaration changement de véhicule destination = "/DA.WEB.PS.EspacePerso.Web/ChangementVehicule.aspx" Case 4 ' prélèvement automatique destination = "/DA.WEB.PS.MoteurRendu.ECoupon.Web/DAWebECoupons/Services.aspx?commande=selectionnerGroupe;GroupePrelevementAutomatique" Case 5 ' souscription à la GPC destination = "/DA.WEB.PS.MoteurRendu.ECoupon.Web/DAWebECoupons/Services.aspx?commande=selectionnerGroupe;GroupeAjoutGPC" Case 6 ' déclaration d'un conducteur accompagné destination = "/DA.WEB.PS.MoteurRendu.ECoupon.Web/DAWebECoupons/Services.aspx?commande=selectionnerGroupe;GroupeDeclarationConducteurAccompagne" Case 7 ' ajout d'une caravane destination = "/DA.WEB.PS.MoteurRendu.ECoupon.Web/DAWebECoupons/Services.aspx?commande=selectionnerGroupe;GroupeAjoutRemorqueCaravane" Case 8 ' changement adresse postale destination = "/DA.WEB.PS.EspacePerso.Web/InfosPersosSelectionContrat.aspx?ecoupon=ChangementAdressePostale" Case 9 ' changement email destination = "/DA.WEB.PS.EspacePerso.Web/InfosPersoChangementEmail.aspx" Case 10 ' changement numéro de téléphone destination = "/DA.WEB.PS.EspacePerso.Web/InfosPersoChangementEmail.aspx" Case 11 ' changement coordonnées bancaires destination = "/DA.WEB.PS.EspacePerso.Web/InfosPersosSelectionContrat.aspx?ecoupon=ChangementCoordonneesBancaires" 'Case 12 ' demande de carte verte ' destination = "" Case 13 ' attestation conduite accompagnée destination = "/DA.WEB.PS.MoteurRendu.ECoupon.Web/DAWebECoupons/Services.aspx?commande=selectionnerGroupe;GroupeConduiteAccompagnee" Case 14 ' attestation d'assurance habitation destination = "/DA.WEB.PS.MoteurRendu.ECoupon.Web/DAWebECoupons/Services.aspx?commande=selectionnerGroupe;GroupeAssuranceHabitation" Case 15 ' attestation responsabilité civile destination = "/DA.WEB.PS.MoteurRendu.ECoupon.Web/DAWebECoupons/Services.aspx?commande=selectionnerGroupe;GroupeResponsabiliteCivileHabitation" Case 16 ' attestation responsabilité civile scolaire destination = "/DA.WEB.PS.MoteurRendu.ECoupon.Web/DAWebECoupons/Services.aspx?commande=selectionnerGroupe;GroupeResponsabiliteCivileScolaire" Case 17 ' coupon parainage destination = "/DA.WEB.PS.MoteurRendu.Auto.Web/DAWEBAUTO/pageParrainage.aspx" Case 18 ' coupon LEN Information Légales destination = "/DA.WEB.PS.MoteurRendu.ECoupon.Web/DAWebECoupons/Services.aspx?commande=selectionnerGroupe;ChangementInformationsCommunication" Case Else ' par défaut destination = "/DA.WEB.PS.EspacePerso.Web/Accueil.aspx" End Select 'suivi par Tfluxstat2 Flux_visite 16, 0, 2, theme & "-" & destination %>