Validatoren wurden auch auf Kalender übertragen

Customers/CustomsAviso.aspx.vb

@@ -427,16 +427,16 @@ Partial Class Kundenbereich_Default
     End Sub
 
     Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
-        Dim TB As TextBox = sender
+        Dim TB As TextBox = pickdate1
         If TB.Text = "" Then
-            TB.Attributes.Add("Border", "2px solid red")
+            pickdate1.BorderColor = Drawing.Color.Red
         Else
-            TB.Attributes.Add("Border", "None")
+            pickdate1.BorderStyle = 1
         End If
     End Sub
 
     Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
-        Dim TB As TextBox = sender
+        Dim TB As TextBox = pickdate2
         If TB.Text = "" Then
             TB.Attributes.Add("Border", "2px solid red")
         Else