%@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
%>
Σπουδαστήριο Νέου Ελληνισμού
<%=adoerror%> |
<%
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")%>