% @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 "
<% if language = "en" Then
Response.Write " Selected Publications in " & RSCatObj("category_title_en") & " " else Response.Write "Επιλεγμένες Δημοσιεύσεις σε " & RSCatObj("category_title_gr") & " " End If %>
" 'Response.Write " <% connObj.close %> |