<%@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")%>
<%=adoerror%>