Error validation und suchen nach SQL Fehler (noch nicht erfolgreich)

Customers/LKWs.aspx.vb

@@ -9,6 +9,15 @@ Partial Class LKWS
     Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL) = Nothing
     Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         VERAG_VARIABLES.initerrorcount()
+        If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+            'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
+
+        Else
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+
+            'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
+        End If
         If Me.Page.User.Identity.IsAuthenticated Then
             Try
                 Kdnrtext = Session.Item("CustomerID")