<%@ Language=VBScript %> <% '------------------------------------------------------------------------- sql = "select * from pasila_ajankohtaista where aktiivinen='true' order by aika desc" set connection = server.createobject("adodb.connection") connection.CommandTimeout = connection_commandtimeout connection.ConnectionTimeout = connection_connectiontimeout connection.open db_login set table = server.createobject("adodb.recordset") result = table.open(sql, connection, adopenstatic, adcmdtext) '------------------------------------------------------------------------- template = file_load("include2k/index.tpl") do while not table.eof table_id = trim(table("id")) table_otsikko = trim(table("otsikko")) table_teksti = trim(table("teksti")) table_aika = trim(table("aika")) vvvv = left(table_aika,4) kk = mid(table_aika,6,2) pp = mid(table_aika,9,2) k = left(kk,1) if k = "0" then kk = mid(kk,2,1) p = left(pp,1) if p = "0" then pp = mid(pp,2,1) lista = "" & pp & "." & kk & "." & vvvv & "
" & table_teksti & "

" output_data = output_data & lista table.movenext loop '------------------------------------------------------------------------- connection.close set connection = nothing output_otsikko = "" template = Replace(template, "", output_otsikko) template = Replace(template, "", output_data) %><%= template %>