Änderung der Fehlernummerngenerierung

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 = 1
     End Sub
     Shared Function geterrornumb() As String
         Return Environment.NewLine + "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString) + Space(1)