<% ' 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 %> IFOP •
Ifop Europe <!-- 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); //--> Ifop Ifop Ifop
IFOP • LA SOLUTION GLOBALE EN INTELLIGENCE MARKETING Ifop This page is avaiable in English
Groupe Ifop
Outils
Secteurs d'activité
Banuqe des sondages
Espace presse
Recrutement
Newsletter


Ifop Europe
Ifop Amérique Nord
Ifop Amérique Latine
Ifop Asie

Pour faire partie de notre panel d'internautes, merci de répondre à ce questionnaire :

Civilité Mme Melle M
Nom
Prénom
Société
Profession
Code postal ex : 76170
Pays

Année de naissance

//
jj/mm/aaaa

E-mail

Téléphone

Je souhaite recevoir la newsletter de l'Ifop

 



 

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




| Plan du site | Contact | Mentions légales |

© 2000 Ifop. Tous droits réservés.