neu

AvisoTV/frmAnzeige.vb

@@ -461,8 +461,12 @@ Public Class frmAnzeige
 
             'Infotext auslesen
             Dim AvisoTVDAL As New cAvisoTVDAL
-            Dim AvisoTV As cAvisoTV = AvisoTVDAL.LesenAvisoTV(-1, "", Standort, Special)
-
+            Dim AvisoTV As cAvisoTV = Nothing
+            If StandortATILLA Then
+                AvisoTV = AvisoTVDAL.LesenAvisoTV(-1, "", "ATILLA", Special)
+            Else
+                AvisoTV = AvisoTVDAL.LesenAvisoTV(-1, "", Standort, Special)
+            End If
             Dim lblBigInfoVisible = False
             lblBigInfo.Visible = False
             displayZeilen = False