<%response.buffer = true%>
hotel Bretagne Restaurant gastonomique Aigue Marine, piscine Hotel Côtes D'armor à Tréguier
<%If request.form("Envoyer") = "Envoyer" and Request.Form("champ1") <> "" and Request.Form("champ2") <> "" and Request.Form("champ3") <> "" and Request.Form("champ4") <> "" and Request.Form("champ5") <> "" and Request.Form("champ6") <> "" and Request.Form("champ7") <> "" and Request.Form("champ8") <> "" and Request.Form("champ9") <> "" and 1 = 1 then
Set email = Server.CreateObject ("SMTPsvg.Mailer")
email.FromName = ""
email.FromAddress = request.form("email_from")
email.Subject = "Réservation à partir du site www.aiguemarine-hotel.com"
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 = email.BodyText & request.form("champ10") & CHR(10)
email.BodyText = BodyText
email.RemoteHost = "127.0.0.1"
email.AddRecipient "vous","lelievre.renald@free.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.aiguemarine-hotel.com/finresa.htm"
else
Response.Write erreur
end if
Else
Response.write "Merci de remplir tout les champs requis."
End If %>
Réservations
Vous pouvez éditer ce formulaire HTML avec votre logiciel préféré (FrontPage, Dreamweaver) afin de le mettre en page, par-contre ne modifiez pas le code ASP.