<% If request.form="" then 'If (request("a")<>"") then 'Response.write("Repita por favor el envío del formulario porque ha habido un error" 'End if %>

 

 

APPEL AU SECRETAIRE GENERAL DES NATIONS UNIES

LLAMAMIENTO AL SECRETARIO GENERAL DE LAS NACIONES UNIDAS

APPEAL TO THE SECRETARY GENERAL OF THE UNITED NATIONS

APPELLO  AL SEGRETARIO GENERALE  DELLE  NAZIONI UNITE

نداء إلى الأمين العام للأمم المتّحدة

 

Campagne lancée par la Task Force et le Comité belge de soutien au peuple sahraoui

Campaña promovida desde la Task Force y la Asociación Belga de Amigos del Pueblo Saharaui

Campaign launched by  the Task Force and Belgian Committee of Support to the Saharawi People

Campagna lanciata dalla Task Force e dal Comitato belga di sostegno al popolo sahrawi

 

Terminé - Closed - Cerrado - Chiuso


Merci- Gracias - Thank you -  Grazie
 

 

 

<% else Set conexion = Server.CreateObject ("ADODB.Connection") conexion.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\bd\clientes\umdraiga\Eventos.mdb" Set RSH=CreateObject("ADODB.Recordset") RSH.Open "Campana", conexion, adOpenStatic, adCmdTable RSH.AddNew RSH("Nombre") = Request.Form("nombre") RSH("Profesion") = Request.Form("profesion") RSH("Ciudad") = Request.Form("ciudad") RSH("Pais") = Request.Form("pais") RSH.UpDate RSH.close ' SE ACABA LA INSERCION DE DATOS EN LA BASE DE DATOS '********************************************************************************************* '********************************Mensaje para enviar por correo******************************* '********************************************************************************************* mensaje = "Monsieur le Secrétaire Général," & VbCrLf & VbCrLf mensaje = mensaje &"Au cours du mois d’avril vous ferez rapport au Conseil de Sécurité des avancées " & VbCrLf mensaje = mensaje &"dans le dossier du Sahara Occidental." & VbCrLf & VbCrLf mensaje = mensaje &"Et c’est pour le respect des droits fondamentaux à l’autodétermination du peuple" & VbCrLf mensaje = mensaje &"sahraoui que nous vous adressons cet appel." & VbCrLf & VbCrLf mensaje = mensaje &"Monsieur le Secrétaire Général," & VbCrLf & VbCrLf mensaje = mensaje &"- La question du Sahara Occidental est une question de décolonisation, aux termes" & VbCrLf mensaje = mensaje &"de la Charte des Nations Unies et de la résolution 1514(XV) et 1541 (XV) de " & VbCrLf mensaje = mensaje &"l’Assemblée Générale des Nations Unies du 20 décembre 1960. Elle engage donc la" & VbCrLf mensaje = mensaje &"responsabilité directe de l’ONU." & VbCrLf & VbCrLf mensaje = mensaje &"- L’ONU, à travers des résolutions de l’Assemblée Générale et du Conseil de Sécurité," & VbCrLf mensaje = mensaje &"réaffirme à maintes reprises le Droit à l’autodétermination du peuple sahraoui et a" & VbCrLf mensaje = mensaje &"développé plusieurs plans de règlement pour le conflit, notamment : " & VbCrLf & VbCrLf mensaje = mensaje &"-  Le Plan de règlement des Nations Unies, approuvé par le Conseil de Sécurité par " & VbCrLf mensaje = mensaje &"ses résolutions 658 du 27 juin 1990 et 690 du 29 avril 1991." & VbCrLf mensaje = mensaje &"- Les Accords de Houston, signés en septembre 1997 par les deux parties en conflit." & VbCrLf & VbCrLf mensaje = mensaje &"- Le Plan pour l’autodétermination du peuple sahraoui, élaboré par M. J.Baker III" & VbCrLf mensaje = mensaje &"à la demande du Conseil de Sécurité et approuvé par la résolution du Conseil dans" & VbCrLf mensaje = mensaje &"sa résolution 1495 du 31 juillet 2003." & VbCrLf & VbCrLf mensaje = mensaje &"Ces documents explicitent très clairement que le règlement de la question du Sahara" & VbCrLf mensaje = mensaje &"Occidental ne peut être réalisé que par l’expression libre du choix du peuple sahraoui" & VbCrLf mensaje = mensaje &"sur son avenir à travers un référendum d’autodétermination juste et libre." & VbCrLf & VbCrLf mensaje = mensaje &"Quelle que soit la situation internationale et aussi fortes soient les pressions " & VbCrLf mensaje = mensaje &"exercées par le Maroc et ses alliés, le droit du peuple sahraoui à être consulté sur son" & VbCrLf mensaje = mensaje &"avenir reste la seule règle fondamentale à laquelle ni l’occupant, ni la communauté" & VbCrLf mensaje = mensaje &"internationale ne peuvent déroger." & VbCrLf & VbCrLf mensaje = mensaje &"La tentative du Maroc qui consiste à présenter un projet de - plan d’autonomie -" & VbCrLf mensaje = mensaje &"relève de la manœuvre car ce n'est ni plus, ni moins qu'une  démarche illégale ," & VbCrLf mensaje = mensaje &"inacceptable, qui saborde le droit de choisir  du peuple sahraoui , en sus d’être" & VbCrLf mensaje = mensaje &"incompatible avec le Droit International. Il s’agit une fois encore d’un acte unilatéral" & VbCrLf mensaje = mensaje &"du Maroc en vue de contourner le droit inaliénable du peuple sahraoui à exercer son droit" & VbCrLf mensaje = mensaje &"à l’autodétermination, " & VbCrLf & VbCrLf mensaje = mensaje &"Monsieur le Secrétaire Général," & VbCrLf & VbCrLf mensaje = mensaje &"Nous demandons instamment que l’ONU, et en particulier le Conseil de Sécurité, mette tout" & VbCrLf mensaje = mensaje &"en œuvre pour" & VbCrLf & VbCrLf mensaje = mensaje &"- Le parachèvement du processus de décolonisation du Sahara Occidental dans les plus brefs" & VbCrLf mensaje = mensaje &"délais à travers l’organisation d’un référendum d’autodétermination" & VbCrLf mensaje = mensaje &"- La protection des populations sahraouies dans les territoires occupés par le Maroc" & VbCrLf & VbCrLf mensaje = mensaje &"Les signataires," & VbCrLf & VbCrLf Dim objMail set objMail = Server.CreateObject("CDONTS.NewMail") Mensaje = Mensaje &"

"&Request.Form("nombre") Mensaje = Mensaje &"
"&Request.Form("profesion") Mensaje = Mensaje &"
"&Request.Form("ciudad") Mensaje = Mensaje &"
"&Request.Form("pais") objMail.From = "appel@sahara.com" objMail.To = "comsah@oxfamsol.be" objMail.Cc = "appel@umdraiga.com;um_draiga@umdraiga.com" objMail.Subject = "APPEL AU SECRETAIRE GENERAL DES NATIONS UNIES" objMail.Importance = 1 objMail.MailFormat = 0 objMail.BodyFormat = 0 objMail.Body = Mensaje objMail.Send If objMail Is Nothing Then Response.Redirect("appel.asp?a=2") End IF Set objMail = Nothing ' SE HA ENVIADO EL MAIL '********************************************************************************************* '********************************PRESENTACION DE LA TABLA EB RESPUESTA AL ENVIO DEL FORM****** '********************************************************************************************* Set RS=CreateObject("ADODB.Recordset") RS.Open "Campana", conexion, adOpenStatic, adCmdTable %> <% while not RS.EOF %> <% RS.Movenext Wend%>

Nom / Nombre / Name

Qualité, profession / Profesión / Title, profession

 Ville / Ciudad / City Pays / País / Country

<%=RS("Nombre")%>

<%=RS("Profesion")%>

<%=RS("Ciudad")%>

<%=RS("Pais")%>
<% RS.Close conexion.Close END IF %>