<%
Dim navParent = "Kundenseite.aspx?"
Dim laenderkuerzel As String = "de"
Dim imgPath As String = ""
If HttpContext.Current.Request.Url.AbsoluteUri.ToString.Contains("admin.aspx") Then
navParent = "admin.aspx"
imgPath = "../"
End If
Dim curentMenuId As String = "1"
If Not Request.QueryString("menuID") Is Nothing Then
curentMenuId = Request.QueryString("menuID")
End If
If Not Request.QueryString("lan") Is Nothing Then
laenderkuerzel = Request.QueryString("lan")
End If
%>
<%
'Dim lan As String = Request.QueryString("lan")
'If lan ="" then lan="de"
'Dim menuID As String = Request.QueryString("menuID")
'If menuID = "" Then menuID = "1"
'Dim DB2 As New cDBFunctions
%>
<%
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim LT As New VERAG_PROG_ALLGEMEIN.cLanguageText_LIST("HOMEPAGE", "LOGIN", "STATUS", "")
Dim V_LST As New VERAG_PROG_ALLGEMEIN.cVermerkeCodes_LIST
Dim lan = "DE"
'Response.Write(DB2.qry_contentNew(menuID, lan)) %>