% 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
|
<% if server_response <> "" or newCaptcha then %>
<% 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%> |