<%@ Master Language="VB" CodeFile="Customers.master.vb" Inherits="Customers_Customers" %>
<%@ import Namespace="MySql.Data.MySqlClient" %>
<%
Dim navParent = ""
If Request.QueryString("Par1") = "1" Then
navParent = "/Customers/Welcome.aspx?"
ElseIf Request.QueryString("Par1") = "2" Then
navParent = "/Customers/CustomerIndex.aspx?"
ElseIf Request.QueryString("Par1") = "3" Then
navParent = "/Customers/Invoices.aspx?"
ElseIf Request.QueryString("Par1") = "4" Then
navParent = "/Customers/LKWs.aspx?"
ElseIf Request.QueryString("Par1") = "5" Then
navParent = "/Customers/Card_Boxes.aspx?"
Else
navParent = "Customers.master?"
End If
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
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))
Dim flagpath = "images/flags/flagge_DE_AT.gif"
Dim lan3 As String = Request.QueryString("lan3")
If laenderkuerzel = "DE" And lan3 = "0" Then
flagpath = "images/flags/flagge_DE_AT.gif"
ElseIf laenderkuerzel = "EN" And lan3 = "0" Then
flagpath = "images/flags/flagge_GB.gif"
ElseIf laenderkuerzel = "SRB" And lan3 = "0" Then
flagpath = "images/flags/flagge_BIH.gif"
ElseIf laenderkuerzel = "SRB" And lan3 = "1" Then
flagpath = "images/flags/flagge_SM.gif"
ElseIf laenderkuerzel = "BG" And lan3 = "0" Then
flagpath = "images/flags/flagge_BG.gif"
ElseIf laenderkuerzel = "TR" And lan3 = "0" Then
flagpath = "images/flags/flagge_TR.gif"
End If
%>