<% sql="select id,"&lang&"_descr as descr, "&lang&"_title as title,"&lang&"_link1,"&lang&"_link2,photo1,photo2,photo3,ddate from tbl_tmhma_news where is_enabled=1 and (("&lang&"_title is not null and trim("&lang&"_title)<>'') or ("&lang&"_descr is not null and trim("&lang&"_descr)<>'')) order by ddate desc limit " & news_items set rs=conn.execute(sql) %>

<%do while not rs.eof title=rs("title") descr=rs("descr") if not is_nothing(title) then txt=title else txt=descr end if %>
• <%=rs("ddate")%> <% 'response.write ((not is_nothing(title) and is_nothing(descr)) or not is_nothing(descr)) if ((not is_nothing(title) and is_nothing(descr)) or (not is_nothing(descr) and is_nothing(title))) and is_nothing(rs(lang&"_link1")) and is_nothing(rs(lang&"_link2")) and is_nothing(rs("photo1")) and is_nothing(rs("photo2")) and is_nothing(rs("photo3")) and left(txt,news_chars)=txt then response.write txt else %> "> <% if left(txt,news_chars)=txt then response.write txt & " >>>" else response.write left(txt,instrrev(left(txt,news_chars)," ")-1)&"..." end if %> <% end if %>
<%rs.movenext loop rs.close set rs=nothing%>

<% call switch_lang( "� ερισσότερα Νέα","More News")%> >>>

<% sql="select "&lang&"_type,tbl_tmhma_ekdilwseis.id as idd,"&lang&"_title as title,"&lang&"_descr as descr,start_date,end_date,start_time,end_time,"&lang&"_speaker,"&lang&"_place,"&lang&"_link1,"&lang&"_link2,photo1,photo2,photo3 FROM" & _ " tbl_tmhma_ekdilwseis" & _ " Inner Join tbl_tmhma_ekdilwseis_type ON tbl_tmhma_ekdilwseis_type.id = tbl_tmhma_ekdilwseis.id_tbl_ekdilwseis_type" & _ " where is_enabled=1 and (("&lang&"_title is not null and trim("&lang&"_title)<>'') or ("&lang&"_descr is not null and trim("&lang&"_descr)<>'')) order by start_date desc limit " & events_items set rs=conn.execute(sql) %>

<% do while not rs.eof title=rs("title") descr=rs("descr") if not is_nothing(title) then txt=title else txt=descr end if %>
• <%=rs("start_date")%> (<%=rs(lang&"_type")%>) <% if ((not is_nothing(title) and is_nothing(descr)) or (not is_nothing(descr) and is_nothing(title))) and is_nothing(rs("end_date")) and is_nothing(rs("start_time")) and is_nothing(rs("end_time")) and is_nothing(rs(lang&"_speaker")) and is_nothing(rs(lang&"_place")) and is_nothing(rs(lang&"_link1")) and is_nothing(rs(lang&"_link2")) and is_nothing(rs("photo1")) and is_nothing(rs("photo2")) and is_nothing(rs("photo3")) and left(txt,events_chars)=txt then response.write txt else %> "> <% if left(txt,events_chars)=txt then response.write txt & " >>>" else response.write left(txt,instrrev(left(txt,events_chars)," ")-1)&"..." end if %> <% end if %>
<%rs.movenext loop rs.close set rs=nothing%>

<% call switch_lang( "� ερισσότερες Εκδηλώσεις","More Events")%> >>>

<% sql="select id,"&lang&"_descr as descr,"&lang&"_title as title,"&lang&"_link1,"&lang&"_link2,photo1,photo2,photo3,ddate from tbl_tmhma_anakoinwseis where is_enabled=1 and (("&lang&"_title is not null and trim("&lang&"_title)<>'') or ("&lang&"_descr is not null and trim("&lang&"_descr)<>'')) order by ddate desc limit " & announcements_items set rs=conn.execute(sql) %>

<%do while not rs.eof title=rs("title") descr=rs("descr") if not is_nothing(title) then txt=title else txt=descr end if %>
• <%=rs("ddate")%> <% if ((not is_nothing(title) and is_nothing(descr)) or (not is_nothing(descr) and is_nothing(title))) and is_nothing(rs(lang&"_link1")) and is_nothing(rs(lang&"_link2")) and is_nothing(rs("photo1")) and is_nothing(rs("photo2")) and is_nothing(rs("photo3")) and left(txt,announcements_chars)=txt then response.write txt else %> "> <% if left(txt,announcements_chars)=txt then response.write txt & " >>>" else response.write left(txt,instrrev(left(txt,announcements_chars)," ")-1)&"..." end if %> <% end if %>
<%rs.movenext loop rs.close set rs=nothing%>

<% call switch_lang( "� ερισσότερες Ανακοινώσεις","More Announcements")%> >>>