%
Dim from_mail, from_name, subject_mail, receivers, use_builtin_host_and_port, smtphost, smtpport, required_fields, email_field, contact_html_pagina, page_to_redirect_after_sending, email_not_valid, required_field_not_valid
' ---------------------------------------------------------------------------------------------------------
' CONFIGZONE: Hier komen de variabele velden in, zoals de ontvangers, het onderwerp van de mail, etc...
from_mail = "webmaster.development@coleurop.be"
from_name = "College of Europe's Development Office"
subject_mail = "Un/Subscribe form DO Newsletter - SHORT"
receivers = Array("jvanloo@coleurop.be")
use_builtin_host_and_port = True 'als dit op true staat wordt er met smtphost en met smtpport geen rekening gehouden, als dit op false staat wordt smtphost en smtpport als smtp server met desbetreffende poort gebruikt
smtphost = "smtp.coleurop.be"
smtpport = 25 'standaardpoort is 25
'required_fields = Array()
required_fields = Array("Name","E-mail")
email_field = "E-mail"
contact_html_pagina = "formmail-DONL-short.html"
page_to_redirect_after_sending = "formmail-DONL-confirmation.html"
email_not_valid = "Email is required"
required_field_not_valid = "#REQUIRED_FIELD# is required"
' END CONFIGZONE
' ---------------------------------------------------------------------------------------------------------
If Len(Request.Form) > 0 Then
'dit is een postback, vang gegevens op en verwerk ze.
Dim isValid, received_values(), contact_html_to_send, fileStream, fileToRead
isValid = True
Set fileStream = Server.CreateObject("Scripting.FileSystemObject")
Set fileToRead = fileStream.OpenTextFile(Server.MapPath(contact_html_pagina), 1)
contact_html_to_send = fileToRead.ReadAll
fileToRead.Close
Set fileToRead = Nothing
Set fileStream = Nothing
Dim formEntryKey, firstTime
firstTime = True
For Each formEntryKey in Request.Form
Dim formEntryValue
formEntryValue = Request.Form(formEntryKey)
If firstTime = True Then
Redim received_values(0)
firstTime = False
Else
Redim PRESERVE received_values(UBound(received_values) + 1)
End If
received_values(UBound(received_values)) = formEntryKey
If formEntryValue = "" And in_array(formEntryKey, required_fields) Then
isValid = False
message_to_popup = Replace(required_field_not_valid, "#REQUIRED_FIELD#", formEntryKey)
End If
If formEntryKey = email_field Then
If formEntryValue = "" And in_array(formEntryKey, required_fields) Then
isValid = False
message_to_popup = Replace(required_field_not_valid, "#REQUIRED_FIELD#", formEntryKey)
Else
Dim regularExpressionObject
Set regularExpressionObject = New RegExp
regularExpressionObject.Pattern = "^[A-Z0-9._-]+@[A-Z0-9][A-Z0-9.-]{0,61}[A-Z0-9]\.[A-Z.]{2,6}$"
regularExpressionObject.IgnoreCase = True
regularExpressionObject.Global = True
If Not regularExpressionObject.Test(formEntryValue) Then
isValid = False
message_to_popup = email_not_valid
End If
Set regularExpressionObject = Nothing
End If
End If
If isValid = False Then
Exit For
End If
contact_html_to_send = Replace(contact_html_to_send, "#" + UCase(formEntryKey) + "#", Replace(formEntryValue, VbCrLf, "
") )
Next
If isValid = True Then
Dim required_field
For Each required_field in required_fields
If Not in_array(required_field, received_values) Then
isValid = False
message_to_popup = Replace(required_field_not_valid, "#REQUIRED_FIELD#", required_field)
Exit For
End If
Next
End If
If isValid = True Then
Dim mail
Set mail = CreateObject("CDO.Message")
If Not use_builtin_host_and_port Then
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtphost
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpport
mail.Configuration.Fields.Update
End If
mail.From = from_name + " <" + from_mail + ">"
mail.HTMLBody = contact_html_to_send
mail.Subject = subject_mail
Dim receiver, stringTo
stringTo = ""
For Each receiver in receivers
stringTo = stringTo + receiver + ";"
Next
If Len(stringTo) > 1 Then
stringTo = Left(stringTo, Len(stringTo) - 1)
End If
mail.To = stringTo
mail.Send
Set mail = Nothing
Response.Redirect(page_to_redirect_after_sending)
End If
End If
Private Function in_array(stringToSearchFor, arrayToSearchIn)
Dim key, boolToReturn
boolToReturn = False
For Each key in arrayToSearchIn
If stringToSearchFor = key Then
boolToReturn = True
Exit For
End If
Next
in_array = boolToReturn
End Function
%>
In 2012, our portfolio of training courses has widen substantially, following the latest trends in EU Affairs. Our faculty of dedicated trainers will guide you through an intensive learning experience in one of the world's leading institutions in EU postgraduate studies. Interested in upgrading your knowledge on EU Diplomacy or Trade Policy? Motivated by a dive into the world of EU Law or Competition Law? Then, we have just the right solution for you!
Thanks to the possibilities opened up by the application of new technologies in education, the College has also developed a set of 7 e-Learning Modules. Have a look at our full training catalogue to find out the training that perfectly matches your expectations!
On 23 - 25 April, the Development Office of the College of Europe organises the second training seminar on EU Institutions and EU decision-making process for 40 public administration officials coming from various ENP countries. The seminar is held at the College of Europe Verversdijk premises in Bruges.
In the framework of the ENP regional project "Preparing staff for EU-ENP related jobs", during the next two years a total of 12 training seminars will be organised and delivered by the College of Europe in its two campuses in Bruges, Belgium and Natolin, Poland.
The aim of the project is to train officials working for various ministries and services dealing with the EU in the 16 ENP countries: Algeria, Armenia, Azerbaijan, Belarus, Egypt, Georgia, Jordan, Israel, Lebanon, Libya, Moldova, Morocco, Palestinian Authorities, Syria, Tunisia and Ukraine.
For more information: www.eu-enprelatedjobs.eu
The College of Europe, in partnership with the European Fund for the Balkans (Belgrade) and the TRANSFUSE Association (Berlin), is organizing a five-day seminar in the framework of an academic programme entitled ‘Southeast Europe and the EU – Leadership Development Programme’.
This one-year programme has been running since September 2006 and is aiming to provide talented and qualified young professionals from the region with supplementary insights of EU affairs and an opportunity to discuss the issues that concern them with their counterparts from the rest of Europe. The programme, financed by the European Fund for the Balkans, is attended by 29 bright university graduates, aged between 21 and 26, from Southeast European countries, as well as broader Europe.
The group will be visiting Bruges and Brussels from 21 to 26 April 2012. The programme combines sessions in the College of Europe and discussions with a number of officials from the EU institutions and NATO, as well as high-level speakers from Brussels-based think tanks. All the participants have previous sound knowledge of the EU, its institutions and major policies.
http://www.seeyoungleaders.org
Du 10 au 14 avril, le Service de Développement du Collège d'Europe organise une formation d’une semaine pour les futurs diplômés de l’Institut diplomatique et des Relations internationales d’Alger (IDRI).
La formation proposée a pour but d’apporter des connaissances sur le fonctionnement de l’Union européenne aux jeunes diplomates.
Cette formation consistera à donner aux futurs diplômés de l’IDRI une approche pratique de l’UE:
From 5 to 7 March, the Development Office of the College of Europe organises a three-day training on “EU accession challenges and the EU acquis”. Resident Representatives and Deputy Resident Representatives from the UNDP Country Offices in the Western Balkans and Turkey, as well as from the UNDP Brussels Office and Headquarters in New York are taking part in this tailored course.
The training aims at bringing further knowledge of the EU enlargement process and of a few selected EU Acquis Chapters, for the participants to reflect how UNDP and other international organizations may support this process. Jacques Rupnik will present the enlargement challenges and analyse the current thinking on the enlargement policy, and his session will be followed by a workshop on the current economic/financial crisis in Europe and its possible implications on enlargement. This first training day will be rounded-off with a discussion on Croatia’s experience with accession.
As of the second day, participants will be focussing on the following five chapters of the “acquis communautaire”, to better understand the points under discussion when it comes to the Western Balkans and Turkey on their way to the EU:
Three College of Europe Alumni are among the participants, namely Mr. Alessandro Fracassetti from Walter Hallstein promotion (1995-1996), Mr Thomas Dedeurwaerdere from the Hendrik Brugmans promotion (1997-1998), and Ms Claire Medina from the Simon Stevin promotion (2001-2002), and they kindly offered to informally meet the current students interested in career opportunities (on Tuesday 6 March from 7pm).
As part of a consortium led by JCP srl in the framework of the FWC Commission 2011, Lot 2, the Development Office has been awarded 2 short-term projects in the field of education and governance: Education Fairs in Russia and Training and Guidance Documents within the area of Justice and Rule of Law for DG DEVCO.
The first project is about the organisation of Education Fairs and Information Sessions for EU funded education programmes in three regions in Russia, namely Kazan, Rostov-on-Don and Novosibirsk. The fairs will take place in 2012 between March and September. In close cooperation with the EU Delegation of Moscow, the Development Office is responsible for the organisation, implementation and follow up of these events.
Through a second project awarded in the framework of this contract, the College of Europe will provide Training and Guidance Documents in the area of Justice and Rule of Law for officials working in the EU Delegations. The Guidance Documents will compile findings and recommendations to improve the overall understanding of the challenges in supporting justice and security sector reforms. The accompanying Training Module will provide the participants with the tools to better understand the policy framework, good practices and recommendations within the area of Justice and Rule of Law.
Du 28 au 30 novembre, le Service de Développement du Collège d'Europe organise le premier séminaire de formation aux institutions européennes et au processus de décision européen pour 37 fonctionnaires venant des pays couverts par la Politique de Voisinage. Le séminaire se déroule au Collège d'Europe, dans les locaux de Verversdijk à Bruges.
Dans le cadre du projet regional PEV "Préparer le personnel à des emplois liés à l'UE-PEV", un total de 12 séminaires seront organisés par le Collège d'Europe entre ses deux campus à Bruges (Belgique) et à Natolin (Pologne).
Le but de ce projet est de former des fonctionnaires travaillant pour divers ministères et venant des 16 pays couverts par la PEV : Algérie, Arménie, Azerbaïdjan, Biélorussie, Egypte, Géorgie, Jordanie, Israël, Liban, Libye, Moldavie, Maroc, Autorités Palestiniennes, Syrie, Tunisie et Ukraine.
Plus d'information sur notre site-web : www.eu-enprelatedjobs.eu
Interested in training yourself in EU affairs? Why not choosing to register for a training in one of the most renowned post-graduate Institute in EU affairs? This year the programme includes our renowned Intensive Seminar on the EU, an advanced course in EU negotiations, a one week training on EU Project Management and hands-on EU Fact Finding workshops. Save your seat now and benefit from an early bird discount!
(03/03/2011)