diff --git a/newpageJulius_Sidebar.aspx b/newpageJulius_Sidebar.aspx index 3085782..c76609b 100644 --- a/newpageJulius_Sidebar.aspx +++ b/newpageJulius_Sidebar.aspx @@ -880,7 +880,7 @@
  • - /><%=strTRlang %> + /><%=strTRlang %>
    • diff --git a/status_Julius.aspx b/status_Julius.aspx index 9fbc0a1..67ee2c7 100644 --- a/status_Julius.aspx +++ b/status_Julius.aspx @@ -455,60 +455,59 @@ Imports System.Data.SqlClient
    <% - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + 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 LT As New VERAG_PROG_ALLGEMEIN.cLanguageText_LIST("HOMEPAGE", "LOGIN", "STATUS", "") + Dim V_LST As New VERAG_PROG_ALLGEMEIN.cVermerkeCodes_LIST - Dim lan = "DE" + Dim lan = "DE" - If (Request.QueryString.Count > 0) AndAlso Request.QueryString("lan2") IsNot Nothing Then - lan = Request.QueryString("lan2") - End If - If (Request.QueryString.Count > 0) AndAlso Request.QueryString("lan") IsNot Nothing Then - lan = Request.QueryString("lan") - ElseIf (Request.QueryString.Count > 0) AndAlso (Request.QueryString("AvisoId") IsNot Nothing Or Request.QueryString("test") IsNot Nothing) Then + If (Request.QueryString.Count > 0) AndAlso Request.QueryString("lan2") IsNot Nothing Then + lan = Request.QueryString("lan2") + End If + If (Request.QueryString.Count > 0) AndAlso Request.QueryString("lan") IsNot Nothing Then + lan = Request.QueryString("lan") + ElseIf (Request.QueryString.Count > 0) AndAlso (Request.QueryString("AvisoId") IsNot Nothing Or Request.QueryString("test") IsNot Nothing) Then - Dim navParent = "status_Julius.aspx?AvisoId=" & Request.QueryString("AvisoId") + Dim navParent = "status_Julius.aspx?AvisoId=" & Request.QueryString("AvisoId") - Dim flagpath = "images/flags/flagge_DE_AT.gif" - Dim laenderkuerzel As String = "DE" + Dim flagpath = "images/flags/flagge_DE_AT.gif" + 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 imgPath As String = "" + If HttpContext.Current.Request.Url.AbsoluteUri.ToString.Contains("admin.aspx") Then + navParent = "admin.aspx" + imgPath = "../" + End If - Dim lan3 As String = Request.QueryString("lan3") - If lan = "DE" And lan3 = "0" Then - flagpath = "images/flags/flagge_DE_AT.gif" - ElseIf lan = "EN" And lan3 = "0" Then - flagpath = "images/flags/flagge_GB.gif" - ElseIf lan = "SRB" And lan3 = "0" Then - flagpath = "images/flags/flagge_BIH.gif" - ElseIf lan = "SRB" And lan3 = "1" Then - flagpath = "images/flags/flagge_SM.gif" - ElseIf lan = "BG" And lan3 = "0" Then - flagpath = "images/flags/flagge_BG.gif" - ElseIf lan = "TR" And lan3 = "0" Then - flagpath = "images/flags/flagge_TR.gif" - End If + Dim lan3 As String = Request.QueryString("lan3") + If lan = "DE" And lan3 = "0" Then + flagpath = "images/flags/flagge_DE_AT.gif" + ElseIf lan = "EN" And lan3 = "0" Then + flagpath = "images/flags/flagge_GB.gif" + ElseIf lan = "SRB" And lan3 = "0" Then + flagpath = "images/flags/flagge_BIH.gif" + ElseIf lan = "SRB" And lan3 = "1" Then + flagpath = "images/flags/flagge_SM.gif" + ElseIf lan = "BG" And lan3 = "0" Then + flagpath = "images/flags/flagge_BG.gif" + ElseIf lan = "TR" And lan3 = "0" Then + flagpath = "images/flags/flagge_TR.gif" + End If %> - - +