3rd PESYP-Identity-Introduction

<%@ 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 lang='en' and 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 %> 3rd PESYP-Identity-Introduction

| Home |

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

	Identity
	Seasonable
	Recent News
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("nameen")%>

<% if not rs2.EOF then%> <% else response.write "Record not found." end if%>

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

<%=rs2("keimeno")%>

« Back

<% rs2.Close Set rs2 = Nothing %>

<% conn.Close Set conn = Nothing %>