Γ' Πε.Σ.Υ.Π. Αττικής - Επικαιρότητα

<%@ codepage = 28597 LCID = 1032 %> <%on error resume next%> <% id = trim(Request("id")) If id="" OR IsNull(id) or not(isnumeric(id)) Then response.redirect "epikairotita.asp" Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str key = trim(Request("key")) If key="" OR IsNull(key) or not(isnumeric(key)) Then key = 0 tid = "" & id & "" strsql = "SELECT *,CONVERT(datetime, sdate, 103) as showdate FROM [news] where CONVERT(datetime, sdate, 103) <= CONVERT(datetime, getdate(), 103) and id="& tid Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open strsql, conn, 1, 1 On Error Resume Next If rs2.BOF And rs2.EOF Then EmptyRecordset = True On Error Goto 0 If Err Then EmptyRecordset = True %> Γ' Πε.Σ.Υ.Π. Αττικής - Επικαιρότητα

<%strsql = "SELECT * FROM [subcats] order by name" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 1%> <% while not rs.EOF%> <% rs.MoveNext wend%> <% rs.Close Set rs = Nothing %>

	Η Ταυτότητά μας
	Υγεία για τον Πολίτη
	Κοινωνική Αλληλεγγύη
	Επικαιρότητα
	Πρόσφατες ειδήσεις
menu_selected_bg.gif<%else%>menu_open_bg.gif<%end if%>">	menu_selected_bg.gif<%else%>menu_open_bg.gif<%end if%>" height="21"> " class="<%if cstr(key)=cstr(rs("id")) then%>menu1white<%else%>menu1<%end if%>"><%=rs("name")%>
	Οι Εργαζόμενοι
	Έρευνα και Εκπαίδευση
	Χρήσιμες Συνδέσεις

<% if not rs2.EOF then%> <% else response.write "Δεν βρέθηκε η εγγραφή." end if%>

<%= rs2("title")%> (<%=rs2("showdate")%>)

<%=rs2("keimeno")%>

« Eπιστροφή

<% rs2.Close Set rs2 = Nothing %>

<% conn.Close Set conn = Nothing %>