CreditsafeAPI

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -864,7 +864,15 @@ Public Class frmMitarbDetails
         End If
 
         Dim cs = New cCreditSafeAPI
-        lblCheckconnection.Text = cs.authenticate(txtCSUser.Text, txtCSPW.Text)
+        Dim statuscode = cs.authenticate(txtCSUser.Text, txtCSPW.Text)
+        Select Case statuscode
+
+            Case 200 : lblCheckconnection.Text = "Zugangsdaten OK"
+
+            Case Else
+                lblCheckconnection.Text = "User konnte nicht authentifiziert werden (" & statuscode & ")"
+
+        End Select
 
     End Sub