<% Response.Redirect("../aider/faire-un-don-ponctuel.asp") %> <% set oConn = Server.CreateObject("ADODB.Connection") sConn =Session("ConnectionString") oConn.Open sConn msg="" montant_value="" Action = Left(UCase(Request("Action")),5) if Action="ENVOY" then if request("100F")<>"on" and request("200F")<>"on" and request("50E")<>"on" and request("500F")<>"on" and request("1000F")<>"on" and request("sumeuro")="" then msg = msg & "
Please enter the amount you wish to donate

" end if If msg <>"" or Request("nom")= "" or Request("prenom")= "" OR Request("adresse1")= "" OR Request("cp")= "" OR Request("ville")= "" OR Request("email")= "" Then msg = msg & "
Please complete all the fields marked with a *

" Else 'calcul du montant suivant les checkbox if request("100F")<>"" then montant=15 end if if request("200F")<>"" then montant=30 end if if request("50E")<>"" then montant=50 end if if request("500F")<>"" then montant=75 end if if request("1000F")<>"" then montant=150 end if if request("sumeuro")<>"" then montant=cint(request("sumeuro")) end if 'paiement en ligne 'num_commande=2001000+cint(minute(now))*100+cint(second(now)) num_commande=Year(now) & Month(now) & Day(now) & Hour(now) & Minute(now) & Second(now) Server.ScriptTimeout=300 Dim NGapi, tap, SessionNumber, OrderID, OrderDescription, Orderinfo, CardNumber, CardType, ExpDate Dim CardStartDate, CardIssue, VATNum, VATDeNum, Amount, CurrencyCode, CurrencySubUnit, MaxCaptures Dim MerchantID, CardPresent, PinUsed, NetgiroServerHost, NetgiroServerPort, TransactionChannel, ReferenceTransactionID Dim tapdescription, tapstatus, taptransactionID, splitbegin, splitend sessionNumber = Year(now) & Month(now) & Day(now) & Hour(now) & Minute(now) & Second(now) OrderID = num_commande & "-dons sur solidarites.org" OrderDescription = "Dons Généraux sur Solidarites.org" Orderinfo = num_commande CardNumber = Request ("cardnumber") CardType = Request ("cardtype") ExpDate = Request ("expiration_date") CardStartDate = "01-1998" CardIssue = "3" VATNum = "25" VATDeNum = "100" 'montant = Request ("montant") montant_ng = montant * 100 Amount = montant_ng CurrencyCode = "978" CurrencySubUnit = "100" MaxCaptures = "1" 'mettre le merchant id de mond.net MerchantID = "107110101" CardPresent = 0 PinUsed = 0 TransactionChannel = "web online" 'serveur de production soreco 'NetgiroServerHost = "195.101.212.150" NetgiroServerHost = "212.234.186.5" NetgiroServerPort = "2727" 'serveur netgiro suede 'NetgiroServerHost = "127.0.0.1" 'NetgiroServerPort = "10443" ''' Set NGapi=Server.CreateObject("ngapidll.ngapi.1") ''' tap=ngapi.NGASPdirectdebit( CStr(SessionNumber),CStr(OrderID),CStr(OrderDescription),CStr(Orderinfo),CStr(CardNumber),CStr(CardType),CStr(ExpDate),CStr(CardStartDate),CardIssue,VATNum,VATDeNum,Amount,CurrencyCode,CurrencySubUnit,CStr(MerchantID), CardPresent, PinUsed, CStr(NetgiroServerHost),NetgiroServerPort,CStr(TransactionChannel)) ''' splitbegin = instr(tap,"=") ''' splitend = instr(tap,"&") ''' tapdescription = mid(tap, splitbegin + 1, splitend - splitbegin -1) ''' splitbegin = instr(splitend,tap,"=") ''' splitend = instr(splitbegin,tap,"&") ''' tapstatus = mid(tap, splitbegin + 1, splitend - splitbegin -1) ''' splitbegin = instr(splitend,tap,"=") ''' taptransactionID = mid(tap, splitbegin + 1, len(tap) - splitbegin ) tapstatus=0 tapdescription=num_commande IF tapstatus=0 Then code_banque=tapdescription 'enreg dans la base jour_don=day(now) if len(jour_don)=1 then jour_don="0"&jour_don end if mois_don=month(now) if len(mois_don)=1 then mois_don="0"&mois_don end if date_don=year(now)&mois_don&jour_don adresse=request("adresse1")&"
"&request("adresse2") origine="Dons Généraux" recufiscal=1 sql = "INSERT INTO dons_echec(nom,prenom,adresse,cp,email,ville,montant,pays,cardholder,expiration_date,cardnumber,cardtype,date_don,origine,code_banque,message,recufiscal,tel)" sql = sql & "VALUES(" sql = sql & CheckString(Request("nom"),",") sql = sql & CheckString(Request("prenom"),",") sql = sql & CheckString(adresse,",") sql = sql & CheckString(Request("cp"),",") sql = sql & CheckString(Request("email"),",") sql = sql & CheckString(Request("ville"),",") sql = sql & Checknum(montant) &"," sql = sql & CheckString(Request("pays"),",") sql = sql & CheckString(Request("cardholder"),",") sql = sql & CheckString(Request("expiration_date"),",") sql = sql & CheckString(Request("cardnumber"),",") sql = sql & CheckString(Request("cardtype"),",") sql = sql & CheckString(date_don,",") sql = sql & CheckString(origine,",") sql = sql & CheckString(code_banque,",") sql = sql & CheckString(request("message"),",") sql = sql & Checknum(recufiscal) &"," sql = sql & CheckString(Request("tel"),"") sql = sql & ")" 'Response.Write SQL Set RS = oConn.Execute(SQl) 'On récupère le num du dernier don sql = "SELECT max(num) as maxi FROM dons_echec" Set RSmax = oConn.Execute(sql) Set num=Rsmax("maxi") 'Redirection vers la page de validation du paiement 'Set URL = "EnregPayementPaybox.asp?num=" & num response.redirect "https://mond.net/secure/solidarites/support/EnregPayementPaybox.asp?num=" & num END IF END IF end if '' Modif mathieu TexteMail=TexteMail & VbCrLf & "Message du site solidarites.org" '' Modif mathieu TexteMail=TexteMail & VbCrLf & "Opération : Dons Généraux " '' Modif mathieu TexteMail=TexteMail & VbCrLf & "Un don de "&montant& " euros vous a été fait, allez sur l'admin pour le consulter " '' Modif mathieu TexteMail=TexteMail & VbCrLf & "message du donateur : "& request("message") '' Modif mathieu TexteMail=TexteMail & VbCrLf & " " '' Modif mathieu TexteMail=TexteMail & VbCrLf & "Le serveur " '' Modif mathieu ref="ref-"&day(now)&"/"&month(now)&"/"&year(now)&"-"& Hour(time)&":"&Minute(time)&":"&Second(time) '' Modif mathieu Set Mailer = Server.CreateObject("SMTPsvg.Mailer") '' Modif mathieu Mailer.Charset=2 '' Modif mathieu Mailer.FromName = "Versement d'un don." '' Modif mathieu 'Mailer.FromAddress= "sleclezio@solidarites.org" '' Modif mathieu Mailer.FromAddress= "info@mond.net" '' Modif mathieu Mailer.RemoteHost = "solidarites.org" '' Modif mathieu Mailer.AddRecipient "solidarites", "sleclezio@solidarites.org" '' Modif mathieu Mailer.Subject = "Don pour Solidarités" '' Modif mathieu Mailer.BodyText = TexteMail '' Modif mathieu If Mailer.SendMail Then '' Modif mathieu resultatt= "Mail sent..." '' Modif mathieu Else '' Modif mathieu resultatt="mail pas envoyé" '' Modif mathieu End If '' Modif mathieu 'Mail.CharSet = 2 '' Modif mathieu 'Mail.remoteHost = serveur_mail '' Modif mathieu 'Mail.Bodytext = TexteMail '' Modif mathieu 'Mail.ReplyTo= Request("client_Email") '' Modif mathieu 'Mail.Subject = "Votre confirmation de commande sur Fromages.com" '' Modif mathieu 'Mail.FromName = " Service clientele - Fromages.com" '' Modif mathieu 'Mail.AddRecipient Request("Nom"),Request("client_Email") '' Modif mathieu 'Mail.fromaddress= "clients@fromages.com" '' Modif mathieu 'Mail.AddCC "service clients","clients@fromages.com" '' Modif mathieu '' Modif mathieu TexteMail2=TexteMail2 & VbCrLf & "Cher(e) "& Request("prenom")& " " & Request("nom")& "," '' Modif mathieu TexteMail2=TexteMail2 & VbCrLf & " " '' Modif mathieu TexteMail2=TexteMail2 & VbCrLf & "Nous avons bien reçu votre don de "&montant& " euros." '' Modif mathieu TexteMail2=TexteMail2 & VbCrLf & "Merci d'avoir apporté votre soutien à notre action humanitaire." '' Modif mathieu TexteMail2=TexteMail2 & VbCrLf & "Nous vous adresserons prochainement notre journal d'information." '' Modif mathieu TexteMail2=TexteMail2 & VbCrLf & " " '' Modif mathieu TexteMail2=TexteMail2 & VbCrLf & "Meilleures salutations," '' Modif mathieu TexteMail2=TexteMail2 & VbCrLf & "L'équipe de solidarites.org" '' Modif mathieu nom = request("prenom") & " " &request("nom") '' Modif mathieu ref="ref-"&day(now)&"/"&month(now)&"/"&year(now)&"-"& Hour(time)&":"&Minute(time)&":"&Second(time) '' Modif mathieu Set Mailer2 = Server.CreateObject("SMTPsvg.Mailer") '' Modif mathieu Mailer2.Charset=2 '' Modif mathieu Mailer2.RemoteHost = "solidarites.org" '' Modif mathieu Mailer2.BodyText = TexteMail2 '' Modif mathieu Mailer2.ReplyTo = Request("Email") '' Modif mathieu Mailer2.Subject = "Merci pour votre don" '' Modif mathieu Mailer2.FromName = "Solidarites.org" '' Modif mathieu Mailer2.AddRecipient nom, Request("email") '' Modif mathieu Mailer2.FromAddress= "sleclezio@solidarites.org" '' Modif mathieu if Mailer2.SendMail then '' Modif mathieu resultatt2= "Mail sent..." '' Modif mathieu else '' Modif mathieu resultatt2=" mail pas envoyé" '' Modif mathieu end If '' Modif mathieu '' Modif mathieu Response.redirect("donenligne/merci.htm") '' Modif mathieu ELSE '' Modif mathieu code_banque=tapdescription '' Modif mathieu 'enreg dans la base '' Modif mathieu jour_don=day(now) '' Modif mathieu if len(jour_don)=1 then '' Modif mathieu jour_don="0"&jour_don '' Modif mathieu end if '' Modif mathieu mois_don=month(now) '' Modif mathieu if len(mois_don)=1 then '' Modif mathieu mois_don="0"&mois_don '' Modif mathieu end if '' Modif mathieu date_don=year(now)&mois_don&jour_don '' Modif mathieu adresse=request("adresse1")&"
"&request("adresse2") '' Modif mathieu origine="Dons Généraux" '' Modif mathieu recufiscal=1 '' Modif mathieu sql = "INSERT INTO dons_echec(nom,prenom,adresse,cp,email,ville,montant,pays,cardholder,expiration_date,cardnumber,cardtype,date_don,origine,code_banque,message,recufiscal,tel)" '' Modif mathieu sql = sql & "VALUES(" '' Modif mathieu sql = sql & CheckString(Request("nom"),",") '' Modif mathieu sql = sql & CheckString(Request("prenom"),",") '' Modif mathieu sql = sql & CheckString(adresse,",") '' Modif mathieu sql = sql & CheckString(Request("cp"),",") '' Modif mathieu sql = sql & CheckString(Request("email"),",") '' Modif mathieu sql = sql & CheckString(Request("ville"),",") '' Modif mathieu sql = sql & Checknum(montant) &"," '' Modif mathieu sql = sql & CheckString(Request("pays"),",") '' Modif mathieu sql = sql & CheckString(Request("cardholder"),",") '' Modif mathieu sql = sql & CheckString(Request("expiration_date"),",") '' Modif mathieu sql = sql & CheckString(Request("cardnumber"),",") '' Modif mathieu sql = sql & CheckString(Request("cardtype"),",") '' Modif mathieu sql = sql & CheckString(date_don,",") '' Modif mathieu sql = sql & CheckString(origine,",") '' Modif mathieu sql = sql & CheckString(code_banque,",") '' Modif mathieu sql = sql & CheckString(request("message"),",") '' Modif mathieu sql = sql & Checknum(recufiscal) &"," '' Modif mathieu sql = sql & CheckString(Request("tel"),"") '' Modif mathieu sql = sql & ")" '' Modif mathieu 'Response.Write SQL '' Modif mathieu Set RS = oConn.Execute(SQl) '' Modif mathieu 'Response.Write(tapdescription) '' Modif mathieu 'le paiement s'est mal déroule redirect '' Modif mathieu if left(code_banque,7)="NetGiro" then '' Modif mathieu Response.redirect("donenligne/refuse_netgiro.htm") '' Modif mathieu else '' Modif mathieu Response.redirect("donenligne/refuse.htm") '' Modif mathieu end if '' Modif mathieu '' Modif mathieu END IF'netgiro end if '' Modif mathieu END IF '' Modif mathieu end if %> Solidarités - Make a donation
HomeOur VocationOur ProgrammesJoin UsSupport UsNewsCont@ct Us
Your donations in action
Make a donation
Donations in Kind
Become our Partner
 Envoyer un Don


Solidarités' action is supported by nearly 60,000 private donors,
as well as by other charities, foundations and companies. This support is essential.

To support our humanitarian action, you can:

make a secure on-line donation. Your credit card transaction will be carried out on our secure SSL serveur to ensure total confidentiality. More information ...
send your donation by cheque to:
SOLIDARITES INTERNATIONAL - Villa Souchet - 105 Avenue Gambetta - 75020 Paris
set up a standing order
to support Solidarités work on a regular basis
I would like to support Solidarités humanitarian action.
To make your donation, please fill in the donation form below
Please choose the amount that you wish to donate: After your tax reduction (75%), your donation only represents:
(French taxpayers only)
> 15 € (19.59 $ - see note *) 3,75 €
> 30 € (39.17 $ - see note *) 7,5 €
> 50 € (65.30 $ - see note *) 12,5 €
> 75 € (97.95 $ - see note *) 18,75 €
> 150 € (195.90 $ - see note *) 37,5 €
Other amount: €  
* The US dollar equivalent amounts are only given as an indication and are based on exchange rates on February 18th, 2005. For today's exchange rates, click here.
Please note that all donations will be debited in Euros, and that a transaction fee or exchange commission may be charged by your bank if your account is held in a currency other than Euros.
Please fill in your contact details:
* - Mandatory fields<%=msg%>
Surname: *
 " size="25">
First name: *
 " size="25">
Address: *
 " size="25">
" size="25">
Postal code: *
 " size="25">
Town / City: *
 " size="25">
E-mail : *
 " size="25">
Téléphone :
" size="25">
I would like to write a short message to the Solidarités team
(type your message below):

To make a secure on-line donation,
please click the button "continue" below to proceed to our secure server and enter your credit card details.

To send us your donation by cheque, please print your donation form by clicking on the "print" button, and send it along with your cheque to:
 SOLIDARITES INTERNATIONAL - Villa Souchet - 105 avenue Gambetta- 75020 PARIS

 
New French tax law as of January 1st, 2005, French taxpayers can now deduct up to 75% of their donations.
Therefore, a donation of 50 euros only really costs you 12.50 euros.

In 2005, over 1 300 000 people were assisted by our humanitarian programmes

 
I will receive a tax receipt so that I may deduct my donation from my taxes.

TAX REDUCTION: If you are a French taxpayer, we will send you a tax receipt as soon as we receive your donation, which will allow you to deduct 75% of your donation from your income tax, up to a ceiling of 470 € per annum. Over and above this amount, you may deduct 66% of your donation within 20% of your net taxable income. Therefore a donation of 15 € only really costs you 3.75 €.

In accordance with French Law N° 78-17 (6 janvier 1978) concerning the liberty and protection of personal information (CNIL), all users who have entered nominative data on this site may request that this data be sent to them and/or that it be modified by contacting Solidarités - Service Donateurs, Villa Souchet, 105 avenue Gambetta, 75020 PARIS or to info@solidarites.org.
Home | Our Vocation | Our Programmes | Join Us | Support Us | News | Cont@ct Us | Version Française