Änderungen Invoices

Customers/Default2.aspx.vb

@@ -1,21 +1,22 @@
 
 Partial Class Customers_Default2
     Inherits System.Web.UI.Page
-    Dim Kdnrtext As String = String.Empty
-    Protected Sub Page_Load(sender As Object, e As EventArgs)
-        If Me.Page.User.Identity.IsAuthenticated Then
-            Try
-                Kdnrtext = Session.Item("CustomerID")
-            Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
-                MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
-            End Try
-        Else
-            FormsAuthentication.RedirectToLoginPage()
-        End If
-        If Page.IsPostBack = True Then
-            Page.MaintainScrollPositionOnPostBack = True
-        Else
-            Page.MaintainScrollPositionOnPostBack = False
+
+    Protected Sub Button1_Click(sender As Object, e As EventArgs)
+        If String.IsNullOrEmpty(TextBox1.Text) = False Then
+            Dim vals As New List(Of String)
+            Dim finalstr As String = ""
+            For i As Integer = Integer.Parse(TextBox1.Text) To Integer.Parse(TextBox2.Text)
+
+                Dim strtemp As String = ""
+                VERAG_VARIABLES.seterrorcount(Integer.Parse(i))
+                vals.Add(i.ToString + Space(3) + ":" + Space(3) + VERAG_VARIABLES.geterrornumb)
+
+            Next
+            For Each val As String In vals
+                finalstr = finalstr + Environment.NewLine + val + Environment.NewLine
+            Next
+            Label2.Text = finalstr
         End If
     End Sub
 End Class