Mon site utilise un livre d'or tout simple qui à l'époque était fourni par mon hébergeur, Oléane.
Or, nous subissons régulièrement du SPAM sur ce livre, et depuis quelques temps, du spam pas bête qui fait un renvoi automatique vers un autre site, ce qui est assez gênant.
Mon livre est en ASP. Y'a t'il un moyen de mettre facilement une vérification de saisie (demander à l'internaute de saisir un chiffre demandée (aléatoire ou pas), etc) pour contrer les spams, je ne cherche pas spécialement LA méthode ultime, mais déjà faire un peu le ménage, c'est déjà beaucoup !.
Le code :
CODE
<%Set conn = Server.CreateObject("ADODB.Connection")
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=chemin ma BDD"
conn.Open connstring
If Request.Form("Envoyer") = "Poster le message" then
If request.form("nom") <> "" and request.form("email") <> "" and request.form("sujet") <> "" and request.form("message") <> "" then
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = "monmail_AT_domaine.com"
mail.From = "monmail_AT_domaine.com"
contenu = "Message posté le " & now & " par " & request("nom") & CHR(10)
contenu = contenu & "Corps du message :" & CHR(10) & request("message")
mail.Subject = "Un message a ete poste dans votre livre-d'or"
mail.Body = contenu
mail.Importance = 1
mail.Send
Set mail = nothing
contenu = Replace(Request.Form("message"), "'", "µ")
para = "INSERT INTO messages (auteur, email, sujet, message, date_msg) VALUES ('" & request("nom") & "','" & request("email") & "','" & request("sujet") & "','"& contenu &"', '" & now & "')"
conn.Execute(para)
else
Response.write "<font face=verdana color=red size=2><b>Merci, de remplir tout les champs !</b></font>"end if
end if
affich = "SELECT * FROM messages ORDER BY num DESC"
Set affiche = conn.Execute(affich)
%>
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=chemin ma BDD"
conn.Open connstring
If Request.Form("Envoyer") = "Poster le message" then
If request.form("nom") <> "" and request.form("email") <> "" and request.form("sujet") <> "" and request.form("message") <> "" then
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = "monmail_AT_domaine.com"
mail.From = "monmail_AT_domaine.com"
contenu = "Message posté le " & now & " par " & request("nom") & CHR(10)
contenu = contenu & "Corps du message :" & CHR(10) & request("message")
mail.Subject = "Un message a ete poste dans votre livre-d'or"
mail.Body = contenu
mail.Importance = 1
mail.Send
Set mail = nothing
contenu = Replace(Request.Form("message"), "'", "µ")
para = "INSERT INTO messages (auteur, email, sujet, message, date_msg) VALUES ('" & request("nom") & "','" & request("email") & "','" & request("sujet") & "','"& contenu &"', '" & now & "')"
conn.Execute(para)
else
Response.write "<font face=verdana color=red size=2><b>Merci, de remplir tout les champs !</b></font>"end if
end if
affich = "SELECT * FROM messages ORDER BY num DESC"
Set affiche = conn.Execute(affich)
%>
Merci de votre aide
Hésitez pas si j'ai oublié quelque chose à dire !
