<%
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
%>
