<%response.buffer = true%> Cyberville - Contacts <%If request.form("Envoyer") = "Envoyer" and 1 = 1 then Set email = Server.CreateObject ("SMTPsvg.Mailer") email.FromName = "CYBERINFOVILLE" email.FromAddress = "form@form.fr" email.Subject = "CYBERVILLE - Contacts" BodyText = BodyText & request.form("champ1") & CHR(10) BodyText = BodyText & request.form("champ2") & CHR(10) BodyText = BodyText & request.form("champ3") & CHR(10) BodyText = BodyText & request.form("champ4") & CHR(10) BodyText = BodyText & request.form("champ5") & CHR(10) BodyText = BodyText & request.form("champ6") & CHR(10) BodyText = BodyText & request.form("champ7") & CHR(10) BodyText = BodyText & request.form("champ8") & CHR(10) BodyText = BodyText & request.form("champ9") & CHR(10) BodyText = BodyText & request.form("champ10") & CHR(10) email.BodyText = BodyText email.RemoteHost = "127.0.0.1" email.AddRecipient "","mail@cyberinfoville.com" If email.SendMail then response.write ("Email envoyé !") Else response.write "Email non-envoyé, l'erreur rencontrée est : " & email.Response End If Response.redirect "../html/confirmation.htm" End If %>
 
CYBERVILLE - Contacts
Retour
Pour obtenir plus d'informations,
merci de remplir le formulaire ci-dessous.


Nom :
Prénom :
Société :
Adresse :
Code postal :
Ville :
Téléphone :
Fax :
E-mail :
Message :