<% recaptcha_challenge_field = Request.Form("recaptcha_challenge_field") recaptcha_response_field = Request.Form("recaptcha_response_field") recaptcha_public_key = "6Lc47soSAAAAAPoOcL9Yr5wzHTiWyrUiI3KtrPcI" ' your public key recaptcha_private_key = "6Lc47soSAAAAAPoKaee-ukzqZjoV73A2guXirzGG" ' your private key ' returns the HTML for the widget function recaptcha_challenge_writer() recaptcha_challenge_writer = _ "" & _ "" & _ "" end function ' returns "" if correct, otherwise it returns the error response function recaptcha_confirm(rechallenge,reresponse) Dim VarString VarString = _ "privatekey=" & recaptcha_private_key & _ "&remoteip=www.coramuc.fr" & _ "&challenge=" & rechallenge & _ "&response=" & reresponse Dim objXmlHttp Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "http://www.google.com/recaptcha/api/verify", False objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString Dim ResponseString ResponseString = split(objXmlHttp.responseText, vblf) Set objXmlHttp = Nothing if ResponseString(0) = "true" then 'They answered correctly recaptcha_confirm = "" else 'They answered incorrectly recaptcha_confirm = ResponseString(1) end if end function server_response = "" newCaptcha = True if (recaptcha_challenge_field <> "" or recaptcha_response_field <> "") then server_response = recaptcha_confirm(recaptcha_challenge_field, recaptcha_response_field) newCaptcha = False end if %> PETITION NATIONALE

PETITION NATIONALE
DE SOUTIEN A LA PROPOSITION DE LOI DE LA CORAMUC

Je soutiens la proposition de loi de la CORAMUC et je souhaite la voir déposée au plus tôt devant l'Assemblée Nationale.

<% if server_response <> "" or newCaptcha then %>

Civilité: * Indiquez votre civilité.

Nom: * Indiquez votre nom.

Prénom: * Indiquez votre prénom.

Adresse: * Indiquez votre adresse

Code postal: * Indiquez votre code postal

Ville: * Indiquez votre ville

Email: * Indiquez votre Email

N° adhérent:  Indiquez votre numéro d'adhérent CORAMUC

(si adhérent Coramuc)

Commentaire:  Saisissez votre commentaire

 
* Ces champs sont obligatoires.

<% if newCaptcha = False then %> Code Incorrect !! <% end if %> <%=recaptcha_challenge_writer()%>

Attention si vous avez mal recopié le code du crypto
vous devrez ressaisir la totalité du formulaire. Si vous avez un doute sur la lecture du crypto réactualiser le crypto afin d'en générer un autre plus lisible. Merci
<% else %> <% Function DBOpenConnection() Dim oDBConn Set oDBConn = Server.CreateObject("ADODB.Connection") oDBConn.Open SQLServ_DSN Set DBOpenConnection = oDBConn Set oDBConn = Nothing End Function Function DateForSQL(ThisDate) Dim Annee, Mois, Jour, Heure Annee = Year(ThisDate) Mois = Month(ThisDate) Jour = Day(ThisDate) Heure = Hour(ThisDate) & ":" & Minute(ThisDate) & ":" & Second(ThisDate) DateForSQL = Annee & "-" & Mois & "-" & Jour & " " & Heure End Function function DetectQuote(sTexte) If inStr(sTexte,"""")<>0 then DetectQuote = Replace(sTexte,"""","'") Else DetectQuote = sTexte End if If inStr(sTexte,"'")<>0 then DetectQuote = Replace(sTexte,"'","\'") Else DetectQuote = sTexte End if End function Dim textFile, inStream, Mailer, Message, fileObject Dim Email Message = "" blnSuccess = True ' Envoi des emails Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = "mail.perfea.fr" Mailer.From = "petition@coramuc.fr" Mailer.FromName = "Coramuc" Mailer.AddAddress "petition@coramuc.fr" Mailer.AddAddress "petition2@coramuc.fr" Mailer.Subject = "Pétition CORAMUC" 'Mailer.Username = SMTP_Account 'Mailer.Password = SMTP_Password Mailer.isHTML = true message = message & "Civilité : " & Server.HTMLEncode(Request.Form("id_1")) & "
" message = message & "Nom : " & Server.HTMLEncode(Request.Form("id_2")) & "
" message = message & "Prénom : " & Server.HTMLEncode(Request.Form("id_3")) & "
" message = message & "Adresse : " & Server.HTMLEncode(Request.Form("id_4")) & "
" message = message & "Code postal : " & Server.HTMLEncode(Request.Form("id_5")) & "
" message = message & "Ville : " & Server.HTMLEncode(Request.Form("id_6")) & "

" message = message & "Email : " & Server.HTMLEncode(Request.Form("id_7")) & "

" message = message & "N° Adhérent : " & Server.HTMLEncode(Request.Form("id_8")) & "
" message = message & "Commentaires : " & "
" & Server.HTMLEncode(Request.Form("id_10")) & "

" message = message & "Posté le : " & CStr(Date) & " a " & CStr(Time) & "
" Mailer.Body = Message On Error Resume Next Mailer.Send If Err <> 0 Then blnSuccess=false End if Err.clear Set Mailer = Nothing Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = "mail.perfea.fr" Mailer.From = "petition@coramuc.fr" Mailer.FromName = "Coramuc" Mailer.AddAddress Request.Form("id_7") Mailer.Subject = "Pétition CORAMUC" 'Mailer.Username = SMTP_Account 'Mailer.Password = SMTP_Password Mailer.isHTML = false Message = "Merci d'avoir signé la pétition de soutien à la proposition de loi de la CORAMUC." & vbCRLF & vbCRLF message = message & "C'est en étant uni que nous péréniserons la randonnée." & vbCRLF & vbCRLF message = message & "Pour suivre l'actualité de la CORAMUC (Confédération des Randonneurs Motorisés et Usagers des Chemins) rendez-vous sur notre site: http://www.coramuc.fr" & vbCRLF message = message & "Encore merci pour votre soutien." & vbCRLF & vbCRLF message = message & "Cordialement" & vbCRLF & vbCRLF message = message & "Le conseil d'Administation et le Bureau de la CORAMUC" & vbCRLF & vbCRLF Mailer.Body = Message On Error Resume Next Mailer.Send If Err <> 0 Then blnSuccess=false End if Err.clear Set Mailer = Nothing ' Enregistrement dans la base de données Dim SQLServ_DSN, SQLServ_Host, SQLServ_UserName, SQLServ_Password, SQLServ_Database SQLServ_Host = ".\SQLEXPRESS" SQLServ_UserName = "sa" SQLServ_Password = "GT45x59" SQLServ_Database = "CORAMUC" SQLServ_DSN = "driver={SQL Server}; server="& SQLServ_Host &";uid="& SQLServ_UserName &"; pwd="& SQLServ_Password &";database="& SQLServ_Database &"" Dim oCOnn, oRS, sSQL Set oConn = DBOpenConnection() sSQL = "INSERT INTO Petition (Civilite, Nom, Prenom, Adresse, CodePostal, Ville, Email, Numero, Commentaires, DateSignature) VALUES (" sSQL = sSQL & "'" & DetectQuote(Request.Form("id_1")) & "', " sSQL = sSQL & "'" & DetectQuote(Request.Form("id_2")) & "', " sSQL = sSQL & "'" & DetectQuote(Request.Form("id_3")) & "', " sSQL = sSQL & "'" & DetectQuote(Request.Form("id_4")) & "', " sSQL = sSQL & "'" & DetectQuote(Request.Form("id_5")) & "', " sSQL = sSQL & "'" & DetectQuote(Request.Form("id_6")) & "', " sSQL = sSQL & "'" & DetectQuote(Request.Form("id_7")) & "', " sSQL = sSQL & "'" & DetectQuote(Request.Form("id_8")) & "', " sSQL = sSQL & "'" & DetectQuote(Request.Form("id_10")) & "', " sSQL = sSQL & "'" & DateForSQL(Now()) & "')" oConn.Execute(sSQL) oConn.close() If blnSuccess Then %> <% Response.Redirect("/petition_merci.htm") %> <% else %> <% Response.Redirect("formulaire.asp") %> <% end if %> %> <%end if%>