<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%>
<%
'-------------------------------------------------------------------'
'----------------- display list of authors' texts ------------------'
Dim id, rsList, SQLlist, rsCat, SQLcat, x
id=Replace(Request.QueryString("id"),"'","''")
on error resume next
SQLauth="SELECT author_id, author_surname, author_name, author_fathersname, author_nickname, author_english, author_birthplace, author_birthdate, author_deathplace, author_deathdate " & _
"FROM authors WHERE author_id='" &id& "' " & _
"ORDER BY Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(author_surname,'A','Á'),'B','Â'),'E','Å'),'Z','Æ'),'H','Ç'),'I','É'),'K','Ê'),'M','Ì'),'N','Í'),'O','Ï'),'P','Ñ'),'T','Ô'),'Y','Õ'),'X','×') "
Set rsAuth=Server.CreateObject("ADODB.Recordset")
rsAuth.CursorLocation = 3
rsAuth.CursorType = 3
rsAuth.LockType = 1
rsAuth.Open SQLauth, oConn
if err<>0 then
%>
ÓðïõäáóôÞñéï ÍÝïõ Åëëçíéóìïý
<%
else
select case id
case 60
SQLlist="SELECT lection_id, lection_title, lection_readdate, lection_publishdate, lection_file, lection_info, lection_text_id, lection_duration, lection_size, " & _
"lector_id, lector_surname, lector_nickname, lector_fathersname, lector_name, lector_info, " & _
"text_id, text_category_id, text_source, text_author_id, text_entitle FROM cavafylections " & _
"LEFT JOIN lectors ON lection_lector_id=lector_id " & _
"INNER JOIN cavafytexts ON lection_text_id=text_id " & _
"WHERE text_author_id='" &id& "' " & _
"ORDER BY text_category_id, text_entitle, Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(lection_title,'',''),'A','Á'),'B','Â'),'E','Å'),'Z','Æ'),'H','Ç'),'I','É'),'K','Ê'),'M','Ì'),'N','Í'),'O','Ï'),'P','Ñ'),'T','Ô'),'Y','Õ'),'X','×'),'S','Ó'),'U','Õ'),'ü','u'),'[',''),'(',''),'"&Chr(34)&"',''),'"&Chr(147)&"',''),'"&Chr(145)&"',''),'"&Chr(171)&"',''), lector_surname, lection_id "
case else
SQLlist="SELECT lection_id, lection_title, lection_readdate, lection_publishdate, lection_file, lection_info, lection_text_id, lection_testimony_id, lection_duration, lection_size, " & _
"lector_id, lector_surname, lector_nickname, lector_fathersname, lector_name, lector_info, " & _
"text_id, text_author_id FROM lections " & _
"LEFT JOIN lectors ON lection_lector_id=lector_id " & _
"INNER JOIN texts ON lection_text_id=text_id " & _
"WHERE text_author_id='" &id& "' " & _
"ORDER BY Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(lection_title,'A','Á'),'B','Â'),'E','Å'),'Z','Æ'),'H','Ç'),'I','É'),'K','Ê'),'M','Ì'),'N','Í'),'O','Ï'),'P','Ñ'),'T','Ô'),'Y','Õ'),'X','×'),'[',''),'(',''),'"&Chr(34)&"',''),'"&Chr(147)&"',''),'"&Chr(145)&"',''),'"&Chr(171)&"','') "
end select
Set rsList=Server.CreateObject("ADODB.Recordset")
rsList.CursorLocation = 3
rsList.CursorType = 3
rsList.LockType = 1
rsList.Open SQLlist, oConn
if id=60 then
total="("&rsList.RecordCount&" Áíáãíþóåéò)"
else
total=""
end if
if isNull(rsAuth("author_fathersname")) then
fathersname=""
else
fathersname=" "+RTrim(rsAuth("author_fathersname"))
end if
if isNull(rsAuth("author_name")) then
firstname=""
else
firstname=" "+RTrim(rsAuth("author_name"))
end if
if isNull(rsAuth("author_nickname")) then
authorname=RTrim(rsAuth("author_surname"))+firstname+fathersname
else
if rsAuth("author_nickname")=rsAuth("author_surname") then
authorname=RTrim(rsAuth("author_surname"))+firstname+fathersname
else
twonicks=split(rsAuth("author_nickname")," ")
if Len(twonicks(1))=0 and Trim(rsAuth("author_nickname"))<>"Ìðïóô." then
authorname=RTrim(rsAuth("author_nickname"))+firstname+fathersname
else
authorname=rsAuth("author_nickname")
end if
end if
end if
%>
ÓðïõäáóôÞñéï ÍÝïõ Åëëçíéóìïý - <%=authorname%> - <%=rsAuth("author_english")%>
