<% @Language=VBScript %> <% Option Explicit %> <% On Error Resume Next %> <% ' Set and open connection with database Dim RSObj, RSCatObj, SQL, SQL_cat, connObj, filter, language ' Create connection with database set connObj=Server.CreateObject("ADODB.Connection") connObj.Provider="Microsoft.Jet.OLEDB.4.0" connObj.Open(Server.Mappath("db_tags/tags_conta.mdb")) filter = Request.QueryString("filter") language = Request.QueryString("lang") ' Create recordset object for the Articles and for the category names Set RSObj = Server.CreateObject("ADODB.Recordset") Set RSCatObj = Server.CreateObject("ADODB.Recordset") SQL_cat = "SELECT category_title_gr, category_title_en FROM categories WHERE category_number=" & filter SQL = "SELECT article_author, article_title, article_journal, article_info, article_link, article_year FROM Articles WHERE article_id IN (SELECT article_id FROM cat_articles_table WHERE category_id = (SELECT category_id FROM categories WHERE category_number=" & filter & ")) ORDER BY article_year DESC" RSObj.Open SQL, connObj RSCatObj.Open SQL_cat, connObj %> <% if language = "en" Then if not RSCatObj.EOF then Response.Write "CONTA - Selected Publications in " & RSCatObj("category_title_en") & "" else Response.Write "CONTA - Selected Publications " End If else if not RSCatObj.EOF then Response.Write "CONTA - Επιλεγμένες Δημοσιεύεσεις σε " & RSCatObj("category_title_gr") & "" else Response.Write "CONTA - Επιλεγμένες Δημοσιεύεσεις " End If End If %> <% if language = "en" Then %> <% else %> <% End If %>
    <% if language = "en" Then Response.Write "

Selected Publications in " & RSCatObj("category_title_en") & "

" else Response.Write "

Επιλεγμένες Δημοσιεύσεις σε " & RSCatObj("category_title_gr") & "

" End If %>
    <% Do until RSObj.EOF Response.Write "
  1. "& RSObj("article_author") & " " & RSObj("article_title") & " " & RSObj("article_journal") & " " & RSObj("article_info") & " [View Article]
  2. " Response.Write "

    " 'Response.Write "
  3. "& RSObj("category_title_en") RSObj.MoveNext Loop %>


<% connObj.close %>