Fix der Fehlermeldungen

App_Code/VERAG_VARIABLES.vb

@@ -6,7 +6,7 @@ Public Class VERAG_VARIABLES
         errornumb = 0
     End Sub
     Shared Sub seterrorcount(var As Integer)
-        errornumb = 1
+        errornumb = var
     End Sub
     Shared Function geterrornumb() As String
         Return Environment.NewLine + "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString) + Space(1)

Customers/Default2.aspx.vb

@@ -1,7 +1,8 @@
 
 Partial Class Customers_Default2
     Inherits System.Web.UI.Page
-    Protected Sub Page_Load(ByVal sender As Object, e As EventArgs)
+    Protected Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load
+
         If Page.IsPostBack Then
             Page.MaintainScrollPositionOnPostBack = True
             VERAG_VARIABLES.initerrorcount()
@@ -15,7 +16,7 @@ Partial Class Customers_Default2
             VERAG_VARIABLES.initerrorcount()
             Dim vals As New List(Of String)
             Dim finalstr As String = ""
-            For i As Integer = Integer.Parse(TextBox1.Text) To Integer.Parse(TextBox2.Text)
+            For i As Integer = Integer.Parse(TextBox1.Text)+1 To Integer.Parse(TextBox2.Text)
 
                 Dim strtemp As String = ""
                 VERAG_VARIABLES.seterrorcount(Integer.Parse(i))