<%response.buffer = true%> Contact


<%If request.form("Envoyer") = "Envoyer / Submit / Enviò" and Request.Form("champ1") <> "" and Request.Form("email_from") <> "" then Set email = Server.CreateObject ("SMTPsvg.Mailer") email.FromName = request.form("champ1") email.FromAddress = request.form("email_from") email.Subject = "Demande d'information" BodyText = "De : " & request.form("champ1") & CHR(10) BodyText = BodyText & "Société : " & request.form("champ2") & CHR(10) BodyText = BodyText & "Activité : " & request.form("champ3") & CHR(10) BodyText = BodyText & "Ville : " & request.form("champ4") & CHR(10) BodyText = BodyText & "Pays : " & request.form("champ5") & CHR(10) BodyText = BodyText & "Site Internet : " & request.form("champ6") & CHR(10) BodyText = BodyText & " Demande :" & CHR(10) & request.form("champ7") & CHR(10) email.BodyText = BodyText email.RemoteHost = "127.0.0.1" email.AddRecipient "CTA","eperez@cta.fr" If email.SendMail then erreur = "Email ok" Else erreur = "Email non-envoyé, l'erreur rencontrée est : " & email.Response End If If erreur = "Email ok" then Response.redirect "http://www.cta.fr" else Response.Write erreur end if Else Response.write "Merci de remplir tout les champs requis (*)" End If %>
Nom / Name / Apellido *
Société / Company / Empresa
Activité / Activity / Activitad
Ville / City / Ciudad
Pays / Country / País
Website
Texte / Text / texto
E-mail *


CTA, ZA du Caillou, 3 rue Jules Verne, F69630 Chaponost - France
Tél : +33 (0)4 78 56 70 70 - Fax : +33 (0)4 78 56 17 31 - E-mail : info@cta.fr