Pétition
au premier ministre Monsieur le Premier Ministre, En tant que ruraux nous sommes
chaque jour et par obligation utilisateurs des routes secondaires. NON à ces mesures qui n'ont aucun fondement en matière
de sécurité routière et qui viennent, une fois
de plus, affaiblir une cohésion sociale rurale fragile et
mise régulièrement à rude épreuve. |
|
<% If Request.ServerVariables("REQUEST_METHOD") <> "POST" 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 recaptcha_secret, sendstring, objXML
' Secret key
recaptcha_secret = "6LdKolQUAAAAACQwGmG255we9qlHoVVyIDofUx3B"
sendstring = "https://www.google.com/recaptcha/api/siteverify?onload=onloadCallback&render=explicit&secret=" & recaptcha_secret & "&response=" & Request.form("g-recaptcha-response")
Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXML.Open "GET", sendstring, False
objXML.Send
dim result, oJSON, success, action, errorCapatcha, errorMsg
result = (objXML.responseText)
Set car = JSON.parse(result)
if car.success = True then
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 80 CORAMUC"
Mailer.Username = "petition@coramuc.fr"
Mailer.Password = "pl2008pm"
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 & "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 80 CORAMUC" Mailer.Username = "petition@coramuc.fr" Mailer.Password = "pl2008pm" Mailer.isHTML = true Message = " Merci d'avoir signé la pétition de la CORAMUC. C'est en étant uni et solidaire, que nous pourrons faire entendre la voix des automobilistes et notamment des usagers ruraux, victimes dans leur vie quotidienne d'une répression routière toujours plus forte et injuste et d'une pression fiscale insoutenable sous prétexte de sécurité routière. " & vbCRLF & vbCRLF message = message & "Merci de faire signer et circuler cette pétition auprès de tous vos amis et contacts. " & vbCRLF & vbCRLF message = message & "Pour signer la pétition cliquez ici " & vbCRLF & vbCRLF message = message & "Pour télécharger l'affiche cliquez ici " & 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: cliquez ici " & vbCRLF & vbCRLF message = message & "Encore merci pour votre soutien. " & vbCRLF & vbCRLF message = message & "Cordialement " & vbCRLF & vbCRLF message = message & "Le Conseil d'Administration 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 = "BACKUP\SQLEXPRESS2" 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 Petition80 (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 & "'0', " sSQL = sSQL & "'" & DetectQuote(Request.Form("id_10")) & "', " sSQL = sSQL & "'" & Now() & "')" oConn.Execute(sSQL) oConn.close() else Response.Write("ERREUR !!") blnSuccess = false end if If blnSuccess Then %> <% Response.Redirect("/petition80/petition_merci.htm") %> <% else %> <% Response.Redirect("/petition80/formulaire.asp") %> <% end if %> <% end if %> |