<%@ Page Language="VB" Explicit="True" ASPCompat="True" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.Net" %> <% PageName="Kalendář akcí" %>

CO NÁS SPOLEČNĚ ČEKÁ?

Vysvětlivky:
D - akce se zúčastní Dětský folklorní souboru Dyleň
J - akce se zúčastní Jeleni v Dyleni
A - akce se zúčastní Archivní složka SPaT Dyleň
D    J    A

<% Dim myRequest As HttpWebRequest Dim myResponse As HttpWebResponse Dim sr As StreamReader Dim line As String Dim value As String value = Environment.NewLine myRequest = CType(WebRequest.Create("http://www.kffestival.cz/intranet/terminy2017.txt"), HttpWebRequest) myResponse = CType(myRequest.GetResponse(), HttpWebResponse ) sr = new StreamReader( myResponse.GetResponseStream() ) line = sr.ReadLine() do while not line is nothing if line.Length <> 0 then Response.Write(line & value) end if line = sr.ReadLine() loop sr.Close %>

Akce v roce 2016   Akce v roce 2015   Akce v roce 2014   Akce v roce 2013   Akce v roce 2012   Akce v roce 2011   Akce v roce 2010   Akce v roce 2009   Akce v roce 2008