<%' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1036 Err.Clear 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, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("privileges_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Table1", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(27) Dim arFormDBFields0(27) Dim arFormValues0(27) arFormFields0(0) = "codepostal" arFormDBFields0(0) = "codepostal" arFormValues0(0) = Request("codepostal") arFormFields0(1) = "ventemodel1" arFormDBFields0(1) = "ventemodel1" arFormValues0(1) = Request("ventemodel1") arFormFields0(2) = "vente1" arFormDBFields0(2) = "vente1" arFormValues0(2) = Request("vente1") arFormFields0(3) = "villepays" arFormDBFields0(3) = "villepays" arFormValues0(3) = Request("villepays") arFormFields0(4) = "ventemodel2" arFormDBFields0(4) = "ventemodel2" arFormValues0(4) = Request("ventemodel2") arFormFields0(5) = "vente2" arFormDBFields0(5) = "vente2" arFormValues0(5) = Request("vente2") arFormFields0(6) = "nom" arFormDBFields0(6) = "nom" arFormValues0(6) = Request("nom") arFormFields0(7) = "actuelle1" arFormDBFields0(7) = "actuelle1" arFormValues0(7) = Request("actuelle1") arFormFields0(8) = "email" arFormDBFields0(8) = "email" arFormValues0(8) = Request("email") arFormFields0(9) = "actuelle2" arFormDBFields0(9) = "actuelle2" arFormValues0(9) = Request("actuelle2") arFormFields0(10) = "achatmodel1" arFormDBFields0(10) = "achatmodel1" arFormValues0(10) = Request("achatmodel1") arFormFields0(11) = "quot" arFormDBFields0(11) = "quot" arFormValues0(11) = Request("quot") arFormFields0(12) = "achatmodel2" arFormDBFields0(12) = "achatmodel2" arFormValues0(12) = Request("achatmodel2") arFormFields0(13) = "commentaires" arFormDBFields0(13) = "commentaires" arFormValues0(13) = Request("commentaires") arFormFields0(14) = "clas" arFormDBFields0(14) = "clas" arFormValues0(14) = Request("clas") arFormFields0(15) = "telephone1" arFormDBFields0(15) = "telephone1" arFormValues0(15) = Request("telephone1") arFormFields0(16) = "telecopie" arFormDBFields0(16) = "telecopie" arFormValues0(16) = Request("telecopie") arFormFields0(17) = "telephone2" arFormDBFields0(17) = "telephone2" arFormValues0(17) = Request("telephone2") arFormFields0(18) = "rue" arFormDBFields0(18) = "rue" arFormValues0(18) = Request("rue") arFormFields0(19) = "achat1" arFormDBFields0(19) = "achat1" arFormValues0(19) = Request("achat1") arFormFields0(20) = "actuelmodel1" arFormDBFields0(20) = "actuelmodel1" arFormValues0(20) = Request("actuelmodel1") arFormFields0(21) = "telephone3" arFormDBFields0(21) = "telephone3" arFormValues0(21) = Request("telephone3") arFormFields0(22) = "achat2" arFormDBFields0(22) = "achat2" arFormValues0(22) = Request("achat2") arFormFields0(23) = "actuelmodel2" arFormDBFields0(23) = "actuelmodel2" arFormValues0(23) = Request("actuelmodel2") arFormFields0(24) = "sp" arFormDBFields0(24) = "sp" arFormValues0(24) = Request("sp") arFormFields0(25) = "berl" arFormDBFields0(25) = "berl" arFormValues0(25) = Request("berl") arFormFields0(26) = "contact" arFormDBFields0(26) = "contact" arFormValues0(26) = Request("contact") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "privilege_results.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Privilege

AUTODROME BULLETIN

Abonnez-vous gratuitement à "AUTODROME BULLETIN", qui vous sera adressé par email...les avantages pour vous sont clairs:

- vous êtes informé(e) en avant-première, avant leur mise en vente, d'automobiles sélectionnées proposées par Autodrome à des prix préférentiels.

- vous recevez des indications sur les tendances du marché, les opportunités.

- vous prenez connaissance de réflexions et chroniques publiées par l'équipe d'Autodrome-Cannes.

Bienvenue au "club" !   L'équipe d'Autodrome-Cannes.


Toutes ces informations sont facultatives. Vous pouvez vous abonner à Autodrome Bulletin sans les fournir.

Quel type d'automobile vous intéresse plus particulièrement (plusieurs réponses possibles)?

Sportive ou Haute performance    Berline ou luxe    Classique ou Collection   Usage quotidien

Quelle(s) automobile(s) utilisez-vous actuellement ?

1 -     modèle ou précisions :
2 -     modèle ou précisions :

Quelles automobiles envisageriez-vous de vendre ?

1 -     modèle ou précisions :
2 -     modèle ou précisions :

Quelles automobiles envisageriez-vous éventuellement d'acheter ?

1 -     modèle ou précisions :
2 -     modèle ou précisions :

A ce sujet (achat ou vente), merci de préciser vos instructions à l'égard d'Autodrome :

Je ne souhaite pas être contacté pour le moment à ce propos.

Je suis disposé à examiner une offre éventuelle.

Si vous le souhaitez, indiquez vos coordonnées (vous ne serez contacté que si vous nous y avez autorisés ci-dessus :

Prénom, Nom
Téléphone 1 (domicile)
Téléphone 2 (travail)
Téléphone 3 (mobile)
Télécopie
Adresse : rue et numéro
Adresse : code postal
Adresse : ville / pays

N'hésitez pas à nous faire part de vos commentaires ci-dessous :

Abonnez-vous gratuitement en deux étapes :
1 - Indiquez ici votre adresse email (indispensable):

2 - Cliquez sur le bouton  :

politique de confidentialité

Autodrome-Bulletin vous en montre davantage...

Une Zonda S Roadster dépourvue de ses capots dans les ateliers de Pagani Automobili.

Copyright © 2002 Autodrome-Cannes. Tous droits réservés. Last update / dernière révision : 28-May-2004.