<% r=Trim(Request("r")) If Cstr(r) = "1" Then Set RS = Server.CreateObject("ADODB.Recordset") RS.open "Select * From Contact Where 1 = 2;", dbConn, 1, 3 RS.AddNew if Request.Form("Surname") <> "" then RS("Surname") = Request.Form("Surname") if Request.Form("Firstname") <> "" then RS("Firstname") = Request.Form("Firstname") if Request.Form("Sector") <> "" then RS("Sector") = Request.Form("Sector") if Request.Form("Adress") <> "" then RS("Adress") = Request.Form("Adress") if Request.Form("Phone") <> "" then RS("Phone") = Request.Form("Phone") if Request.Form("Gsm") <> "" then RS("Gsm") = Request.Form("Gsm") if Request.Form("Fax") <> "" then RS("Fax") = Request.Form("Fax") if Request.Form("Email") <> "" then RS("Email") = Request.Form("Email") if Request.Form("Message") <> "" then RS("Message") = Request.Form("Message") if Request.Form("okres") <> "" then RS("okres") = 1 RS.Update RS.Close dbConn.Close end if %>
Contactez-nous
Nous recrutons
Lettre d'information
Réalisation Pyxicompyxicom
Nous sommes le
<% If Cstr(r)<>"1" Then %>
Nom *
Prénom *
Fonction
Secteur
Adresse
Téléphone **
GSM **
Fax **
Email **
Votre demande *
Je désire recevoir la lettre d'info
* champ obligatoire
* * un des 4 champs est obligatoire.

<% End If %> <% If Cstr(r)="1" Then %>







Nous avons pris en compte votre demande et nous vous en remercions.
Nos commerciaux vous contacterons dans les plus brefs délais.

<% End If %>