<% @Language=VBScript %> <% insertBrowserdata("calendar") %> <% Dim Rs, RsString Dim Otsikko, Teksti, Viesti, Paivamaara, TekstiString Dim Paivateksti If Session("Kendo_Finnish") = True then Otsikko = "otsikkofin" Teksti = "tekstifin" Else Otsikko = "otsikkoeng" Teksti = "tekstieng" End If Function dateChange(dateInput) dateChange = Datepart("d",dateInput) & "." & Datepart("m",dateInput) & "." & Datepart("yyyy",dateInput) End Function ' Ota yhteys tietokantaan %> <% Set Rs = Server.CreateObject("ADODB.Recordset") RsString = "SELECT * FROM kalenteri ORDER BY alkupvm ASC" Rs.Open RsString, Conn %> <% If Not Rs.EOF Then Rs.MoveFirst Do While Not Rs.EOF If Rs("loppupvm") >= Date() Then %>

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

<%= Rs(otsikko) %>

<%= dateChange(Rs("alkupvm")) %> <% If Rs("alkupvm") <> Rs("loppupvm") Then Response.write(" - " & dateChange(Rs("loppupvm")) & "

<%= Rs("alkupvm") %> <% If Rs("alkupvm") <> Rs("loppupvm") Then Response.write(" - " & Rs("loppupvm") & "

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

<% Response.write(TekstiString) %>

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