<% 'ede le 04/06/2002 : gestion de l'indispo du site ' /*ED24 - le 30-avr-03 - Implémentation de DANETSecurity dans les modules auto et dah */ ' /*ED49 - le 07-nov-03 - Implémentation de DANETSecurity lot 2,0 dans les modules auto et dah */ Dim AdresseRejet Dim coderet Dim res, res2 Dim LOG,NatureLogOK Dim CTRL 'ED24 ' objets Dim LAN, MAN, PROP ' booléens erreurs de saisie Dim FormOK, FormErreur Dim mediaOK, supportOK ' FMAG 27/09/2005 : permet de mettre à jour les données campagnes via cookies en cas de perte de session UpdateDataByCampSublNew () ' adresses AdresseRejet = GotoFinSessionDAH Session("NomdelaPage") = "DAH_SL_LANC_000.asp" 'ede le 04/06/2002 : gestion de l'indispo du site if Application("IndispoSousDAH") or Application("IndispoTotale") then 'la souscription DAH est indispo ' Suivi Statistiques Visite Flux_visite 2,0,999,"Redirige sur DAH_SL_SRVINDISPO_001.asp" RedirigeSimple("/services/tarifdah/finpropobis/DAH_SL_SRVINDISPO_001.asp") end if ' vérifications if (isObject(Session("objDAHManager")) = false) or _ (isObject(Session("CTRL")) = false) or _ (isObject(Session("objDAHProposition")) = false) then ' Suivi Statistiques Visite Flux_visite 2,0,999,"Rejet 1" Redirige "http", AdresseRejet, "_self" end if if (Session("objDAHManager") is nothing) or _ (Session("CTRL") Is Nothing) Or _ (Session("objDAHProposition") is nothing) then ' Suivi Statistiques Visite Flux_visite 2,0,999,"Rejet 2" Redirige "http", AdresseRejet, "_self" end if ' création objets de sessionfile://C:\Documents and Settings\t.paris\Application Data\Microsoft\Internet Explorer\Quick Launch\Démarrer Internet Explorer.lnk Set Session("objDAHLanceur") = Session("objDAHManager").getLanceur Set Session("objDAHLogement") = Session("objDAHProposition").getlogement ' récupération objets de session Set LAN = Session("objDAHLanceur") Set MAN = Session("objDAHManager") Set PROP = Session("objDAHProposition") Set LOG = Session("objDAHLogement") Set CTRL = Session("CTRL") 'ED24 Session("SSL") = 0 Session("Ip") = Request.ServerVariables("REMOTE_HOST") Session("StartTimerDAH") = Timer Session("D0") = Request.Cookies("myCookie")("D0") Session("D1") = Request.Cookies("myCookie")("D1") Session("D2") = Request.Cookies("myCookie")("D2") if Session("PlateauHabitation")=True then call Session("objSession").setNom("") call Session("objSession").setPrenom("") call Session("objSession").setEmail("") call Session("objSession").setNumeroTelDomicile("") call Session("objSession").setNumeroTelprofession("") call Session("objSession").setNumeroFax("") call Session("objSession").setNumeroTelPortable("") call Session("objSession").setSexe(0) call Session("objSession").setTitre(0) call Session("objSession").setCodepostal("") call Session("objSession").setRue("") call Session("objSession").setComplementAdr1("") call Session("objSession").setComplementAdr2("") call Session("objSession").setLieuDit("") call Session("objSession").setOrig("") call Session("objSession").setCRMCP(1) call Session("objSession").setCodeAuto("") call Session("objSession").setCodepostal("") call Session("objSession").setLieuDit("") call Session("objSession").setNaissanceDate(0,0,0) call Session("objSession").setSitMat(0) end if if (Request.Form.Count > 0) then NatureLogOK = false '-- type de logement if len(Request.Form("NatureLog")) > 0 then NatureLogOK = LOG.settype_resid(CInt(Request.Form("NatureLog"))) else NatureLogOK = LOG.settype_resid(0) FormErreur = "Erreur type logement" end if '-- Synthèse FormOK = NatureLogOK if Request.Form("Suivant.x") and FormOK then If PROP.getCoefcampagne = 0 Then PROP.setCoefcampagne(100) End If ' PP119 : nouvel appel à TVisiteur en asynchrone Flux_visiteur2 100+DaSlUniversHabi,0,0, year(now()) & right("0"&month(now()),2) & right("0"&day(now()),2) ' Date de creation Flux_visiteur2 100+DaSlUniversHabi,0,1, LOG.gettype_resid ' Type de résidence ' fin PP119 ' Suivi Statistiques Visite Flux_visite 2,0,999,"Redirige sur DAH_SL_LANC_001.asp" RedirigeSimple "DAH_SL_LANC_001.asp" end if else ' Suivi Statistiques Visite Flux_visite 2,0,0,"" NatureLogOK = true FormOK = true 'ED24 initialisation de a sécurité sur application 1-DAH CTRL.Initialize_Application (1)' Initialisation de l'objet DANETSecurity pour l'application 1-DAH ED24 CTRL.StartTimer (1) 'Démarage du timer pour l'application 1-DAH ED24 CTRL.Set_id_visiteur (Session("objSession").getVisiteur) 'ED49 forçage de l'id visteur 'gestion cookie DAH DA avec "A2" et "A3" if (Session("isCookieSet") = "no") then Session("isCookieSet") = "yes" res = Request.Cookies("AB")("A2") Session("AncienCookieDAH") = Request.Cookies("AB")("A3") if (Cstr(res) = "") then res = Request.Cookies("StatsNbVisit")("A2") Session("AncienCookieDAH") = Request.Cookies("StatsNbVisit")("A3") end if Response.Cookies("StatsNbVisit").Expires = #1/1/2000# if (Cstr(res) = "") then Response.Cookies("AB")("A2") = 1 Response.Cookies("AB").Expires = #1/1/2020# else res = res + 1 Response.Cookies("AB")("A2") = res Response.Cookies("AB").Expires = #1/1/2020# end if 'alimentation cookie dans auto DA res2 = Session.SessionID Response.Cookies("AB")("A3") = res2 Response.Cookies("AB").Expires = #1/1/2020# end if end if %>

Démarrez le questionnaire

<%TypeFont(NatureLogOK)%> Votre demande de tarif concerne :
<%if not Session("Netscape") then%> onfocus="ShowDiv('indication');"<%end if%> ID="Radio5">Votre résidence principale
<%if not Session("Netscape") then%> onfocus="ShowDiv('indication');"<%end if%> ID="Radio6">Une résidence secondaire
<%if not Session("Netscape") then%> onfocus="ShowDiv('indication');"<%end if%> ID="Radio7">Un logement dont vous êtes propriétaire et que vous louez
<%if not Session("Netscape") then%> onfocus="ShowDiv('indication');"<%end if%> ID="Radio8">Un logement jamais occupé
<%'******************************* Plans rouges & Offres commerciales ********************************%> <%SearchForACPR "2", "0", "0" '*************************FIN du MARQUAGE Plans rouges & Offres commerciales ****************************%> <%if (not Formok) then%> <%end if%>