<%@ Master Language="VB" CodeFile="Customers.master.vb" Inherits="Customers_Customers" %> <%@ import Namespace="MySql.Data.MySqlClient" %> <% Dim navParent = "Customers.master?" 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 %>
  • Sprachauswahl:
    <% Dim strDElang = "  Deutsch" Dim strENlang = "  Englisch" Dim strBIHLang = "  Bosnisch" Dim strSRBlang = "  Serbisch" Dim strBGlang = "  Bulgarisch" Dim strTRlang = "  Türkisch"%>