Änderung Implementierung async hasratetestfunktion

Customers/Default2.aspx.vb

@@ -16,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)+1 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))

Customers/LKWs.aspx.vb

@@ -98,6 +98,8 @@ Partial Class LKWS
             initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt)
             Dim Stringtemp As String = String.Empty
             Dim strtemparr As String = String.Empty
+            Dim strtemp2 As String = String.Empty
+            Dim strarrtemp = String.Empty
             For Each l2 In list2
                 Dim String2 As String = String.Empty
 
@@ -108,19 +110,17 @@ Partial Class LKWS
                 End If
 
                 list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
-
-                Dim strtemp2 As String = String.Empty
-                If String.IsNullOrEmpty(l1.Nationalität) = True Then
-                    strtemp2 = "Keine Angabe"
-                Else
-                    strtemp2 = l1.Nationalität
-                End If
-                Dim strarrtemp = String.Empty
-                For Each l4 In list3
-                    strarrtemp = String.Join("-", l4)
-                Next
-                tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
             Next
+            If String.IsNullOrEmpty(l1.Nationalität) = True Then
+                strtemp2 = "Keine Angabe"
+            Else
+                strtemp2 = l1.Nationalität
+            End If
+
+            For Each l4 In list3
+                strarrtemp = String.Join("-", l4.ToString)
+            Next
+            tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
             cnt += 1
             tbl_sidemenue.Rows.Add(tr1)
         Next