<% if (""<>"") then Response.Write "" else Response.Write "zurück zur Übersicht" end if %>
KünstlerInnen KünstlerInnen

Talenteshow der Generationen

Talenteshow der Generationen

Programm für junge Menschen: Kinder können mit ihren Eltern, Großeltern, Tanten oder Onkeln ihre gemeinsamen Talente bei der Talenteshow der Generationen präsentieren. Egal, ob Gesang, Musik, Tanz oder Akrobatik! Die Anmeldung ist unter kidsmix@kinderfreunde.cc oder 0699/16 88 63 00 möglich.

<% if Trim("")<>"" then Response.Write "
" end if %>
 

Wann und Wo Wann und Wo

<% Keywords="Tag3:Bühne im Musikpavillon" Dim Arr_Links() ReDim Arr_Links(0) If(Len(Keywords) > 0) Then If(InStr(Keywords,";")=0) Then Keywords=Keywords&";" End If If Keywords<>";" Then SingleEntry=Split(Keywords,";",-1,1) CountSingle=UBound(SingleEntry) If(CountSingle > 0) Then For k=0 to (CountSingle) ReDim Preserve Arr_Links(maxIdx+1) CategoryStage = Split(Trim(SingleEntry(k)),":",-1,1) If(UBound(CategoryStage) > 0) Then Stage=CategoryStage(1) If (UCase(CategoryStage(0))="TAG1") Then tag1_uhrzeit=Trim("") uhrzeit="" If(Len(tag1_uhrzeit) > 0) Then If(InStr(tag1_uhrzeit,"-")=0) Then tag1_uhrzeit=tag1_uhrzeit&"-" End If uhrzeit_split=Split(Trim(tag1_uhrzeit),"-",-1,1) uhrzeit=Trim(uhrzeit_split(0)) End If maxIdx=UBound(Arr_Links) Arr_Links(maxIdx)=""& Tag1 &" / "& uhrzeit &" Uhr "& Stage & "" ElseIf (UCase(CategoryStage(0))="TAG2") Then tag2_uhrzeit=Trim("") uhrzeit="" If(Len(tag2_uhrzeit) > 0) Then If(InStr(tag2_uhrzeit,"-")=0) Then tag2_uhrzeit=tag2_uhrzeit&"-" End If uhrzeit_split=Split(Trim(tag2_uhrzeit),"-",-1,1) uhrzeit=Trim(uhrzeit_split(0)) End If maxIdx=UBound(Arr_Links) Arr_Links(maxIdx)=""& Tag2 &" / "& uhrzeit &" Uhr "& Stage & "" ElseIf (UCase(CategoryStage(0))="TAG3") Then tag3_uhrzeit=Trim("13:00-14:00") uhrzeit="" If(Len(tag3_uhrzeit) > 0) Then If(InStr(tag3_uhrzeit,"-")=0) Then tag3_uhrzeit=tag3_uhrzeit&"-" End If uhrzeit_split=Split(Trim(tag3_uhrzeit),"-",-1,1) uhrzeit=Trim(uhrzeit_split(0)) End If maxIdx=UBound(Arr_Links) Arr_Links(maxIdx)=""& Tag3 &" / "& uhrzeit &" Uhr "& Stage & "" End If End If Next End If End If End If If (UBound(Arr_Links)>0) Then Response.Write "
    " For Each Linkentry in Arr_Links If(Linkentry<>"")Then Response.Write "
  • "& Linkentry & "
  • " 'Response.Write "

    " & Linkentry & "

    " End If Next Response.Write "
" End If %>
 

Links und Infos Links und Infos

    <% linktyp="link_extern" %>
  • <% if linktyp="link_intern" then %><% else select case linktyp case "link_youtube" linkTitle="Link auf Youtube (neues Fenster)" case "link_myspace" linkTitle="Link auf MySpace (neues Fenster)" case "link_flickr" linkTitle="Link auf Flickr (neues Fenster)" case else linkTitle="Externer Link (neues Fenster)" end select if("http://www.kinderfreunde.cc/Bundeslaender/Oberoesterreich/Linz/Angebote/Familienzentrum-kidsmix"<>"" and "KünstlerInnen Website"<>"") then response.write "KünstlerInnen Website (neues Fenster)" end if end if %>