<% @Language=VBScript %> <% insertBrowserdata("articles") %> <% Dim Rs, RsString If Request.ServerVariables("QUERY_STRING") <> "" Then ' Ota yhteys tietokantaan %> <% Set Rs = Server.CreateObject("ADODB.Recordset") RsString = "SELECT * FROM artikkelit WHERE artikkelinro = " & Trim(Request.QueryString("Article")) Rs.Open RsString, Conn Rs.MoveFirst %>

<%= Rs("otsikko") %>

<%= Replace(Trim(Rs("teksti")), vbcrlf, "
" & vbcrlf) %>

<% If (Rs("email") <> "EI") Then %> "><%= Rs("kirjoittaja") %> - <% Else %> <%= Rs("kirjoittaja") %> - <% End If If Session("Kendo_Finnish") = True then Response.write(DatePart("d", Rs("luontipvm")) & "." & DatePart("m", Rs("luontipvm")) & "." & DatePart("yyyy", Rs("luontipvm"))) If (Rs("muokkauspvm") <> "") Then Response.write(" (muokattu " & DatePart("d", Rs("muokkauspvm")) & "." & DatePart("m", Rs("muokkauspvm")) & "." & DatePart("yyyy", Rs("muokkauspvm")) & ")") End If %>

">Takaisin artikkelivalikkoon <% Else Response.write(Rs("luontipvm")) If (Rs("muokkauspvm") <> "") Then Response.write(" (modified " & Rs("muokkauspvm") & ")") End If %>

">Back to articles <% End If %>

<% Rs.Close set Rs = nothing %> <% Else ' Ota yhteys tietokantaan %> <% Set Rs = Server.CreateObject("ADODB.Recordset") If Session("Kendo_Finnish") = True then RsString = "SELECT * FROM artikkelit WHERE artikkelikieli = 'fin' ORDER BY artikkelinro DESC" Else RsString = "SELECT * FROM artikkelit WHERE artikkelikieli = 'eng' ORDER BY artikkelinro DESC" End If Rs.Open RsString, Conn %>

<% If Session("Kendo_Finnish") = True then %> <% Else %> <% End If %>

Valitse luettava artikkeli

Choose an article to read

<% If Not Rs.EOF Then Rs.MoveFirst Do While Not Rs.EOF %>

?Article=<%= Rs("artikkelinro") %>"><%= Rs("otsikko") %>
<% If (Rs("kuvaus") <> "EI") Then %> <%= Replace(Trim(Rs("kuvaus")), vbcrlf, "
" & vbcrlf) %>
<% End If Response.write("" & Rs("kirjoittaja") & " - ") If Session("Kendo_finnish") = True then Response.write(DatePart("d", Rs("luontipvm")) & "." & DatePart("m", Rs("luontipvm")) & "." & DatePart("yyyy", Rs("luontipvm"))) If (Rs("muokkauspvm") <> "") Then Response.write(" (muokattu " & DatePart("d", Rs("muokkauspvm")) & "." & DatePart("m", Rs("muokkauspvm")) & "." & DatePart("yyyy", Rs("muokkauspvm")) & ")") End If Else Response.write(Rs("luontipvm")) If (Rs("muokkauspvm") <> "") Then Response.write(" (modified " & Rs("muokkauspvm") & ")") End If End If %>

<% Rs.MoveNext Loop %> <% Rs.Close set Rs = nothing %> <% End If %>