% ' FP_ASP Script ASP généré automatiquement par un composant FrontPage. Ne pas modifier. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossible de créer la connexion" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossible de créer un jeu d'enregistrements" fp_conn.Open Application("nom_ConnectionString") FP_DumpError strErrorUrl, "Impossible d'ouvrir la base de données" fp_rs.Open "Résultats", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossible d'ouvrir le jeu d'enregistrements" fp_rs.AddNew FP_DumpError strErrorUrl, "Impossible d'ajouter un nouveau jeu d'enregistrements à la base de données" Dim arFormFields0(13) Dim arFormDBFields0(13) arFormFields0(0) = "PROFESSION" arFormDBFields0(0) = "PROFESSION" arFormFields0(1) = "CIVILITE" arFormDBFields0(1) = "CIVILITE" arFormFields0(2) = "TELEPHONE" arFormDBFields0(2) = "TELEPHONE" arFormFields0(3) = "DEPT" arFormDBFields0(3) = "DEPT" arFormFields0(4) = "AnNais" arFormDBFields0(4) = "AnNais" arFormFields0(5) = "MoisNais" arFormDBFields0(5) = "MoisNais" arFormFields0(6) = "NOM" arFormDBFields0(6) = "NOM" arFormFields0(7) = "JourNais" arFormDBFields0(7) = "JourNais" arFormFields0(8) = "PRENOM" arFormDBFields0(8) = "PRENOM" arFormFields0(9) = "EMAIL" arFormDBFields0(9) = "EMAIL" arFormFields0(10) = "SOCIETE" arFormDBFields0(10) = "SOCIETE" arFormFields0(11) = "NEWSLETTER" arFormDBFields0(11) = "NEWSLETTER" arFormFields0(12) = "PAYS" arFormDBFields0(12) = "PAYS" FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nom_de_l'ordinateur_distant" End If If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nom_d'utilisateur" End If FP_SaveFieldToDB fp_rs, Now, "Date_de_dernière_modification" If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Type_de_navigateur" End If fp_rs.Update FP_DumpError strErrorUrl, "Impossible de mettre à jour la base de données" fp_rs.Close fp_conn.Close Response.Redirect "index.htm" End If End If %>
![]() |
<!-- vbrowser="other"; if(((navigator.appName == "Microsoft Internet Explorer") && (parseInt(navigator.appVersion) < 4 )))vbrowser="ie3"; if(((navigator.appName == "Microsoft Internet Explorer") && (parseInt(navigator.appVersion) >= 4 )))vbrowser="ie4"; if(((navigator.appName == "Netscape") && (parseInt(navigator.appVersion) >= 4 )))vbrowser="ns4"; if(((navigator.appName == "Netscape") && (parseInt(navigator.appVersion) < 4 )))vbrowser="ns3"; function MM_swapImgRestore() { //v3.0 var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc; } function MM_swapImage() { //v3.0 var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3) if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];} } function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } function MM_displayStatusMsg(msgStr) { //v1.0 status=msgStr; document.MM_returnValue = true; } function MM_preloadImages() { //v3.0 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array(); var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++) if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} } MM_reloadPage(true); //--> | ![]() |
![]() |
![]() |
|||||||||||||||
|
|||||||||||||||||||
![]()
En application des articles 27 et 34 de la loi dite "Informatique et libertés" n° 78-17 du 6 janvier 1978, vous disposez d'un droit de modification ou de suppression des données qui vous concernent. Si vous souhaitez exercer ce droit, écrivez à IFOP, 6 rue Eugène Oudiné - 75013 PARIS ou envoyez un message électronique à webmaster@ifop.com |
|||||||||||||||||||
| |
|||||||||||||||||||
| |||||||||||||||||||