Support Link wird aus der DB geholt und ist nicht mehr hardcoded - frmConfigBasic

Global_Indexer/frmConfig_Basic.vb

@@ -518,11 +518,22 @@ Public Class frmConfig_Basic
         End If
     End Sub
 
-    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
-        ' Specify that the link was visited.
-        Me.LinkLabel1.LinkVisited = True
-        ' Navigate to a URL.
-        Process.Start("https://www.digitaldata.works/Support")
+    Private Sub LinkLabel_SupportPortal_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel_SupportPortal.LinkClicked
+        Try
+            Me.LinkLabel_SupportPortal.LinkVisited = True
+
+            Dim oSql As String = "SELECT CAT_STRING FROM TBDD_CATALOG WHERE CAT_TITLE = 'DDSUPPORT_PORTAL'"
+            Dim oSupportLink As String = DATABASE_ECM.GetScalarValue(oSql)?.ToString()
+
+            If Not String.IsNullOrEmpty(oSupportLink) Then
+                Process.Start(oSupportLink)
+            Else
+                MsgBox("Support-Link nicht gefunden.", MsgBoxStyle.Information)
+            End If
+
+        Catch ex As Exception
+            MsgBox("Fehler beim Öffnen des Support-Links: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
     End Sub
 
     Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click