<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_subscr_verify_STRING MM_editTable = "subscribe" MM_editRedirectUrl = "../gr/thanks.asp" MM_fieldsStr = "email|value" MM_columnsStr = "email|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="../controlpanel/login.asp" MM_redirectLoginFailed="../controlpanel/errorlogin.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_subscr_verify_STRING MM_rsUser.Source = "SELECT username, password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM verify WHERE username='" & MM_valUsername &"' AND password='" & CStr(Request.Form("password")) & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> Νεολαία Σοσιαλδημοκρατών
 
     
 
 

 
 
 
 
Θεματικές Ενότητες
  
   
 

 
 
 
 
 
 
 
   
 
 
 

 

  
     
   
 

Εισαγωγή

Η Νεολαία ΕΔΕΚ, μετά το 1ο Παγκύπριο Συνέδριό της, έχει εισέλθει σε μια καινούργια φάση δημιουργικής δράσης. Με βάση ένα σύγχρονο καταστατικό που στηρίζεται στις αρχές της Σοσιαλδημοκρατίας και με ανοικτές τις πόρτες σε ολόκληρη την κυπριακή νεολαία, συνεχίζουμε ανανεωμένοι την προσπάθεια για μια λεύτερη πατρίδα και μια κοινωνία πιο ανθρώπινη και δίκαιη. Αφήνοντας πίσω το στείρο δογματισμό, καταθέτουμε με δυναμισμό και ειλικρίνεια τις πολιτικές μας προτάσεις στην υπηρεσία της κοινωνίας μας.

Είμαστε βέβαιοι ότι και εσύ, όπως όλοι μας, αγωνιάς για το μέλλον της πατρίδας μας, για την ειρήνη και την ασφάλεια, για την κοινωνική δικαιοσύνη και την ισοπολιτεία.

Είμαστε βέβαιοι ότι συμμερίζεσαι το όραμα μας για μια ελεύθερη και ειρηνική Κύπρο, για μια κοινωνία που σέβεται την αξιοπρέπεια και τα δικαιώματα των μελών της, μια Πολιτεία χωρίς συμπτώματα αναξιοκρατίας και διαφθοράς.

Θέλουμε μια κοινωνία αλληλεγγύης, που θα στηρίζει στην πράξη τους νέους ανθρώπους και το δικαίωμα τους για ελεύθερη πρόσβαση στην παιδεία, στην εργασία, στην υγεία και στην ψυχαγωγία. Θέλουμε να δημιουργήσουμε μαζί μια νέα οργάνωση νεολαίας που θα τολμά, θα αμφισβητεί και κυρίως θα προτείνει λύσεις.

Ελπίζουμε πως αυτή η προσπάθεια θα φέρει τόσο την Οργάνωσή μας όσο και την πολιτική πιο κοντά στην κοινωνία των πολιτών. Πεποίθηση μας 'ότι μόνο με τη συμμετοχή των νέων στα κέντρα λήψης αποφάσεων, με παρεμβάσεις σε όλα όσα μας αφορούν, είναι δυνατόν να υπερβούμε το συντηρητισμό, τον παλαιοκομματισμό και την πολιτική σήψη.

Ένωσε τις δυνάμεις σου με τις δικές μας. Τα πράγματα δεν αλλάζουν με την παθητική αναμονή. Εντάξου στη Νεολαία του Σοσιαλδημοκρατικού Κινήματος, ενίσχυσε έμπρακτα την προσπάθεια για να γίνουν τα οράματα μας πραγματικότητα.

Τηλέφωνο: 22518700
Τηλεομοιότυπο: 22495363

contact@neos.org.cy

Νεολαία ΕΔΕΚ,
Κ. Παπαρρηγοπούλου 3,
1086, Λευκωσία

 

  
   
  © Νεολαία ΕΔΕΚ - Web design & development by Νεολαία ΕΔΕΚ