% @ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Buffer = True %>
<%
' EKTAKTH ANAKOINOSH
' ==================
Dim iBreakingNews, iBreakingNewsTitle, iBreakingNewsText
Dim iWeatherNews
iWeatherNews = 0 'Weather First: 1=YES, 0=NO
iBreakingNews = 0 ' 1=ON, 0=OFF
iBreakingNewsTitle = "ΑΝΑΚΟΙΝΩΣΗ"
iBreakingNewsText = "Οι προγραμματισμένες για σήμερα Κυριακή 11 Ιουνίου 2023 εκδηλώσεις του Νηπιαγωγείου και του Δημοτικού δεν θα πραγματοποιηθούν λόγω δυσμενών καιρικών συνθηκών. Για τη νέα ημερομηνία πραγματοποίησης των εκδηλώσεων θα ενημερωθείτε με σχετική ανακοίνωση."
' iBreakingNewsText = "Αγαπητοί γονείς,
Σας ενημερώνουμε ότι στο Δημοτικό μας είχαμε δύο επιβεβαιωμένα κρούσματα covid 19, έναν μαθητή και έναν εκπαιδευτικό. Όπως προβλέπεται, ενημερώσαμε τις οικογένειες των μαθητών που ήταν στενές επαφές και προχωρήσαμε σε όλες τις απαιτούμενες ενέργειες σύμφωνα με το πρωτόκολλο. Σήμερα ενημερωθήκαμε για έναν ακόμα μαθητή που βρέθηκε θετικός στον ιό. Με τα δεδομένα αυτά και στο πλαίσιο της προστασίας των παιδιών η Διεύθυνση Εκπαίδευσης αποφάσισε την αναστολή λειτουργίας όλων των τμημάτων από αύριο και για 14 ημέρες. Η απόφαση αυτή ισχύει μόνο για τη βαθμίδα του Δημοτικού.
Από τη Διεύθυνση"
' iBreakingNewsText = "Σύμφωνα με απόφαση της Περιφέρειας Αττικής το σχολείο θα είναι κλειστό την Τετάρτη 9 Ιανουαρίου 2019 λόγω δυσμενών καιρικών συνθηκών."
' iBreakingNewsText = "Σύμφωνα με απόφαση της Περιφέρειας Αττικής την Παρασκευή 15 Οκτωβρίου τα σχολεία θα είναι κλειστά λόγω δυσμενών καιρικών συνθηκών."
%>
<%
Dim iLag,tLang
iLag = LCase(request.querystring("lag"))
' if iLag = trim("") then
' iLag = "gr"
' End if
Select case iLag
Case "gr","en","de"
iLag = LCase(request.querystring("lag"))
Case else
iLag = "gr"
End select
Dim xPanelNavBtnL, xPanelNavBtnR
Select Case iLag
Case "gr1"
xPanelNavBtnL = 92
xPanelNavBtnR = -414
Case "de1"
xPanelNavBtnL = 162
xPanelNavBtnR = -335
Case "en1"
xPanelNavBtnL = 55
xPanelNavBtnR = -442
Case Else
'xPanelNavBtnL = 465
'xPanelNavBtnR = -32
xPanelNavBtnL = 92
xPanelNavBtnR = -414
End Select
dim sDays,DateToCompareTo, sDate,sDays2
DateToCompareTo = #12/21/2013# 'MM/DD/YYYY
sDate = Now()
sDays = DateDiff("d", sDate, DateToCompareTo)
sDays2 = (sDays-1) ' Disable registration
'' AFORA TA DROMENA
'' Otan perasei i imerominia to link pigainei stin ekdilosi kai oxi stin prosklisi
'' ===============================================================================
Function iDateEvent(evDay)
dim sDays1,DateToCompareTo2, sDate1,sDays11
DateToCompareTo2 = evDay
sDate1 = Now()
sDays1 = DateDiff("d", sDate1, DateToCompareTo2)
sDays11 = (sDays1) ' Disable registration
if sDays11 < 0 then
'response.write("2")
iDateEvent = 2
else
'response.write("1")
iDateEvent = 1
end if
'response.write "@" & sDays2
End Function
%>
<%
Select case iLag
Case "en"
tLang = "en"
Case "de"
tLang = "de"
Case else
tLang = "el"
End select
%>
<%
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","https://www.ea.gr/"
%>
|